Hallo liebe Forum-User,
Ich will meine Form(BorderStyle = None) verschiebbar machen.Meine Form ist komplett mit GDI gezeichnet.
Am oberen Rand der Form habe ich eine Leiste(25 px hoch).
Wenn man auf diese Leiste gedrückt hält und bewegt, soll sich die Form wie gewöhnlich verschieben lassen.
Das habe ich schon mal:
Ich habe schon vieles probiert, aber leider haben diese Versuche nicht funktioniert.
Ich würde mich über alle Tipps, Links und Codebeispiele freuen.
lg,
VB K1ng
Ich will meine Form(BorderStyle = None) verschiebbar machen.Meine Form ist komplett mit GDI gezeichnet.
Am oberen Rand der Form habe ich eine Leiste(25 px hoch).
Wenn man auf diese Leiste gedrückt hält und bewegt, soll sich die Form wie gewöhnlich verschieben lassen.
Das habe ich schon mal:
VB.NET-Quellcode
- Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
- Dim verschiebeFlaeche As New Rectangle(0, 0, Me.Width, 25)
- Dim maus As New Rectangle(e.X, e.Y, 1, 1)
- If (verschiebeFlaeche.IntersectsWith(maus) And e.Button = Windows.Forms.MouseButtons.Left) Then
- 'Hier soll der Code rein, um die Form zu verschieben.
- End If
- End Sub
Ich habe schon vieles probiert, aber leider haben diese Versuche nicht funktioniert.
Ich würde mich über alle Tipps, Links und Codebeispiele freuen.
lg,
VB K1ng