Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Drag Window
Message
General information
Forum:
ASP.NET
Category:
Forms
Title:
Miscellaneous
Thread ID:
00751242
Message ID:
00751309
Views:
14
This message has been marked as a message which has helped to the initial question of the thread.
Hi Joe,

You don't need to change too much of your original code. Here are the revisions:
' Import
Imports System.Runtime.InteropServices

' Under Programming space
Const WM_NCLBUTTONDOWN As Integer = &HA1
Public Const HTCAPTION As Integer = &H2

Public Shared<DllImportAttribute("user32.dll")>  _
Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As Integer

Public Shared<DllImportAttribute("user32.dll")>  _
Function ReleaseCapture() As Boolean

' On Mouse Down (object where you want to drag)
ReleaseCapture()
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
>Previously I used the following code to move the form. I don't know how to do this in .NET? Anyone know how?
>
>
>' Declarations
>    Public Declare Function ReleaseCapture Lib "user32" () As Long
>    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
>                              (ByVal hWnd As Long, ByVal wMsg As Long, _
>                              ByVal wParam As Long, ByVal lParam As Long) As Long
>
>' In the form or object that can be used to move the form
>    Private Sub object_MouseDown()
>        ReleaseCapture()
>        SendMessage(Me.hwnd, &HA1, 2, 0&)
>    End Sub
>
-----------------------------------------

Cathi Gero, CPA
Prenia Software & Consulting Services
Microsoft C# / .NET MVP
Mere Mortals for .NET MVP
cgero@prenia.com
www.prenia.com
Weblog: blogs.prenia.com/cathi
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform