Resizen per Mauszeiger

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von F.A Development.

    Resizen per Mauszeiger

    Wie der Titel schon sagt möchte ich per maus meine (formborderstyle = none) Form per maus vergrößern/verkleinern..

    Hab folgenden Code zum bewegen der Form, hab probiert den zu ändern
    hat aber ned geklappt..

    VB.NET-Quellcode

    1. Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    2. MyClass.MouseButton = e.Button()
    3. With MyClass.CurrentPosition
    4. .X = e.X()
    5. .Y = e.Y()
    6. End With
    7. End Sub
    9. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    10. Select Case MouseButton
    11. Case Is = Windows.Forms.MouseButtons.Left
    12. MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
    13. MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
    14. Exit Sub
    15. End Select
    16. End Sub
    18. Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    19. MyClass.MouseButton = Nothing
    20. End Sub


    Hoffe auf Hilfe ;)