Form verschieben

[iBlack]

Hey,
also wenn man bei "FormBorderStyle" "none" angibt, kann man die Form ja nichtmehr verschieben..
Könnte mir eventuell einer sagen wie man es machen kann, damit man die Form wieder "anfassen" kann und beliebig nach links oder rechts verschieben kann?

Wäre echt super,
Danke im Vorraus!
iBlack

[Diebspiel]

Global deklarieren:

Public Const WM_NCLBUTTONDOWN As Integer = &HA1
    Public Const HT_CAPTION As Integer = &H2
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32

Dann:

Private Sub Form1_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
        End If
    End Sub

Code ist aus VB-Paradise.

/E: Fehler im Code behoben

[uncopyable]

Das geht auch ohne Api

Dim mouseOffset As Point

    Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        mouseOffset = New Point(-e.X, -e.Y)
    End Sub

    Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove

        If e.Button = MouseButtons.Left Then
            Dim mousePos = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If
    End Sub

mfg