请问在VB中怎样利用拖动Form来拖动窗口？

Question

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0End Sub

Answer 1

申明：Private Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long
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
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Answer 2

给分方法：http://www.csdn.net/help/over.asp

Answer 3

再给你一个简单的，不用ApiPrivate fx As Single, fy As Single '记录鼠标位置Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    fx = x
    fy = y
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 1 Then Me.Move Me.Left - fx + x, Me.Top - fy + y
End Sub