移動沒有標題欄的窗口

領測軟件測試網 我們一般是用鼠標按住窗口的標題欄，然后移動窗口，當窗口沒有標題欄時，我們可以用下面的方法來移動窗口：
在 BAS 文件中聲明：
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 HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
然后，在 Form_MouseDown 事件中：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

文章來源于領測軟件測試網 http://www.kjueaiud.com/