Question

vb中无边框无标题栏的窗体如何用代码实现鼠标单击拖动窗体到桌面的任意地方

Answer 1

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
' Lets go of the titlebar or corners
Private Declare Sub ReleaseCapture Lib "user32" ()
' Constant for mouse down
Private Const WM_NCLBUTTONDOWN = &HA1
' Our titlebar
Private Const WCAPTION = 2
' The South-Eastern corner of our form, for resizing
Private Const W_SE_RESIZE = 17
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, WCAPTION, 0&
End Sub