Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Commandbutton oder dessen Schrift blinken lassen?

Commandbutton oder dessen Schrift blinken lassen?
19.12.2004 14:34:49
Frank
Hallo Excelperten,
ich möchte einen CommandButton oder dessen Schrift auf einer Userform blinken lassen. Gibt es da eine möglichst einfache Möglichkeit? Bin für jeden Tipp dankbar.
G JG
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton oder dessen Schrift blinken lassen?
19.12.2004 14:45:30
H.W
Hallo
aus meinem Archiv, also nicht von mir
Im folgendes Beispiel fängt die Schaltfläche im sekundentakt an zu blinken wenn man auf sie klickt und hört auch auf wenn man wieder draufklickt.
Nimm eine Schaltfläche aus dem Steuerelement-Toolbox (nicht aus Formular)
und nenne dieses cb. In einem Modul habe ich:
Sub startBlink()
mbblink = Not mbblink
Call blink1
End Sub
Sub blink1()
If mbblink Then
Sheets("10").cb.BackColor = RGB(255, 0, 0)
Sheets("10").cb.ForeColor = RGB(255, 255, 0)
Application.OnTime Now + TimeValue("00:00:01"), "blink2"
End If
End Sub
Sub blink2()
If mbblink Then
Sheets("10").cb.BackColor = RGB(255, 255, 0)
Sheets("10").cb.ForeColor = RGB(255, 0, 0)
Application.OnTime Now + TimeValue("00:00:01"), "blink1"
End If
End Sub
Im Code für die Schaltfläche habe ich

Private Sub cb_Click()
Call startBlink
End Sub

Anzeige
Vielen Dank, klappt!!!
19.12.2004 15:00:59
Frank
...
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige