Button führt Event bei Doppelklick nur einmal aus

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

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Sekki.

    Button führt Event bei Doppelklick nur einmal aus

    Guten Abend,

    Ich habe einen Button auf meiner Form, welcher ein normales Event ausführt (in dem Fall addiert er die Zahl +1 mit jedem Klick und wenn er bei 6 angekommen ist, stellt er sich automatisch wieder auf 0). Ja, ist nicht der beste Code, darum habe ich mich aber in der kurzen Zeit nicht sonderlich gekümmert. Jedenfalls führt der Button bei einem schnell Klick das Event nur einmal aus (obwohl man zweimal geklickt hat). Unten seht ihr ein GIF, wo man es super sieht. Während ich jedoch die Maus beim klicken bewege, wird akkurat bei jedem Klick auch das Event ausgeführt. Meine Vermutung ist, dass die Bewegung der Maus beim Control etwas updated, ich kann mir beim besten Willen jedoch nicht vorstellen, was es ist. Habt ihr da vielleicht eine Lösung?



    VB.NET-Quellcode

    1. Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
    2. If btn.Text = 5 Then
    3. btn.Text = 0
    4. End If
    5. btn.Text += 1
    7. End Sub



    Button Control:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Class VisualButton : Inherits Control
    3. #Region " Variables"
    5. Private W, H As Integer
    6. Private _Rounded As Boolean = False
    7. Private State As MouseState = MouseState.None
    8. Private _None As Image = Nothing
    9. Private _Over As Image = Nothing
    10. Private _Down As Image = Nothing
    12. #End Region
    14. #Region " Properties"
    16. #Region " Colors"
    18. <Category("Colors")>
    19. Public Property BaseColor As Color
    20. Get
    21. Return _BaseColor
    22. End Get
    23. Set(value As Color)
    24. _BaseColor = value
    25. End Set
    26. End Property
    28. <Category("Colors")>
    29. Public Property TextColor As Color
    30. Get
    31. Return _TextColor
    32. End Get
    33. Set(value As Color)
    34. _TextColor = value
    35. End Set
    36. End Property
    38. <Category("Options")>
    39. Public Property Rounded As Boolean
    40. Get
    41. Return _Rounded
    42. End Get
    43. Set(value As Boolean)
    44. _Rounded = value
    45. End Set
    46. End Property
    48. <Category("Visual")>
    49. Public Property Over As Image
    50. Get
    51. Return _Over
    52. End Get
    53. Set(value As Image)
    54. _Over = value
    55. End Set
    56. End Property
    58. <Category("Visual")>
    59. Public Property None As Image
    60. Get
    61. Return _None
    62. End Get
    63. Set(value As Image)
    64. _None = value
    65. End Set
    66. End Property
    68. <Category("Visual")>
    69. Public Property Down As Image
    70. Get
    71. Return _Down
    72. End Get
    73. Set(value As Image)
    74. _Down = value
    75. End Set
    76. End Property
    78. #End Region
    80. #Region " Mouse States"
    82. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    83. MyBase.OnMouseDown(e)
    84. State = MouseState.Down : Invalidate()
    85. End Sub
    86. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    87. MyBase.OnMouseUp(e)
    88. State = MouseState.Over : Invalidate()
    89. End Sub
    90. Protected Overrides Sub OnMouseEnter(e As EventArgs)
    91. MyBase.OnMouseEnter(e)
    92. State = MouseState.Over : Invalidate()
    93. End Sub
    94. Protected Overrides Sub OnMouseLeave(e As EventArgs)
    95. MyBase.OnMouseLeave(e)
    96. State = MouseState.None : Invalidate()
    97. End Sub
    99. #End Region
    101. #End Region
    103. #Region " Colors"
    105. Private _BaseColor As Color = _FlatColor
    106. Private _TextColor As Color = Color.FromArgb(243, 243, 243)
    108. #End Region
    110. Sub New()
    111. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
    112. ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or
    113. ControlStyles.SupportsTransparentBackColor, True)
    114. DoubleBuffered = True
    115. Size = New Size(106, 25)
    116. BackColor = Color.Transparent
    117. Font = New Font("Segoe UI", 12)
    118. Cursor = Cursors.Hand
    119. BackgroundImage = _None
    120. End Sub
    122. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    123. B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    124. W = Width - 1 : H = Height - 1
    126. Dim GP As New GraphicsPath
    127. Dim Base As New Rectangle(0, 2, W, H)
    129. With G
    130. .SmoothingMode = 2
    131. .PixelOffsetMode = 2
    132. .TextRenderingHint = 5
    133. .Clear(BackColor)
    135. Select Case State
    136. Case MouseState.None
    137. Me.BackgroundImage = _None
    138. Case MouseState.Over
    139. Me.BackgroundImage = _Over
    140. Case MouseState.Down
    141. Me.BackgroundImage = _Down
    142. End Select
    144. '-- Text
    145. .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    147. End With
    149. MyBase.OnPaint(e)
    150. G.Dispose()
    151. e.Graphics.InterpolationMode = 7
    152. e.Graphics.DrawImageUnscaled(B, 0, 0)
    153. B.Dispose()
    154. End Sub
    155. End Class
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

    1. Bitte Option Strict On
    2. einfacher geht's mit x = (x Mod 5) + 1 <- korrigiert, da Du ja nicht bei Null anfangen willst ##########
    3. Zum Problem: Weil nicht nur das Click-, sondern in dem Fall wohl das DoubleClick-Event ausgelöst wird. Behandle also entsprechend jenen EventHandler mit x += 2 und Mod
    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.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VaporiZed“ ()

    1.) Ich versuche es mir anzugewöhnen. Ich liebe den Luxus in Visual Basic, dass er mir alles korrekt konvertiert.

    2.) Mit Mod(ulo?) muss ich mich noch auseinander setzen, dachte mir aber dass es eine einfachere Lösung gibt. Danke, dass du den Code direkt verbessert hast.

    3.) Hat wunderbar funktioniert. Wahrscheinlich wird beim DoubleClick-Event nicht mehr der ClickEvent ausgeführt. Habe einfach das DoubleClick Event in die Handler reingepackt.

    Ich bedanke mich für die schnelle Antwort, wie immer. c:
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

Facebook
Telefonspende