Fenster andocken und abdocken

    • VB.NET

      Fenster andocken und abdocken

      Ich habe mich mit diesem Thema auseinander gesetzt und folgende Lösung gefunden. Der Punkt war eigentlich folgendes. Ein User klickt ein Bild an und verschiebt die Form wo anders hin. Das Bild sollte aber angedockt folgen, aber auch abgedockt nicht folgen. Es sollte überall hin verschoben werden können aber nur an bestimmten Positionen als quasi docked erscheinen. Dabei wollte ich nicht, das das aufrufende Fenster die Arbeit verrichtet, sondern das das Bilderfenster von selbst erkennt, das etwas bestimmtes geschieht.

      Dazu habe ich einfach eine Form erstellt.

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private f2 As New Form2(Me)
      5. Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move
      6. Me.Text = "X: " & Me.DesktopLocation.X & " Y: " & Me.DesktopLocation.Y
      7. End Sub
      9. Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
      10. f2.Show()
      11. End Sub
      13. End Class


      Dieses Fenster zeigt einfach nur in seinem Titel die Position auf dem Desktop an. Zudem wird die Form2 alias f2 geöffnet.

      Quellcode Form2
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form2
      3. Private WithEvents _Owner As Form
      4. Private Docked As Boolean = True
      6. Public Sub New(owner As Form)
      7. InitializeComponent()
      8. _Owner = owner
      9. End Sub
      11. Private Sub Form2_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
      12. Me.Location = DefaultLocation()
      13. End Sub
      15. Private Sub _Owner_Move(sender As Object, e As System.EventArgs) Handles _Owner.Move
      16. If Docked = True Then
      17. Me.Location = DefaultLocation()
      18. End If
      19. End Sub
      21. Private Sub Form2_Move(sender As Object, e As System.EventArgs) Handles Me.Move
      22. Me.Text = "X: " & Me.DesktopLocation.X & " Y: " & Me.DesktopLocation.Y
      23. 'Checking X and Y Location
      24. If ((Me.DesktopLocation.X) > (_Owner.DesktopLocation.X + _Owner.Width + 20)) Or ((Me.DesktopLocation.X) < (_Owner.DesktopLocation.X + _Owner.Width - 20)) _
      25. Or ((Me.DesktopLocation.Y) > (_Owner.DesktopLocation.Y + 20)) Or ((Me.DesktopLocation.Y) < (_Owner.DesktopLocation.Y - 20)) Then
      26. Docked = False
      27. Else
      28. Me.Location = DefaultLocation()
      29. Docked = True
      30. End If
      31. End Sub
      33. Private Function DefaultLocation() As System.Drawing.Point
      34. Return New System.Drawing.Point(_Owner.DesktopLocation.X + _Owner.Width, _Owner.DesktopLocation.Y)
      35. End Function
      37. End Class



      Die TopMost Eigenschaft von Form2 wurde auf True gesetzte. Wenn man dies nicht tut, dann wird die Form zwar angezeigt, aber gerne hinter andere Formulare verschwinden. Eine Lösung dafür habe ich bisher nur darin gefunden einige Ereignisse direkt zu prüfen und dann die Form2 einfach zu schliessen. Ihr werdet aber schnell feststellen was ich meine.

      Im Prinzip funktioniert das Ganze so. Form2 erkennt das Ereignis Form.Move wenn Form2 selber als docked gekennzeichnet ist, dann wird sie der _Owner oder Form1 folgen. Ist Form2 selber nicht als docked gekennzeichnet dann folgt sie nicht. Form2 erkennt das selber, indem sie selber prüft ob sie sich in einem bestimmten Fenster bewegt. Das Fenster besteht darin, das um Form1 an der rechten oberen Ecke ein imaginäres kleines Quadrat von 40x40 Pixel erzeugt wird, auf dessen die eigene Position geprüft wird.

      VB.NET-Quellcode

      1. If ((Me.DesktopLocation.X) > (_Owner.DesktopLocation.X + _Owner.Width
      2. + 20)) Or ((Me.DesktopLocation.X) < (_Owner.DesktopLocation.X +
      3. _Owner.Width - 20))
      4. Or ((Me.DesktopLocation.Y) >
      5. (_Owner.DesktopLocation.Y + 20)) Or ((Me.DesktopLocation.Y) <
      6. (_Owner.DesktopLocation.Y - 20)) Then
      7. Docked = False
      8. Else
      9. Me.Location = DefaultLocation()
      10. Docked = True
      11. End If


      Ich hoffe es hat euch geholfen. Für eine Lösung des TopMost, wäre ich trotzdem dankbar. :rolleyes: