Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Expertise: Beginner
Aug 11, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Move a Form by Clicking Anywhere on It

The following code allows you to move a form by clicking anywhere on the form and dragging it:
 Option Explicit
'define module level variables to store the 
last position of the form, the TOP and LEFT. Dim mlngInitialLeft As Long Dim mlngInitialTop As Long Private Sub Form_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single) 'If left button clicked on the form, store
the current 'form position into the module variables If Button = vbLeftButton Then mlngInitialLeft = X mlngInitialTop = Y End If End Sub Private Sub Form_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single) 'If mouse moved with LEFT button Down, 'move the form accordingly If Button = vbLeftButton Then Me.Left = Me.Left + (X - mlngInitialLeft) Me.Top = Me.Top + (Y - mlngInitialTop) End If End Sub
Jatin Shah
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date