vb.net 点击panel拖动功能的实现
2017-03-29 21:21
435 查看
首先在窗体类中写入以下公共代码
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const HTCAPTION = 2
然后再Pannel的MouseDowm事件中加入以下代码:
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
End Sub
这样就解决了拖动功能!
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const HTCAPTION = 2
然后再Pannel的MouseDowm事件中加入以下代码:
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
End Sub
这样就解决了拖动功能!
相关文章推荐
- [VB.NET]怎样实现MDI窗体菜单上的“窗口”菜单下面的功能
- vb.net中实现picturebox中图片拖动和label控件数组结合,实现label和图片同步
- vb.net实现验证码功能
- 讲述VB.NET实现拖动图片
- [VB.NET]找人实现以下功能,有报酬
- 用vb.net实现拖放功能
- VB.NET: DataGridView列头实现"全选"和"全不选"功能
- VB.NET+AJAX搜索建议功能的实现
- 【VB.NET】打造一个象棋魔法学校的老师——谨以此文献给象棋爱好者——编写界面和功能的最终实现
- (VB.net) 利用DataGrid实现查找, 编辑, 修改, 更新, 删除的功能。
- vb.net 实现javascript中的Eval功能
- [VB.NET]求如何用VB.NET语言+ACCECC数据库实现一个对会员等级自动升级功能!
- VB.Net实现类似C#中continue的功能
- [VB.NET]请教: 如何通过继承ToolStrip和ToolStripItem类,实现类似TreeView的分层节点(菜单) 功能 ?
- VB.Net2005中TabControl实现Disabl功能,例一
- vb.net下利用反射实现字符串调用窗体的功能
- 在.NET中如何实现像VB.NET中MSBBOX的功能!?
- vb.net实现无标题栏窗体可拖动
- VB.Net较为特殊功能实现
- C#中实现VB.net中ReDim功能