Các chiêu thức trong lập trình Kéo form di chuyển từ một điểm bất kỳ

“Kéo form di chuyên từ một điểm bắt kỳ” home Xuất xứ : www.allapi.net Binh khí sử dụng : Lại cũng tay không tập bắt hổ Đoạn mã : Private Declare Function SendMessage Lib "User32" Alia

“Kéo form di chuyên từ một điểm bắt kỳ” home

Xuất xứ : www.allapi.net

Binh khí sử dụng : Lại cũng tay không tập bắt hổ

Đoạn mã :

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 Declare Sub ReleaseCapture Lib "User32" ()

Const WM NCLBUTTONDOWN = &HAIL

Const HTCAPTION = 2

Private Sub Form MouseMove (Button As Integer, Shift As Integer, X As

Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

IngReturnValue = SendMessage (Me.hWnd, WM NCLBUTTONDOWN, HTCAPTION,

O&)

End If

End Sub

Private Sub Form Paint ()

Me.Print "Hay keo tui đi”

End Sub