移动没有标题栏的窗口

Private Declare Function ReleaseCapture Lib "user32" () As Long

'向指定的窗口发送信息

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

 

    Private Const WM_NCLBUTTONDOWN = &HA1

    Private Const HTCAPTION = 2

  '‘以上API函数和常数的声明可在VB自带的“API浏览器”中找到

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

      If Button = 1 Then

      Call ReleaseCapture

      Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

      End If
    End Sub

 

 

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Button = 1 Then

      Call ReleaseCapture

      Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

      End If

End Sub