[VB] Hoe kan ik een form slepen?

[Verwijderd]

Hoe kan ik maken dat de gebruiker de form kan slepen door m met de muis vast te houden aan een leeg stuk op de form (dus niet per se aan de taakbalk)?

[Gerco]

Door de MouseMove event te gebruiken.

[Mr. B.]

Gooi de volgende code in een module:

code:

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

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 Long) As Long

Sub MoveForm(Frm As Form)
  ReleaseCapture
  SendMessage Frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

Vervolgens kun je in het MouseDown event van je form MoveForm Me aan roepen