Visual Basic Forum

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

Also hat einer noch den Code, um die Form ohne die Titleleiste verschieben zu können ?

habs im Archiv nicht gefunden

igoe · Gast

Visual Basic: [code]Option Explicit
Private XPos&, YPos&

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XPos = X: YPos = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Move Left + ScaleX(X - XPos, ScaleMode, vbTwips), Top + ScaleY(Y - YPos, ScaleMode, vbTwips)
End Sub[/code]

have Fun Wink

sp33dwalker · Poster Anmeldedatum: 16.06.2008 Beiträge: 185

Visual Basic: [code]Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, lParam As Any) As Long
Declare Sub ReleaseCapture Lib "User32" ()
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim ReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub[/code]

brauchst ne imagebox