Windows Forms: FormBorderStyle None - Resize

  • C#
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    Windows Forms: FormBorderStyle None - Resize

    Hallo Zusammen,

    ich habe mal eine Frage zu der FormBorderStyle.None Eigenschaft. Wie bekomme ich es hin, dass ich meine Form dennoch mit der Maus resizen kann an den Kanten?

    Oder gibt es eine Alternative den Windows.Forms Border umzufärben?

    LG Marvin

    Du könntest auch eine PictureBox in den Ecken verwenden, hab ich selbst immer in der rechten unnteren Ecke gemacht, aber der Code is mit sicherheit entsprechend anpassbar:

    VB.NET-Quellcode

    1. Dim GripDrag As Boolean
    2. Dim InitialSizeX As Integer
    3. Dim InitialSizeY As Integer
    5. 'Verwendung einer PictureBox als SizeGrip ------------------------------------------------------------------------------------
    6. Private Sub picResize_MouseDown(sender As Object, e As MouseEventArgs) Handles picResize.MouseDown
    7. If e.Button = Windows.Forms.MouseButtons.Left Then 'If the control is being left-clicked
    8. GripDrag = True 'Confirms the grip is ready to be dragged
    9. InitialSizeX = Width 'Sets the initial width
    10. InitialSizeY = Height 'Sets the initial height
    11. End If
    12. End Sub
    14. Private Sub picResize_MouseMove(sender As Object, e As MouseEventArgs) Handles picResize.MouseMove
    15. If GripDrag = True Then
    16. Width = InitialSizeX + (Cursor.Position.X - (Width + Location.X)) 'Increases the width of the form by the amount the grip has been dragged towards the right
    17. Height = InitialSizeY + (Cursor.Position.Y - (Height + Location.Y)) 'Increases the height of the form by the amount the grip has been dragged downward
    19. InitialSizeX = Me.Width 'Resets the value to the form's current width
    20. InitialSizeY = Me.Height 'Resets the value to the form's current height
    22. Refresh()
    23. End If
    24. End Sub
    26. Private Sub picResize_MouseUp(sender As Object, e As MouseEventArgs) Handles picResize.MouseUp
    27. GripDrag = False 'Confirms the grip is no longer being dragged
    28. End Sub
    29. 'Verwendung einer PictureBox als SizeGrip ----------------------------------------------------------------------------------
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Dieses Forum macht echt keinen Spass, täglich neue ärgerliche Threads !

    Ich habe nur wenige Sekunden gebraucht, um was brauchbares zu finden !
    Und irgentwie sehe ich es nicht so richtig ein, die Ergebnisse meiner Mühen, freihaus zu liefern.

    Ein mal noch :)

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class FormResizer
    4. Dim TargetForm As Form
    5. Private _BorderWidth As Integer
    6. Private _ResizeDirect As resizeDirectection = resizeDirectection.None
    8. ''' <summary>
    9. ''' Make borderless Form resizeable.
    10. ''' </summary>
    11. ''' <param name="value">As Form</param>
    12. ''' <param name="borderWidth">(Optional) BorderWidth as Integer (Default = 4)</param>
    13. Sub New(ByVal value As Form, Optional borderWidth As Integer = 4)
    14. TargetForm = value
    15. _BorderWidth = borderWidth
    16. AddHandler TargetForm.MouseDown, AddressOf Form_MouseDown
    17. AddHandler TargetForm.MouseMove, AddressOf Form_MouseMove
    18. End Sub
    20. Public Enum resizeDirectection
    21. None = 0
    22. Left = 1
    23. TopLeft = 2
    24. Top = 3
    25. TopRight = 4
    26. Right = 5
    27. BottomRight = 6
    28. Bottom = 7
    29. BottomLeft = 8
    30. End Enum
    32. Public Property resizeDirect() As resizeDirectection
    33. Get
    34. Return _ResizeDirect
    35. End Get
    36. Set(ByVal value As resizeDirectection)
    37. _ResizeDirect = value
    38. Select Case value
    39. Case resizeDirectection.Left
    40. TargetForm.Cursor = Cursors.SizeWE
    41. Case resizeDirectection.Right
    42. TargetForm.Cursor = Cursors.SizeWE
    43. Case resizeDirectection.Top
    44. TargetForm.Cursor = Cursors.SizeNS
    45. Case resizeDirectection.Bottom
    46. TargetForm.Cursor = Cursors.SizeNS
    47. Case resizeDirectection.BottomLeft
    48. TargetForm.Cursor = Cursors.SizeNESW
    49. Case resizeDirectection.TopRight
    50. TargetForm.Cursor = Cursors.SizeNESW
    51. Case resizeDirectection.BottomRight
    52. TargetForm.Cursor = Cursors.SizeNWSE
    53. Case resizeDirectection.TopLeft
    54. TargetForm.Cursor = Cursors.SizeNWSE
    55. Case Else
    56. TargetForm.Cursor = Cursors.Default
    57. End Select
    58. End Set
    59. End Property
    61. <DllImport("user32.dll")>
    62. Public Shared Function ReleaseCapture() As Boolean
    63. End Function
    65. <DllImport("user32.dll")>
    66. Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    67. End Function
    69. Private Const WM_NCLBUTTONDOWN As Integer = &HA1
    70. Private Const HTBORDER As Integer = 18
    71. Private Const HTBOTTOM As Integer = 15
    72. Private Const HTBOTTOMLEFT As Integer = 16
    73. Private Const HTBOTTOMRIGHT As Integer = 17
    74. Private Const HTCAPTION As Integer = 2
    75. Private Const HTLEFT As Integer = 10
    76. Private Const HTRIGHT As Integer = 11
    77. Private Const HTTOP As Integer = 12
    78. Private Const HTTOPLEFT As Integer = 13
    79. Private Const HTTOPRIGHT As Integer = 14
    81. Private Sub ResizeForm(ByVal direction As resizeDirectection)
    82. Dim dir As Integer = -1
    83. Select Case direction
    84. Case resizeDirectection.Left
    85. dir = HTLEFT
    86. Case resizeDirectection.TopLeft
    87. dir = HTTOPLEFT
    88. Case resizeDirectection.Top
    89. dir = HTTOP
    90. Case resizeDirectection.TopRight
    91. dir = HTTOPRIGHT
    92. Case resizeDirectection.Right
    93. dir = HTRIGHT
    94. Case resizeDirectection.BottomRight
    95. dir = HTBOTTOMRIGHT
    96. Case resizeDirectection.Bottom
    97. dir = HTBOTTOM
    98. Case resizeDirectection.BottomLeft
    99. dir = HTBOTTOMLEFT
    100. End Select
    101. If dir <> -1 Then
    102. ReleaseCapture()
    103. SendMessage(TargetForm.Handle, WM_NCLBUTTONDOWN, dir, 0)
    104. End If
    105. End Sub
    107. Private Sub Form_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
    108. If e.Button = Windows.Forms.MouseButtons.Left And TargetForm.WindowState <> FormWindowState.Maximized Then
    109. ResizeForm(resizeDirect)
    110. End If
    111. End Sub
    113. Private Sub Form_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
    114. If e.Location.X < _BorderWidth And e.Location.Y < _BorderWidth Then
    115. resizeDirect = resizeDirectection.TopLeft
    116. ElseIf e.Location.X < _BorderWidth And e.Location.Y > TargetForm.Height - _BorderWidth Then
    117. resizeDirect = resizeDirectection.BottomLeft
    118. ElseIf e.Location.X > TargetForm.Width - _BorderWidth And e.Location.Y > TargetForm.Height - _BorderWidth Then
    119. resizeDirect = resizeDirectection.BottomRight
    120. ElseIf e.Location.X > TargetForm.Width - _BorderWidth And e.Location.Y < _BorderWidth Then
    121. resizeDirect = resizeDirectection.TopRight
    122. ElseIf e.Location.X < _BorderWidth Then
    123. resizeDirect = resizeDirectection.Left
    124. ElseIf e.Location.X > TargetForm.Width - _BorderWidth Then
    125. resizeDirect = resizeDirectection.Right
    126. ElseIf e.Location.Y < _BorderWidth Then
    127. resizeDirect = resizeDirectection.Top
    128. ElseIf e.Location.Y > TargetForm.Height - _BorderWidth Then
    129. resizeDirect = resizeDirectection.Bottom
    130. Else resizeDirect = resizeDirectection.None
    131. End If
    132. End Sub
    134. End Class

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim _FormResizer As New FormResizer(Me, 6)
    3. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „FormFollowsFunction“ ()

Facebook
Telefonspende