Hallo zusammen,

ich versuche verzweifelt es hinzubekommen das ich auf einer Form mehrer Panels habe und diese frei Positionieren kann.

Dies gelingt soweit auh doch nun will ich verhindern das die Panels aufeinander geschoben werden können.

Unten seht ihr ein Code der dies soweit auch macht aber nicht sauber genug.

Kann mir jemand sagen was ich falsch mache?



Dim nStartPos As Point
Dim nDragPos As Point


Private Sub Panel1_MouseDown(sender As Object, e As _
System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
nStartPos = Panel1.Location
nDragPos = Panel1.PointToScreen(New Point(e.X, e.Y))
End If
End Sub

Private Sub Panel1_MouseMove(sender As Object, e As _
System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nCurPos As Point = Panel1.PointToScreen(New Point(e.X, e.Y))
Dim NewPos As New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
nStartPos.Y + nCurPos.Y - nDragPos.Y)
Dim r As Rectangle = Panel1.Bounds
r.X = NewPos.X + 5
r.Y = NewPos.Y + 5
If r.IntersectsWith(Panel2.Bounds) Then Return
'ist ja nur für den Form Rand gedacht damit es nicht drüber raus
' gezogen werden kann
If NewPos.X < 1 Then NewPos.X = 1
If NewPos.X > 599 Then NewPos.X = 599
If NewPos.Y < 1 Then NewPos.Y = 1
If NewPos.Y > 367 Then NewPos.Y = 367
Panel1.Location = NewPos
End If
End Sub

Pack Dir die Position der Panels in Rectangle-Strukturen und prüfe dann mit Rectangle.IntersectsWith.

Ok und ich denke das hier mein Problem liegt das ich das nicht so recht verstehe

If r.IntersectsWith(Panel2.Bounds) Then Return


Kannst du mir hier evtl. ein wenig helfen?

Könnte man nicht einfach die position, breite und höhe eines panels und dann abfragen, ob des panel das andere berührt? Wenn es das berührt darf man es in die richtung nicht weiterbewegen. Das könntest du machen in dem du abfragst in welcher richtung das andere Panel liegt und wenn man des in die richtung schiebt wird des immer an den rand zurück gesezt. Ist so iwie sicherlich realisierbar.

Es gibt soviele varianten aber ich fand diese am besten. An sich läuft es ja auch ganz gut nur es ruckelt nach das Panel, und dies sieht unschön aus.

1. Bitte den VB-Tag benutzen, damit der Code für andere auch lesbar und nachvollziehbar wird.
2. InterSectsWith istschon der richtige Weg. Wenn du alle Panels verschieben möchtest, dann müssen auch alle Panels auf die Ereignisse reagieren. Deshalb im Mybase.Load-Ereignis die Zuweisung der Handler. Jetzt gelten die Ereignisprozeduren für alle Panels auf deiner Form. Die Addition von 5 im oberen Bereich habe ich herausgenommen, um dein Beispiel nachvollziehen zu können. Bei Bedarf musst du es wieder hinzufügen.
3. Da in den Ereignisprozeduren nicht immer das Panel1 gemeint ist, sondern das gerade verwendete Panel, musst du, anstatt Panel1 zu verwenden, das Sender-Objekt verwenden.
4. Ist nur ein Testbeispiel.

Hey Vielen Dank dir. Das war genau das was ich gesucht habe. Klasse endlich kann ich weitermachen.

Gruß Gizmo

Hallo,

vielleicht hilft mir hier nochmal jemand.

Das verschieben der verschiedenen Panels funktioniert ja tadellos. Nun möchte ich das ganze etwas ändern. Wenn das erste Panel verschoben wird und auf das 2te geschoben wird dann soll das 2te an die Position des ersten springen. Ich denke es ist möglich allerdings weiß ich noch nicht so recht wie. Mit der obigen Methode habe ich ein sehr guter Anfang. Aber wie bekomme ich die Position des 2ten Panels heraus. Bisher bekomme ich ja nur die Position des 1ten Panel mit und zwar die Start Position und die ablage Position aber ich muss ja denke ich zumindest auch die Position des 2ten mitbekommen