Lets you move forms by Clicking on them and Draging

by Wassaf inc. Lebanon (Rami Wassaf) (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30^th November 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'by Wassaf inc. Lebanon 'http://www.wassaf.net '[email protected] 'Move form By clicking on it 'all rights are reserved for Wassaf inc. under license 246631 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 Any) As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2

Rate Lets you move forms by Clicking on them and Draging



Private Sub Form_DblClick()
End
End Sub

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

Download this snippet Add to My Saved Code

Lets you move forms by Clicking on them and Draging Comments

No comments have been posted about Lets you move forms by Clicking on them and Draging. Why not be the first to post a comment about Lets you move forms by Clicking on them and Draging.

Lets you move forms by Clicking on them and Draging

Lets you move forms by Clicking on them and Draging Comments

Post your comment

Difficulty