| Rubrik: Oberfläche · Effekte | VB-Versionen: VB4, VB5, VB6 | 16.06.02 |
 Blink-Label (auffallender Text)So fällt ihr Textfeld, Label, ... wirklich auf! | ||
Autor:  Nils | Bewertung:   | Views: 20.426 |
| ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Tja also das Textfeld (oder Label) und der Text selbst ändern ständig die Farbe (in diesem Fall 2 verschiedene...).
Da gibt es nicht viel zu sagen, es steht alles im Quellcode.
Einsatz findet diese Methode zum Beispiel bei Warnmeldungen. Man sollte jedoch einen Button zum Stoppen des Effektes einbauen, weil sich der Text bei bestimmten Farbkombinationen nich lesen lässt.
PS: Das klappt auch mit mehreren Farben sehr gut!
Sie brauchen:
- Label: lblMsg (oder auch TextBox-Control)
Timer: Timer1
2 Buttons: cmdStart und cmdStop - cmdStart mit "Start" und cmdStop mit "Stop" beschriften
- Und schließlich noch nachfolgenden VB-Code hinterlegen
Private Sub cmdStart_Click() ' Timer initialisieren Timer1.Interval = 100 Timer1.Enabled = True cmdStart.Enabled = False cmdStop.Enabled = True End Sub
Private Sub cmdStop_Click() ' Stoppen Timer1.Enabled = False cmdStart.Enabled = True cmdStop.Enabled = False End Sub
Private Sub Timer1_Timer() ' wenn Hintergrunfarbe = rot If lblMsg.BackColor = &HFF Then lblMsg.BackColor = &H0 ' Hintergrundfarbe = schwarz lblMsg.ForeColor = &HFF ' Vordergrundfarbe = rot Else ' Wenn der Hintergrund nicht schwarz ist lblMsg.BackColor = &HFF ' Hintergrund = rot lblMsg.ForeColor = &H0 ' Vordergrund = schwarz End If lblMsg.Refresh End Sub
Viel Spaß beim experimentieren!
