窗体移动问题

Question

我把窗体的BODERSTYLE设置为0,请问这样怎样才能移动窗体呢?

Answer 1

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 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim r As Long
    If Button = 1 Then
        i = ReleaseCapture()
        r = SendMessage(hwnd, &HA1, 2, 0)
    End If
End SubPrivate Sub Command1_Click()
    End
End Sub

Answer 2

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
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim r As Long
    If Button = 1 Then
        i = ReleaseCapture()
        r = SendMessage(Me.Hwnd, WM_NCLBUTTONDOWN ,HTCAPTION, 0)
    End If
End SubSendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&