Witam,
Jak w Visual Basic'u przesuwać komponent myszką na formie korzystając z WinApi?
Jak przesuwać komponent na formie korzystając z WinApi?
- Rejestracja: dni
- Ostatnio: dni
- Postów: 124
0
- Rejestracja: dni
- Ostatnio: dni
- Postów: 124
0
Znalazłem rozwiązanie:
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left = True Then
Button1.Capture = False
Dim msg As Message = _
Message.Create(Button1.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub