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.
Gruß, Matix
PS: Wenn euch der Beitrg geholfen hat, dann bitte ein Hilfreich.
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
- Private Sub pnlMain_MouseMove(sender As Object,
- e As System.Windows.Forms.MouseEventArgs) Handles pnlMain.MouseMove
- If e.Button = Windows.Forms.MouseButtons.None Then
- If MousePosition.X > Me.Width + Me.Location.X - 5 And MousePosition.Y > Me.Height + Me.Location.Y - 5 Then
- Cursor = Cursors.SizeNWSE
- ElseIf MousePosition.X > Me.Location.X + Me.Width - 5 Then
- Cursor = Cursors.SizeWE
- ElseIf MousePosition.Y > Me.Location.Y + Me.Height - 5 Then
- Cursor = Cursors.SizeNS
- Else
- Cursor = Cursors.Default
- End If
- ElseIf e.Button = Windows.Forms.MouseButtons.Left Then
- Dim w As Integer = Math.Max(e.Location.X, 200)
- Dim h As Integer = Math.Max(e.Location.Y, 200)
- If Cursor = Cursors.SizeNWSE Then
- Me.Width = w : Me.Height = h
- ElseIf Cursor = Cursors.SizeWE Then
- Me.Width = w
- ElseIf Cursor = Cursors.SizeNS Then
- Me.Height = h
- End If
- End If
- End Sub
Gruß, Matix
PS: Wenn euch der Beitrg geholfen hat, dann bitte ein Hilfreich.
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Matix Media“ ()