Hallo Leute !
Ich möchte gerne 2 forms aneinander bleiben auch wenn man die Forms mit der maus bewegt.
Ich habe zwar ein code geschrieben aber es gefällt mir nicht.
weil wenn man mit der maus die Forms bewegt sicht man das es leicht ausernader gehen und wieder zam
hat einer eine bessere lösung als meiner?
Danke für jede vorschläge
Ich möchte gerne 2 forms aneinander bleiben auch wenn man die Forms mit der maus bewegt.
Ich habe zwar ein code geschrieben aber es gefällt mir nicht.
weil wenn man mit der maus die Forms bewegt sicht man das es leicht ausernader gehen und wieder zam
hat einer eine bessere lösung als meiner?
VB.NET-Quellcode
- Public Class Form1
- Dim nStartPos, nDragPos As Point
- Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- Dim nCurPos As Point, nNewPos As Point
- nCurPos = Me.PointToScreen(New Point(e.X, e.Y))
- nNewPos = New Point(nStartPos.X + nCurPos.X - nDragPos.X, nStartPos.Y + nCurPos.Y - nDragPos.Y)
- Me.Location = nNewPos
- nNewPos.X += (Me.Width)
- Form2.Location = nNewPos
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Form2.Show()
- End Sub
- Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
- nStartPos = Me.Location
- End If
- End Sub
- End Class
Danke für jede vorschläge