/ Snippet Library - View Code

Visual Basic / VB IDE / Moving Controls at Run-Time

Snippet details

ID: 469

Viewed: 1213

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Moving Controls at Run-Time

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight All' ' A Really Neat little bit of code ! ' Private Declare Function ReleaseCapture Lib "user32" () As Long 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 Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2
Code
Highlight AllPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Picture1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End Sub

No Reviews to show