Rahmenlose Form mit Maus Vergrößern/Verkleinern

    • VB.NET
    • .NET (FX) 4.5–4.8

      Rahmenlose Form mit Maus Vergrößern/Verkleinern

      Moin Leudeee,

      ich hab mal einen Sourcecode geschrieben womit man die Form auch vergrößern kann wen Sie im BorderStyle=none ist, hierfür müsst ihr der Form einfach ein Panel Hinzufügen das auf Dock=Fill gestellt ist, Wahlweise würde es auch ohne Panel gehen da müsstet ihr aber den Handler von der Sub auf "Me.MouseMove" ändern.


      VB.NET-Quellcode

      1. Private Sub pnlMain_MouseMove(sender As Object,
      2. e As System.Windows.Forms.MouseEventArgs) Handles pnlMain.MouseMove
      4. If e.Button = Windows.Forms.MouseButtons.None Then
      5. If MousePosition.X > Me.Width + Me.Location.X - 5 And MousePosition.Y > Me.Height + Me.Location.Y - 5 Then
      6. Cursor = Cursors.SizeNWSE
      7. ElseIf MousePosition.X > Me.Location.X + Me.Width - 5 Then
      8. Cursor = Cursors.SizeWE
      9. ElseIf MousePosition.Y > Me.Location.Y + Me.Height - 5 Then
      10. Cursor = Cursors.SizeNS
      11. Else
      12. Cursor = Cursors.Default
      13. End If
      14. ElseIf e.Button = Windows.Forms.MouseButtons.Left Then
      15. Dim w As Integer = Math.Max(e.Location.X, 200)
      16. Dim h As Integer = Math.Max(e.Location.Y, 200)
      17. If Cursor = Cursors.SizeNWSE Then
      18. Me.Width = w : Me.Height = h
      19. ElseIf Cursor = Cursors.SizeWE Then
      20. Me.Width = w
      21. ElseIf Cursor = Cursors.SizeNS Then
      22. Me.Height = h
      23. End If
      24. End If
      25. End Sub


      Gruß, Matix

      PS: Wenn euch der Beitrg geholfen hat, dann bitte ein Hilfreich.
      Grüße, Matix

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Matix Media“ ()

    Facebook
    Telefonspende