/ Snippet Library - View Code

Visual Basic / Forms / moving form without title bar

Snippet details

ID: 218

Viewed: 1337

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

This tip demonstrates how you can allow a form to be moved using the mouse without using the title bar. In this example, you can click anywhere on the form and drag it as if you are using the title bar. This code can be useful in conjunction with programs that hide the title bar, i.e. clocks.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight All'Declarations ' Add the following code to the declarations section of a form Private Declare Function SendMessage Lib "User32" _ Alias "SendMessageA" (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "User32" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2
Code
Highlight All' Add this code to the form's MouseMove procedure: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngReturnValue As Long If Button = 1 Then Call ReleaseCapture lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _ HTCAPTION, 0&) End If End Sub

No Reviews to show