Lauflichteffekt für Commandbutton
reiner
mit nachfolgendem Programmcode ist es möglich 3 "OptionsButton" nacheinander durch Farbänderungen kurz "aufleuchten" zu lassen bis eine der 3 Optionsschaltflächen betätigt wird:
Private Sub prcStartFlashNummern_OPT() 'Lauflichteffekt erzeugen
Do
Controls("opt1").ForeColor = &HFF&
DoEvents
Sleep 100
Controls("opt1").ForeColor = &H80000012
DoEvents
If Not blnFlashNummern_OPT Then Exit Do
Sleep 100
Controls("opt2").ForeColor = &HFF&
DoEvents
Sleep 100
Controls("opt2").ForeColor = &H80000012
DoEvents
If Not blnFlashNummern_OPT Then Exit Do
Sleep 100
Controls("opt3").ForeColor = &HFF&
DoEvents
Sleep 100
Controls("opt3").ForeColor = &H80000012
DoEvents
If Not blnFlashNummern_OPT Then Exit Do
Sleep 100
Loop While blnFlashNummern_OPT
End Sub
Private Sub prcStopFlashNummern_OPT()
blnFlashNummern_OPT = False
End Sub
Ich will nun zusätzlich anstelle der 3 "OptionsButton" 3 CommandButton kurzzeitig farbig markieren.
Wie muss der vorstehende Programmcode abgeändert werden damit mein Vorhaben funktioniert?
mfg
reiner
Anzeige