Zeitverzögerung geht nicht
11.04.2018 22:30:15
Ronald
Ich habe ein kleines Problem. Aus irgendeinem Grund will meine Zeitverzögerung nicht,
so wie ich.
Ich habe auf einem Excelsheet eine UserForm, auf der ich ein kleines Image habe,
welches von einem zweiten Image verdeckt wird. Bei Klick auf das eine Image
soll dies nicht sichtbar werden und dafür das zweite sichtbar machen und zwar für
eine gewisse Anzahl Millisekunden. Der Code sieht so aus:
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Private Sub imgHeuteErfassungsdatum_Click()
imgHeuteErfassungsdatum.Visible = False 'Hauptimage wird unsichtbar
imgHeuteErfassungsdatumMouseDown.Visible = True 'Zweitimage wird sichtbar
Call PauseHeute 'Pause von 700ms also 0,7s wird eingeleitet
End Sub
Private Sub PauseHeute()
Sleep 700
imgHeuteErfassungsdatum.Visible = True 'Nach Ablauf der Zeit Hauptimage wird sichtbar
imgHeuteErfassungsdatumMouseDown.Visible = False 'Zweitimage wird unsichtbar
End Sub
Wenn ich es durchdebugge, läuft die Zeit auch und die Funktion auch.Wenn ich es ohne Einzelschrittdebug laufen lasse, läuft NUR die Zeit.
Am Rest tut sich nichts. Das wird besonders deutlich, wenn man die Zeit auf
10´000ms hochsetzt, was zehn Sekunden entspricht.
Hat jemand Ideen, woran das liegen kann bzw. wie ich das beheben könnte?
Danke im Voraus.
Gruß Ronald