Search Tools Links Login

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.

Original Author: VB Pro

API Declarations

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


Code


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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 96 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.