Control verschwindet, sofern die Maus nicht drauf ist

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

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

    Control verschwindet, sofern die Maus nicht drauf ist

    Hallo.

    Ich habe ein Problem und zwar verschwindet das Control,
    wenn die Maus nicht in der nähe bzw. auf dem Control ist.

    Code (nicht von mir):



    VB.NET-Quellcode

    1. Public Class Test : Inherits TrackBar
    2. Public Enum Stater As Short
    3. normal = 0
    4. press = 1
    5. hover = 2
    6. End Enum
    7. Public stat As Stater = stater.normal
    8. Public Sub New()
    9. MyBase.New()
    10. MyBase.SetStyle(ControlStyles.DoubleBuffer, True)
    11. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    12. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
    13. UpdateStyles()
    15. End Sub
    16. Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
    17. MyBase.OnPaintBackground(pevent)
    18. End Sub
    19. Protected Overrides ReadOnly Property CreateParams() As CreateParams
    20. Get
    21. Dim cp As CreateParams = MyBase.CreateParams
    22. cp.ExStyle = cp.ExStyle Or &H20
    23. 'WS_EX_TRANSPARENT
    24. Return cp
    25. End Get
    26. End Property
    27. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    28. MyBase.OnPaint(e)
    29. MyBase.OnPaintBackground(e)
    31. With (e.Graphics)
    32. .SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    34. .PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
    35. .InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
    36. .CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    37. e.Graphics.DrawLine(New Pen(New SolidBrush(NonValueLine), 3), New Point(0 + 12, CInt(Height / 2)), New Point(Width - 12, CInt(Height / 2)))
    39. Dim spektrum As Integer = Maximum - Minimum
    40. spectre = spektrum
    42. Dim pixel As Double = (((Math.Abs(Minimum) + Value) / spektrum) * (Width - 24)) + 12
    44. Dim CurrSi As Integer = CInt(Me.Height / 2)
    45. Dim größe As New Rectangle(CInt(pixel - 12), CurrSi - 12, 24, 24)
    46. Dim größe1 As New Rectangle(CInt(pixel - 5), CurrSi - 5, 10, 10)
    48. where = größe
    49. If stat = Stater.normal Then
    50. e.Graphics.FillEllipse(New SolidBrush(OutherCircleColor), größe)
    51. e.Graphics.FillEllipse(New SolidBrush(LineColor), größe1)
    52. e.Graphics.DrawLine(New Pen(New SolidBrush(LineColor), 3), New Point(0 + 12, CInt(Height / 2)), New Point(CInt(pixel), CInt(Height / 2)))
    53. ElseIf stat = Stater.hover Then
    54. e.Graphics.FillEllipse(New SolidBrush(Dark_Color(OutherCircleColor, 0.75)), größe)
    55. e.Graphics.FillEllipse(New SolidBrush(LineColor), größe1)
    56. e.Graphics.DrawLine(New Pen(New SolidBrush(LineColor), 3), New Point(0 + 12, CInt(Height / 2)), New Point(CInt(pixel), CInt(Height / 2)))
    57. End If
    58. End With
    59. e.Graphics.DrawString(MyBase.Value.ToString, New Font("Segoe UI", CSng(7)), Brushes.Black, New Point(20, 24))
    60. End Sub
    61. Dim where As Rectangle
    62. Dim drin As Boolean
    63. Dim x, y As Integer
    64. Dim spectre As Integer
    65. Private Sub DroidTrackbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    66. If x > where.X AndAlso x < (where.Width + where.X) Then
    67. If y > where.Y AndAlso y < (where.Height + where.Y) Then
    68. drin = True
    69. stat = Stater.normal
    70. End If
    71. End If
    72. End Sub
    73. Private Sub DroidTrackbar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    74. Try
    75. x = e.X
    76. y = e.Y
    77. If drin Then
    78. where.X = e.X
    79. Value = CInt((((e.X) / (Width)) * spectre) - Math.Abs(Minimum))
    80. If Value > Maximum Then Value = Maximum
    81. If Value < Minimum Then Value = Minimum
    83. Else
    85. If x > where.X AndAlso x < (where.Width + where.X) Then
    86. If y > where.Y AndAlso y < (where.Height + where.Y) Then
    87. stat = Stater.hover
    88. Else : stat = Stater.normal
    89. End If
    90. Else : stat = Stater.normal
    91. End If
    93. End If
    94. Me.Invalidate()
    95. Catch ex As Exception
    97. End Try
    99. End Sub
    100. Private Function Dark_Color(ByVal Col As Color, ByVal percent As Double) As Color
    101. If (percent = 0.5) Then
    102. Return Col
    103. ElseIf (percent > 0.5) Then
    104. Return Color.FromArgb(Col.A, CInt((255 - Col.R) * ((percent - 0.5) * 2) + Col.R), CInt((255 - Col.G) * ((percent - 0.5) * 2) + Col.G), CInt((255 - Col.B) * ((percent - 0.5) * 2) + Col.B))
    105. Else
    106. Return Color.FromArgb(Col.A, CInt(Col.R * percent * 2), CInt(Col.G * percent * 2), CInt(Col.B * percent * 2))
    107. End If
    108. End Function
    109. Private Sub DroidTrackbar_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    110. drin = False
    111. End Sub
    112. Dim lin As Color = Color.FromArgb(70, 151, 196)
    113. Public Property LineColor As Color
    114. Get
    115. Return lin
    116. End Get
    117. Set(ByVal value As Color)
    118. lin = value
    119. End Set
    120. End Property
    121. Dim out As Color = Color.FromArgb(119, 206, 234)
    122. Public Property OutherCircleColor As Color
    123. Get
    124. Return out
    125. End Get
    126. Set(ByVal value As Color)
    127. out = value
    128. End Set
    129. End Property
    130. Dim non As Color = Color.FromArgb(229, 229, 229)
    131. Public Property NonValueLine As Color
    132. Get
    133. Return non
    134. End Get
    135. Set(ByVal value As Color)
    136. non = value
    137. End Set
    138. End Property
    139. Private Sub DroidTrackbar_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Scroll
    140. Invalidate()
    141. End Sub
    142. End Class


    Kann mir jemand sagen, woran das liegt?

    @Daniel Baumert Jou, nicht nachvollziehbar.
    Erstell ein neues Projekt, kopier diesen Deinen Code in eine neue Klasse, kompiliere und zieh ein Control in Deine Form.
    Oder
    Welche Properties gegenüber Standard hast Du verändert?
    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!

Facebook