Label blinken
ing.grohn
im Archiv habe ich folgende Routine gefunden um ein Label in einer Userform zum Blinken zu bringen:
Option Explicit
Public dNextRun As Double
Public bUFisRunning As Boolean
Public Sub Blinken()
Static H00C0FFFF As Boolean
If bUFisRunning Then
dNextRun = Now + TimeValue("00:00:01")
Application.OnTime dNextRun, "Blinken"
If H00C0FFFF = True Then
H00C0FFFF = False
Uf_Adressen.Label32.BackColor = &HFF&
Else
H00C0FFFF = True
Uf_Adressen.Label32.BackColor = &HFFFF00
End If
Else
If dNextRun = 0 Then Exit Sub
'Application.OnTime dNextRun, "Blinken", , False
dNextRun = 0
End If
End Sub
Es wird gestartet mit:
bUFisRunning = True
Call Blinken
und beendet mit:
bUFisRunning = False
'Application.OnTime dNextRun, "Blinken", , False
verursacht beim Beenden Schwierigkeiten:
"Die Methode "ontime" für das Object "Application" ist fehlgeschlagen"
Warum ist das so, und wofür ist die Zeile gut?
(ausgeremt gibts keine Meldung und alles läuft so, wie ich möchte)
Für eine Antwort seid bedankt
Mit freundlichen Grüßen
Albrecht