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: Visual Basic
Expertise: Advanced
Aug 14, 1998

Move a Form Without a Title Bar

Enter this code in a BAS module to let users move a window without a title bar:

 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 Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1

To give users a way to begin the move, place a little colored PictureBox in one corner of the form and let its MouseDown event begin the process:

 Private Sub Picture1_MouseDown(Button As _
	Integer, Shift As Integer, X As Single, Y As Single)
	ReleaseCapture
	SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Rod Stephens
 
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