VB 窗体的任何部分皆可拖动窗体
来源:互联网 发布:mac装双系统分区 编辑:程序博客网 时间:2024/06/10 10:28
- Declare Function ReleaseCapture Lib "user32" () As Long
- Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
- Public Const WM_SYSCOMMAND =
- Public Const SC_MOVE =
- Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- ReleaseCapture
- SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
- End Sub
- 如果包含一个可以接受MOUSEDOWN事件的控件,如Label1,下面代码也可拖动窗体
- Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- ReleaseCapture
- SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
- End Sub