Forums Neueste Beiträge
 

Blinkendes Label Control

11/12/2007 - 08:44 von Carsten Matterne | Report spam
Hallo, ich suche nach einem blinkenden oder soft fading Label Control.
Wißt ihr wo ich sowas finde ?

Mit fading meine ich einen soften Farbwechsel von z.b. Weiß nach Schwarz
(mit Graustufen) und wieder zurück
 

Lesen sie die antworten

#1 Karsten Sosna
11/12/2007 - 12:48 | Warnen spam
Hallo, ich suche nach einem blinkenden oder soft fading Label Control.
Wißt ihr wo ich sowas finde ?

Mit fading meine ich einen soften Farbwechsel von z.b. Weiß nach Schwarz
(mit Graustufen) und wieder zurück



"Karsten" schreibt man so. ;=)
Meinst Du sowas?
\\\
Public Class FadeLabel

Inherits Label

Private WithEvents Timer1 As New Timer
Private r As Byte

Public Sub New()

Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)

Timer1.Interval = 25
Timer1.Start()
End Sub

Protected Overrides Sub OnPaintBackground(ByVal pevent As
System.Windows.Forms.PaintEventArgs)
'MyBase.OnPaintBackground(pevent) 'Don't need, paint my own
background.
Using sb As New SolidBrush(Color.FromArgb(r, 0, 0))
pevent.Graphics.FillRectangle(sb, Me.ClientRectangle)
End Using
End Sub

Private Sub Timer_Tick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Timer.Tick
r = CByte((r + 16) Mod 256)
Me.Invalidate()
End Sub
End Class
///
Gruß Scotty

Ähnliche fragen