Controls über Form bewegen (mit Docking)

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

      Controls über Form bewegen (mit Docking)

      Hi
      Das geht so:

      VB.NET-Quellcode

      1. 'Entfernen, wenn kein eingeschränkter Bereich existieren soll
      2. Dim DockLeft As Integer = 0
      3. Dim DockRight As Integer = 0
      4. Dim DockTop As Integer = 0
      5. Dim DockBottom As Integer = 0
      6. Dim TitleBarSize As Size
      8. Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. TitleBarSize = Me.Size - Me.ClientSize
      10. End Sub
      11. 'bis hier
      13. Dim Pos As Point
      15. Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
      16. Pos = e.Location
      17. Dim C As Control = DirectCast(sender, Control)
      18. End Sub
      20. Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
      21. If e.Button = Windows.Forms.MouseButtons.Left Then
      22. Dim C As Control = DirectCast(sender, Control)
      23. Dim Loc As Point = e.Location - Pos + C.Location
      24. 'Entfernen, wenn kein eingeschränkter Bereich existieren soll
      26. 'bei Docking einfach Dock anpassen (Vorschlag: 7; 7; 7; 7)
      27. If Loc.X < DockLeft Then
      28. Loc.X = 0
      29. End If
      30. If Loc.Y < DockTop Then
      31. Loc.Y = 0
      32. End If
      33. If Loc.X > C.Parent.Width - C.Size.Width - DockRight - 16 Then
      34. Loc.X = C.Parent.Width - C.Size.Width - 16
      35. End If
      36. If Loc.Y > C.Parent.Height - C.Size.Height - DockBottom - TitleBarSize.Height Then
      37. Loc.Y = C.Parent.Height - C.Size.Height - TitleBarSize.Height
      38. End If
      39. 'bis hier
      40. C.Location = Loc
      41. End If
      42. End Sub


      Gruß
      ~blaze~

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „~blaze~“ ()