Animation im Label-Control Dieser Tipp zeigt, wie sich aus dem Standard Label-Control ein animiertes Label-Control machen lässt.
Autor:   ArthurW	Bewertung:	Views:  19.045
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Dieser Tipp zeigt, wie sich aus dem Standard Label-Control ein animiertes Label-Control machen lässt. Platzieren Sie hierzu ein Label auf die Form und zusätzlich noch ein Timer-Control.

Fügen Sie nachfolgenden Code in das Codefenster der Form ein:

Option Explicit
 
Private Sub Form_Load()
  Label1.Caption = " AnimatedLabel "
 
  ' Timer initialisieren
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Static A As Integer
 
  A = A + 10
  If A > 510 Then A = 0
 
  ' Um den Effekt zu ändern, geben Sie für den Green- und 
  ' Blau-Anteil der RGB-Funktion einfach andere Werte als 
  ' 0 an. 
  ' Ebenfalls können Sie natürlich auch den Rot-Anteil 
  ' ändern (Abs(A - 256)). Versuchenn Sie es beispielsweise 
  ' mit Zahlen zwischen (0 + 255).
  ' 
  ' Um die Geschwindigkeit der Animation zu ändern müssen 
  ' Sie das Timer-Interval im Form_Load Ereignis verändern.
 
  ' neue Hintergrundfarbe setzen
  Label1.BackColor = RGB(Abs(A - 256), 0, 0)
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.