Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language:
Expertise: Beginner
Aug 11, 2000

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.

 

 

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