Form Headerfarbe

  • VB.NET

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

    @Rikudo
    1 Sekunde gegooglet...
    social.msdn.microsoft.com/Foru…5-4e2a-995b-bd52a1ff690f/

    Siehe,
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'A form with custom border and title bar.
    2. 'Some functions, such as resize the window via mouse, are not implemented yet.
    3. Public Class Form1
    5. 'The color and the width of the border.
    6. Private borderColor As Color = Color.GreenYellow
    7. Private borderWidth As Integer = 3
    8. 'The color and region of the header.
    9. Private headerColor As Color = Color.GreenYellow
    10. Private headerRect As Rectangle
    11. 'The region of the client.
    12. Private clientRect As Rectangle
    13. 'The region of the title text.
    14. Private titleRect As Rectangle
    15. 'The region of the minimum button.
    16. Private miniBoxRect As Rectangle
    17. 'The region of the maximum button.
    18. Private maxBoxRect As Rectangle
    19. 'The region of the close button.
    20. Private closeBoxRect As Rectangle
    21. 'The states of the three header buttons.
    22. Private miniState As ButtonState
    23. Private maxState As ButtonState
    24. Private closeState As ButtonState
    25. 'Store the mouse down point to handle moving the form.
    26. Private x As Integer = 0
    27. Private y As Integer = 0
    28. 'The height of the header.
    29. Const HEADER_HEIGHT As Integer = 25
    30. 'The size of the header buttons.
    31. ReadOnly BUTTON_BOX_SIZE As Size = New Size(15, 15)
    33. Private Sub CustomBorderColorForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    34. 'Hide the border and the title bar.
    35. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    36. End Sub
    38. Private Sub CustomBorderColorForm_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    39. 'Draw the header.
    40. Using b As Brush = New SolidBrush(borderColor)
    41. e.Graphics.FillRectangle(b, headerRect)
    42. End Using
    43. 'Draw the title text
    44. Using b As Brush = New SolidBrush(Me.ForeColor)
    45. e.Graphics.DrawString(Me.Text, Me.Font, b, titleRect)
    46. End Using
    47. 'Draw the header buttons.
    48. If Me.MinimizeBox Then
    49. ControlPaint.DrawCaptionButton(e.Graphics, miniBoxRect, CaptionButton.Minimize, miniState)
    50. End If
    51. If Me.MinimizeBox Then
    52. ControlPaint.DrawCaptionButton(e.Graphics, maxBoxRect, CaptionButton.Maximize, maxState)
    53. End If
    54. If Me.MinimizeBox Then
    55. ControlPaint.DrawCaptionButton(e.Graphics, closeBoxRect, CaptionButton.Close, closeState)
    56. End If
    57. 'Draw the border.
    58. ControlPaint.DrawBorder(e.Graphics, clientRect, borderColor, _
    59. borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid, borderColor, borderWidth, ButtonBorderStyle.Solid)
    60. End Sub
    62. 'Handle resize to adjust the region ot border, header and so on.
    63. Private Sub CustomBorderColorForm_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
    64. headerRect = New Rectangle(Me.ClientRectangle.Location, New Size(Me.ClientRectangle.Width, HEADER_HEIGHT))
    65. clientRect = New Rectangle(New Point(Me.ClientRectangle.Location.X, Me.ClientRectangle.Y + HEADER_HEIGHT), _
    66. CType(New Point(Me.ClientRectangle.Width, Me.ClientRectangle.Height - HEADER_HEIGHT), Drawing.Size))
    67. Dim yOffset = (headerRect.Height + borderWidth - BUTTON_BOX_SIZE.Height) / 2
    68. titleRect = New Rectangle(CInt(yOffset), CInt(yOffset), _
    69. CInt(Me.ClientRectangle.Width - 3 * (BUTTON_BOX_SIZE.Width + 1) - yOffset), _
    70. BUTTON_BOX_SIZE.Height)
    71. miniBoxRect = New Rectangle(Me.ClientRectangle.Width - 3 * (BUTTON_BOX_SIZE.Width + 1), _
    72. CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
    73. maxBoxRect = New Rectangle(Me.ClientRectangle.Width - 2 * (BUTTON_BOX_SIZE.Width + 1), _
    74. CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
    75. closeBoxRect = New Rectangle(Me.ClientRectangle.Width - 1 * (BUTTON_BOX_SIZE.Width + 1), _
    76. CInt(yOffset), BUTTON_BOX_SIZE.Width, BUTTON_BOX_SIZE.Height)
    77. Me.Invalidate()
    78. End Sub
    81. Private Sub CustomBorderColorForm_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    82. 'Start to move the form.
    83. If (titleRect.Contains(e.Location)) Then
    84. x = e.X
    85. y = e.Y
    86. End If
    88. 'Check and press the header buttons.
    89. Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
    90. If (miniBoxRect.Contains(mousePos)) Then
    91. miniState = ButtonState.Pushed
    92. ElseIf (maxBoxRect.Contains(mousePos)) Then
    93. maxState = ButtonState.Pushed
    94. ElseIf (closeBoxRect.Contains(mousePos)) Then
    95. closeState = ButtonState.Pushed
    96. End If
    98. End Sub
    100. Private Sub CustomBorderColorForm_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    101. 'Move and refresh.
    102. If (x <> 0 And y <> 0) Then
    103. Me.Location = New Point(Me.Left + e.X - x, Me.Top + e.Y - y)
    104. Me.Refresh()
    105. End If
    107. End Sub
    109. Private Sub CustomBorderColorForm_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    110. 'Reset the mouse point.
    111. x = 0
    112. y = 0
    114. 'Check the button states and modify the window state.
    115. If miniState = ButtonState.Pushed Then
    116. Me.WindowState = FormWindowState.Minimized
    117. miniState = ButtonState.Normal
    118. ElseIf maxState = ButtonState.Pushed Then
    119. If Me.WindowState = FormWindowState.Normal Then
    120. Me.WindowState = FormWindowState.Maximized
    121. maxState = ButtonState.Checked
    122. Else
    123. Me.WindowState = FormWindowState.Normal
    124. maxState = ButtonState.Normal
    125. End If
    126. ElseIf closeState = ButtonState.Pushed Then
    127. Me.Close()
    128. End If
    130. End Sub
    132. 'Handle this event to maxmize/normalize the form via double clicking the title bar.
    133. Private Sub CustomBorderColorForm_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
    134. If (titleRect.Contains(e.Location)) Then
    135. If Me.WindowState = FormWindowState.Normal Then
    136. Me.WindowState = FormWindowState.Maximized
    137. maxState = ButtonState.Checked
    138. Else
    139. Me.WindowState = FormWindowState.Normal
    140. maxState = ButtonState.Normal
    141. End If
    142. End If
    143. End Sub
    144. End Class


    Mfg.eniking1998
    Bilder

    • Anhang.png

      262,91 kB, 1.366×768, 343 mal angesehen

    Die korrekte Lösung würde lauten WndProc zu überschreiben und diese Message abzufangen:
    msdn.microsoft.com/en-us/libra…op/dd145212(v=vs.85).aspx


    Dann über m.HWND ein Graphics Objekt erstellen und damit zeichnen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

Facebook
Telefonspende