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: Beginner
Aug 6, 1997

Dragging A Form By A Control

This code is reusable and small enough to paste into whatever you're doing and instantly have a form that has no need for a title bar. In the general declarations section, insert these lines:
 Declare Sub ReleaseCapture Lib "User" ()
Declare Function SendMessage _
	Lib "User" (ByVal hWnd As Integer, _
	ByVal wMsg As Integer, _
	ByVal wParem As Integer, lParem As Any) As Long
In the Mousedown event of the control, insert:
 Sub Command1_MouseDown (Button As Integer, _
	Shift As Integer, X As Single, Y As Single)
Dim Ret&
ReleaseCapture
Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)

End Sub
Bill Reid
 
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