PanelMover - Panel bewegen mit gedrückter Maustaste (4Touch?)

    • VB.NET

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

      PanelMover - Panel bewegen mit gedrückter Maustaste (4Touch?)

      Da mein eeePC demnächst ein Touchpanel bekommt und ich einfach mal ein bisschen mit bewegbaren Panels herumgespielt habe, ist dabei folgender Code entstanden.

      Damit lassen sich Panels mit gedrückter Maustaste "verschieben" - das tolle dabei ist, dass es den Inhalt gleich mit nimmt ^^ !


      Highlights:
      • Nur eine Region per Copy & Paste einfügen
      • Aufruf mit nur einer Zeile

      Die folgende Region in der Klasse einfügen:

      VB.NET-Quellcode

      1. #Region "PanelMover"
      2. ' ---
      3. ' == PanelMover 1.0 ==
      4. ' Panels bewegen mit gedrückter Maustaste (für Touch zum Beispiel, etc.)
      5. ' 05.08.2010 René B.
      6. ' ---
      7. Structure PanelMoverStruct
      8. Dim PanelName As System.Windows.Forms.Panel
      9. Dim PosPanel As Point
      10. Dim PosMaus As Point
      11. End Structure
      13. Dim PanelMover As New PanelMoverStruct
      14. Public WithEvents tmrPanelMover As New Timer
      16. Public Sub tmrPanelMover_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrPanelMover.Tick
      17. PanelMover.PanelName.BringToFront()
      18. PanelMover.PanelName.Location = New Point(MousePosition.X - (PanelMover.PosMaus.X - PanelMover.PosPanel.X), MousePosition.Y - (PanelMover.PosMaus.Y - PanelMover.PosPanel.Y))
      19. End Sub
      21. Private Sub BewegePanelStart(ByVal PanelName As System.Windows.Forms.Panel)
      22. PanelMover.PanelName = CType(PanelName, Panel)
      23. PanelMover.PosMaus = MousePosition
      24. PanelMover.PosPanel = PanelMover.PanelName.Location
      26. tmrPanelMover.Interval = 20
      27. tmrPanelMover.Start()
      28. End Sub
      30. Private Sub BewegePanelEnde()
      31. PanelMover.PanelName = Nothing
      32. PanelMover.PosMaus = Nothing
      33. PanelMover.PosPanel = Nothing
      35. tmrPanelMover.Stop()
      36. End Sub
      37. #End Region


      Aufruf:

      VB.NET-Quellcode

      1. Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
      2. BewegePanelStart(CType(sender, Panel))
      3. End Sub


      Beenden:

      VB.NET-Quellcode

      1. Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
      2. BewegePanelEnde()
      3. End Sub


      ---

      Comments erwünscht! Weiss zwar nicht, ob es jemand wirklich etwas produktives bringt, aber ich fande, dass es einen netten Effekt gibt!

      Ich glaube, das geht auch ohne Timer:

      VB.NET-Quellcode

      1. Public Class Form1
      2. ' Maus-Koordinaten
      3. Dim nStartPos As Point
      4. Dim nDragPos As Point
      5. Private Sub MoveControl(ByVal ctrl As Control, ByVal e As System.Windows.Forms.MouseEventArgs)
      6. If e.Button = Windows.Forms.MouseButtons.Left Then
      8. ' aktuelle Mausposition bezogen auf den Desktop ermitteln
      9. Dim nCurPos As Point = ctrl.PointToScreen(New Point(e.X, e.Y))
      11. ' Neue Position des Controls berechnen
      12. Dim nNewPos As New Point(nStartPos.X + nCurPos.X - nDragPos.X, _
      13. nStartPos.Y + nCurPos.Y - nDragPos.Y)
      15. ' Neue Koordianten prüfen und sicherstellen, dass das Control
      16. ' nicht aus den sichtbaren Bereich der Form verschoben wird
      17. With nNewPos
      18. If .X < Me.ClientRectangle.Left Then .X = Me.ClientRectangle.Left
      19. If .X + ctrl.Width > Me.ClientRectangle.Right Then
      20. .X = Me.ClientRectangle.Right - ctrl.Width
      21. End If
      22. If .Y < Me.ClientRectangle.Top Then .Y = Me.ClientRectangle.Top
      23. If .Y + ctrl.Height > Me.ClientRectangle.Bottom Then
      24. .Y = Me.ClientRectangle.Bottom - ctrl.Height
      25. End If
      26. End With
      28. ' Control an neuen Position verschieben
      29. ctrl.Location = nNewPos
      30. End If
      31. End Sub
      33. Private Sub SetPositions(ByVal ctrl As Control, ByVal e As System.Windows.Forms.MouseEventArgs)
      34. If e.Button = Windows.Forms.MouseButtons.Left Then
      35. nStartPos = ctrl.Location
      36. nDragPos = ctrl.PointToScreen(New Point(e.X, e.Y))
      37. End If
      38. End Sub


      Aufruf:

      VB.NET-Quellcode

      1. Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
      2. ' aktuelle Position des Controls und der Maus merken
      3. SetPositions(Button1, e)
      4. End Sub
      6. Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
      7. MoveControl(Button1, e)
      8. End Sub


      Angepasst von: vbarchiv.net/tipps/tipp_1896.html


      Gruss
      Pascal

    Facebook
    Telefonspende