C# - Fade Label

  • C#
  • .NET (FX) 1.0–2.0

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Murdock.

    Kp, ob du Layered Windows bei Controls (sind ja auch Fenster) verwenden kannst; doch wenn ja, kannst du damit sehr leicht Controls überblenden. Müsstest du halt mal testen.

    Rikudo schrieb:

    überfaden
    Probier mal so was (ungetestet):
    2 transparente Controls (musste googeln) übereinanderlegen und gegeneinander die Transparenz ändern.
    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!

    Hab dafür einen total verrückten Code

    VB.NET-Quellcode

    1. Public Class BlendLabel
    2. Inherits Label
    4. Private t As Threading.Thread
    5. Private sf As New StringFormat With {.LineAlignment = StringAlignment.Near, .Alignment = StringAlignment.Near}
    7. Const WM_DESTROY = &H2
    9. Protected Overrides Sub WndProc(ByRef m As Message)
    10. MyBase.WndProc(m)
    11. If m.Msg = WM_DESTROY Then
    12. If Not t Is Nothing Then
    13. t.Abort()
    14. End If
    15. End If
    16. End Sub
    18. Public Overrides Property Text As String
    19. Get
    20. Return MyBase.Text
    21. End Get
    22. Set(value As String)
    23. If IsHandleCreated Then
    24. If Not t Is Nothing Then
    25. t.Abort()
    26. End If
    27. Dim args As New ThreadArgs(value, ForeColor)
    28. Dim pts As New Threading.ParameterizedThreadStart(AddressOf ChangeText)
    29. t = New Threading.Thread(pts)
    30. t.Start(args)
    31. Else
    32. MyBase.Text = value
    33. End If
    34. End Set
    35. End Property
    37. Sub New()
    38. MyBase.New()
    39. SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
    40. End Sub
    42. Private Function GetForeColor() As Color
    43. Return ForeColor
    44. End Function
    46. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    47. MyBase.OnPaint(e)
    48. e.Graphics.Clear(BackColor)
    49. Using sb As New SolidBrush(ForeColor)
    50. e.Graphics.DrawString(Text, Font, sb, ClientRectangle, sf)
    51. End Using
    52. End Sub
    54. Private Sub ChangeText(args As Object)
    55. Dim arg As ThreadArgs = DirectCast(args, ThreadArgs)
    56. While GetForeColor.A > 0
    57. Dim c As Color = GetForeColor()
    58. Dim a = c.A - 1
    59. Me.BeginInvoke(Sub() ForeColor = Color.FromArgb(a, c.R, c.G, c.B))
    60. Threading.Thread.Sleep(1)
    61. End While
    62. Me.BeginInvoke(Sub() MyBase.Text = arg.Text)
    63. While GetForeColor.A < 255
    64. Dim c As Color = GetForeColor()
    65. Dim a = c.A + 1
    66. Me.BeginInvoke(Sub() ForeColor = Color.FromArgb(a, c.R, c.G, c.B))
    67. Threading.Thread.Sleep(1)
    68. End While
    69. End Sub
    71. Private Class ThreadArgs
    73. Public Text As String
    74. Public ForeColor As Color
    76. Public Sub New(text As String, forecolor As Color)
    77. Me.Text = text
    78. Me.ForeColor = forecolor
    79. End Sub
    81. End Class
    83. End Class

Facebook
Telefonspende