Ideen gesucht, bessere Effekte eines eigenen Buttons

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

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

    Ideen gesucht, bessere Effekte eines eigenen Buttons

    Hallo Ihr Lieben,

    ich hab mal wieder eine Frage zum guten alten GDI, ich habe eine neue Klasse erstellt, diese von Button erben lassen und zeichne natürlich auch etwas drauf ^^

    Ich habe versucht einen "Hover-Effect" und einen "Klick-Effekt einzubauen" hierfür wechsle ich aktuell einfach bei "MouseEnter", "MouseDown", "MouseLeave" und "MouseUP" die Hintergrundfarbe. Das Problem ist, wenn ich mit dem Button z.B. eine MessageBox öffne, bleibt nach dem schließen der MessageBox, die Farbe auf der "KlickFarbe", da der Button anscheinend das MouseLeaveEvent nicht mehr mitkriegt. Kennt jemand zufällif einen Weg um dieses Verhalten zu Umgehen ?


    Hier der Aktuell verwendete Code (Neue Klasse, erbt von Button)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    3. Imports System.Drawing.Drawing2D
    4. Imports System.Drawing.Text
    6. Public Class DKButton
    7. Inherits Windows.Forms.Button
    9. Private MouseState As MouseState = MouseState.None
    11. Public Sub New()
    12. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True)
    13. DoubleBuffered = True
    14. Me.UpdateStyles()
    15. End Sub
    17. Dim _HoverColor As Color = Color.DimGray
    18. Public Property HoverColor As Color
    19. Get
    20. Return _HoverColor
    21. End Get
    22. Set(value As Color)
    23. _HoverColor = value
    24. Invalidate()
    25. End Set
    26. End Property
    28. Dim _ClickColor As Color = Color.OrangeRed
    29. Public Property ClickColor As Color
    30. Get
    31. Return _ClickColor
    32. End Get
    33. Set(value As Color)
    34. _ClickColor = value
    35. Invalidate()
    36. End Set
    37. End Property
    39. Dim _Border As Boolean = True
    40. Property Border As Boolean
    41. Get
    42. Return _Border
    43. End Get
    44. Set(value As Boolean)
    45. _Border = value
    46. Invalidate()
    47. End Set
    48. End Property
    50. Dim _BorderColor As Color = Color.Black
    51. Public Property BorderColor As Color
    52. Get
    53. Return _BorderColor
    54. End Get
    55. Set(value As Color)
    56. _BorderColor = value
    57. Invalidate()
    58. End Set
    59. End Property
    61. Dim _Hatch As Boolean = True
    62. Property Hatch As Boolean
    63. Get
    64. Return _Hatch
    65. End Get
    66. Set(value As Boolean)
    67. _Hatch = value
    68. Invalidate()
    69. End Set
    70. End Property
    72. Dim _HatchColor As Color = Color.Gray
    73. Property HatchColor As Color
    74. Get
    75. Return _HatchColor
    76. End Get
    77. Set(value As Color)
    78. _HatchColor = value
    79. Invalidate()
    80. End Set
    81. End Property
    83. Dim _GlassEffect As Boolean = True
    84. Property GlassEffect As Boolean
    85. Get
    86. Return _GlassEffect
    87. End Get
    88. Set(value As Boolean)
    89. _GlassEffect = value
    90. Invalidate()
    91. End Set
    92. End Property
    94. Dim _GlassEffectColor As Color = Color.White
    95. Property GlassEffectColor As Color
    96. Get
    97. Return _GlassEffectColor
    98. End Get
    99. Set(value As Color)
    100. _GlassEffectColor = value
    101. Invalidate()
    102. End Set
    103. End Property
    105. Private Function GetTextPosition(ByVal TextSize As SizeF) As PointF
    106. Dim DrawToRect As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
    107. Return New PointF(((DrawToRect.Width \ 2) - (CInt(TextSize.Width) \ 2)), ((DrawToRect.Height \ 2) - (CInt(TextSize.Height) \ 2)))
    108. End Function
    110. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    111. With e.Graphics
    112. .TextRenderingHint = TextRenderingHint.ClearTypeGridFit
    113. .SmoothingMode = SmoothingMode.AntiAlias
    114. .InterpolationMode = InterpolationMode.HighQualityBicubic
    115. .CompositingQuality = CompositingQuality.HighQuality
    116. .PixelOffsetMode = PixelOffsetMode.HighQuality
    118. Dim tmp_Color As Color = Color.DarkGray
    119. Select Case MouseState
    120. Case Helpers.MouseState.None
    121. tmp_Color = Me.BackColor
    122. Case Helpers.MouseState.Over
    123. tmp_Color = _HoverColor
    124. Case Helpers.MouseState.Pressed
    125. tmp_Color = _ClickColor
    126. End Select
    128. Using BackgroundBrush As New SolidBrush(tmp_Color)
    129. .FillRectangle(BackgroundBrush, New Rectangle(0, 0, Width, Height))
    130. End Using
    132. If _Hatch Then
    133. Using HatchBrush As New HatchBrush(HatchStyle.DarkDownwardDiagonal, Color.FromArgb(75, _HatchColor), Color.Transparent)
    134. .FillRectangle(HatchBrush, New Rectangle(0, 0, Width, Height))
    135. End Using
    136. End If
    138. If _GlassEffect Then
    139. Using GlassEffectBrush As New LinearGradientBrush(New Rectangle(0, 0, Me.Width, Me.Height \ 2), Color.FromArgb(180, _GlassEffectColor), Color.FromArgb(25, _GlassEffectColor), LinearGradientMode.Vertical)
    140. .FillRectangle(GlassEffectBrush, New Rectangle(0, 0, Width, Height \ 2))
    141. End Using
    142. End If
    144. If _Border Then
    145. Using BorderBrush As New SolidBrush(_BorderColor)
    146. Using BorderPen As New Pen(BorderBrush, 2)
    147. .DrawRectangle(BorderPen, New Rectangle(0, 0, Width, Height))
    148. End Using
    149. End Using
    150. End If
    152. Using ButtonTextBrush As New SolidBrush(ForeColor)
    153. .DrawString(Text, Font, ButtonTextBrush, GetTextPosition(.MeasureString(Text, Font)), StringFormat.GenericDefault)
    154. End Using
    155. End With
    156. End Sub
    158. Protected Overrides Sub OnMouseEnter(e As EventArgs)
    159. MyBase.OnMouseEnter(e)
    160. Invalidate()
    161. MouseState = Helpers.MouseState.Over
    162. Invalidate()
    163. End Sub
    165. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    166. MyBase.OnMouseDown(e)
    167. Invalidate()
    168. MouseState = Helpers.MouseState.Pressed
    169. Invalidate()
    170. End Sub
    172. Protected Overrides Sub OnMouseLeave(e As EventArgs)
    173. MyBase.OnMouseEnter(e)
    174. Invalidate()
    175. MouseState = Helpers.MouseState.None
    176. Invalidate()
    177. End Sub
    179. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    180. Dim R As Rectangle = New Rectangle(0, 0, Width, Height)
    181. If R.Contains(e.Location) Then
    182. MyBase.OnMouseUp(e)
    183. Invalidate()
    184. MouseState = Helpers.MouseState.Over
    185. Invalidate()
    186. Else
    187. MyBase.OnMouseUp(e)
    188. Invalidate()
    189. MouseState = Helpers.MouseState.None
    190. Invalidate()
    191. End If
    192. End Sub
    194. End Class
    196. Public Class Helpers
    197. Public Enum MouseState
    198. None
    199. Over
    200. Pressed
    201. End Enum
    202. End Class

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Ich kapier's gerade nicht. Der Button ist hellgrau. Ich geh mit der Maus drüber -> dunkelgrau. Wenn ich den Button anklicke, wird er bei mir rot, dann hellgrau, dann taucht die MessageBox auf. Und wenn ich die Box schließe, wird das Ding dunkelgrau, wenn die Maus noch über dem Button ist oder bleibt hellgrau, wenn die Maus nicht drüber ist. Was soll anders sein? Denn so verhält sich der normale Button auch (bei mir).
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hm om, wenn ich mit der maus draufgehe wird er dunkelgrau, dann beim klick rot, nun wird er weiss und die Messagebox geht auf, aber sobald ich diese schließe, ist der Button Dunkelgrau, als wäre der Hover noch gegeben...
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Wenn die Maus beim Schließen über dem Button ist, ist das ja auch korrekt. Genauso verhält sich der normale Button auch:
    • Maus drüber: Hover
    • Klick: Klick
    • MessageBox: wie Maus-nicht-über-Button
    • MB zumachen: Farbe abhängig von Mausposition (Hover oder Deselect)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @asusdk Was mir noch auffällt:
    Buttons klicken ja auch, wenn sie den Fokus habewn und man die Leertaste drückt.
    Ein "normaler" Button zeigt das an, Deiner nicht.
    Da müsstest Du noch ein paar Key-Events überladen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mir sind zwei Dinge aufgefallen.

    Zum ersten, würde ich noch zwei Public Propertys anlegen, nähmlich HatchStyle und HatchOpacity (Alpha Wert von Color).

    Zum zweiten, liefert Graphics.DrawString() unschöhne Ergebnisse, verwende lieber TextRenderer.DrawText().


    1. Zeile: Graphics.DrawString(..., StringFormat.GenericDefault)
    2. Zeile: Graphics.DrawString(..., StringFormat.GenericTypographic)
    3. Zeile: TextRenderer.DrawTex(...)
    4. Zeile: Label
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Text
    3. Public Class Form1
    5. Private TestString As String = "abcdefghijklmnopqrstuvwxyz"
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Dim label As New Label
    9. With label
    10. .AutoSize = True
    11. .Location = New Point(10, 70)
    12. .Text = TestString
    13. End With
    14. Controls.Add(label)
    15. End Sub
    17. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    18. With e.Graphics
    19. .TextRenderingHint = TextRenderingHint.ClearTypeGridFit
    21. Using ButtonTextBrush As New SolidBrush(ForeColor)
    22. .DrawString(TestString,
    23. Font,
    24. ButtonTextBrush,
    25. New Point(10, 10),
    26. StringFormat.GenericDefault)
    27. .DrawString($"Width: { .MeasureString(TestString, Font).Width.ToString}",
    28. Font,
    29. ButtonTextBrush,
    30. New Point(CInt(.MeasureString(TestString, Font).Width) + 20, 10),
    31. StringFormat.GenericDefault)
    32. End Using
    34. Using ButtonTextBrush As New SolidBrush(ForeColor)
    35. .DrawString(TestString,
    36. Font,
    37. ButtonTextBrush,
    38. New Point(10, 30),
    39. StringFormat.GenericTypographic)
    40. .DrawString($"Width: { .MeasureString(TestString, Font).Width.ToString}",
    41. Font,
    42. ButtonTextBrush,
    43. New Point(CInt(.MeasureString(TestString, Font).Width) + 20, 30),
    44. StringFormat.GenericTypographic)
    45. End Using
    47. TextRenderer.DrawText(e.Graphics,
    48. TestString,
    49. Font,
    50. New Point(10, 50), ForeColor)
    51. TextRenderer.DrawText(e.Graphics,
    52. $"Width: {TextRenderer.MeasureText(TestString, Font).Width.ToString}",
    53. Font, New Point(TextRenderer.MeasureText(TestString, Font).Width + 20, 50),
    54. ForeColor)
    56. End With
    57. End Sub
    59. End Class

    Graphics.MeasureString() und TextRenderer.MeasureText() liefern auch unterschiedliche Ergebnisse.

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

    Hm. mit Textrenderer, passiert goar nix, der Button bleibt leer ?


    VB.NET-Quellcode

    1. Using ButtonTextBrush As New SolidBrush(_TextColor)
    2. TextRenderer.DrawText(e.Graphics, $"Width: {TextRenderer.MeasureText(ButtonText, Font).Width.ToString}", Font, New Point(TextRenderer.MeasureText(ButtonText, Font).Width, 50), ForeColor)
    3. End Using

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    @asusdk Lass mal das Using weg und verwende _TextColor statt ForeColor.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Genau.

    Einfach ....

    VB.NET-Quellcode

    1. Using ButtonTextBrush As New SolidBrush(ForeColor)
    2. .DrawString(Text, Font, ButtonTextBrush, GetTextPosition(.MeasureString(Text, Font)), StringFormat.GenericDefault)
    3. End Using

    ... durch ...

    VB.NET-Quellcode

    1. TextRenderer.DrawText(e.Graphics, Text, Font, GetTextPosition(GetTextSize(Text, Font)), ForeColor)

    ... ersetzen.

    Und was ich vergessen habe, zu erwähnen, ist daß TextRenderer.DrawText() Point anstatt PointF erwartet, ergo ...

    VB.NET-Quellcode

    1. Private Function GetTextPosition(ByVal TextSize As SizeF) As PointF
    2. Dim DrawToRect As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
    3. Return New PointF(((DrawToRect.Width \ 2) - (CInt(TextSize.Width) \ 2)), ((DrawToRect.Height \ 2) - (CInt(TextSize.Height) \ 2)))
    4. End Function

    ... durch ...

    VB.NET-Quellcode

    1. Private Function GetTextPosition(ByVal _textSize As Size) As Point
    2. Dim DrawToRect As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
    3. Return New Point((DrawToRect.Width \ 2) - (_textSize.Width) \ 2,
    4. (DrawToRect.Height \ 2) - (_textSize.Height) \ 2)
    5. End Function

    ... ersetzen.
    Positiver Nebeneffekt ist dabei, daß keine Typenumwandlung nötig ist.

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

Facebook
Telefonspende