Thomas Risi Softwareentwicklung

Verzögerte Ausführung mit TimerControl

Aus einer Frage in einem Forum

Eingaben in einer TextBox (in einer UserForm) sollen, über das Change-Event der TextBox, eine Aktion ausführen. Diese Aktion soll aber erst eine Sekunde nach der letzten Eingabe erfolgen. Hier eine Lösung mit dem TimerControl.

TimerControl auf UserForm einfügen, und dann ...

Option Explicit Dim Blocked As Boolean Private Sub TextBox1_Change() Blocked = False TimerControl1.Deactivate TimerControl1.Start End Sub Private Sub TimerControl1_OnTime() If Not Blocked Then MsgBox "TEST" ' Hier die Aktion Blocked = True End If End Sub

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)