Form ohne Titelleiste verschieben

[DNA]

Mit dem folgenden code könnt ihr eine Form verschieben, wenn diese
keine Titelleiste hat.

Am besten erstellt ihr euch ein neues Modul und fügt folgendes dort ein

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim drag As Boolean Dim mousex As Integer Dim mousey As Integer Public Sub MoveMouseDown(ByVal Form As Object) drag = True 'Sets the variable drag to true. mousex = Windows.Forms.Cursor.Position.X - Form.Left 'Sets variable mousex mousey = Windows.Forms.Cursor.Position.Y - Form.Top 'Sets variable mousey End Sub Public Sub MoveMouseMove(ByVal Form As Object) 'If drag is set to true then move the form accordingly. If drag = True Then Form.Top = Windows.Forms.Cursor.Position.Y - mousey Form.Left = Windows.Forms.Cursor.Position.X - mousex End If End Sub Public Sub MoveMouseUp() drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove End Sub

---

Zum aufrufen fügt man folgendes in Form1.vb ein

Code:

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown MoveMouseDown(Me) End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove MoveMouseMove(Me) End Sub Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp MoveMouseUp() End Sub

---

[Bluespide]

in VB.Net nehme ich nen anderen der is einfacher und kürzer finde ich:rolleyes:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13

Private MausPosition As Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then MausPosition = e.Location End If End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then Me.Location = e.Location - MausPosition + Me.Location End If End Sub

---