Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 用API像系统发出消息,把一下代码放在窗体的MouseDown事件中 Dim m As Long If Button = 1 Then Call ReleaseCapture m = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
用API像系统发出消息,把一下代码放在窗体的MouseDown事件中
Dim m As Long
If Button = 1 Then
Call ReleaseCapture
m = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If