Hey leute,
Also ich hab meiner meiner Form "None" eingestellt und meinen eigenen design draufgepackt Nun ist sie Natürlich nicht mehr moveable, könnt ihr mir vllt sagen wir ich form Moveable mache oder Img1 mache?
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Modul:
Code:
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Sub FormDrag(TheForm As Form)
ReleaseCapture
Call SendMessage(TheForm.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
Registrieren
Login
Nun ist sie Natürlich nicht mehr moveable, könnt ihr mir vllt sagen wir ich form Moveable mache oder Img1 mache?
