Größe änderbar bei FormBoarderstyle None

  • VB.NET

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

    Hallo

    Hier ein Beispiel, das musst Du Dir eventuell noch anpassen.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Pos As Integer
    4. Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    5. If (e.X < Me.Width And Not e.X < Me.Width - 5) Then
    6. Pos = Me.Width - e.X
    7. Me.Cursor = Cursors.SizeWE
    8. End If
    9. End Sub
    11. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    12. If Me.Cursor = Cursors.SizeWE Then
    13. If e.Button = Windows.Forms.MouseButtons.Left Then
    14. Me.Width = (e.X - Pos)
    15. End If
    16. End If
    17. End Sub
    19. Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    20. Me.Cursor = Cursors.Default
    21. End Sub
    22. End Class

Facebook
Telefonspende