1 Sekunde dauert 5 Sekunden ...
18.05.2007 22:18:33
Ingo
frei nach K.Rola habe ich ein paar selbstschließende MsgBox(en) gebastelt.
Ist auch eine feine Sache.
Allerdings schließ ab und an die Meldung erst nach erheblich längerer Zeit als eingestellt.
Woran mag das liegen ? Wann die Verzögerung eintritt, kann ich nicht reproduzieren.
Ich dachte erst, irgendein Programm greift manchmal kurzfristig Resourcen ab und lastet den
Prozessor aus. Dem ist aber nicht so.
Und, zweite Frage, ist 1 Sekunde die unterste Grenze für die Anzeigedauer ?
Ein einfaches "OK" als Meldung bräuchte nur 0.5 sec. angezeigt werden, um "verstanden" zu werden.
Ich erreiche bislang allerdings nur, dass alles unter 1 dazu führt, dass die Meldung dauerhaft stehen bleibt.
Evtl. verwendet ja jemand etwas in der Art und ist eine Ecke weiter als ich.
Gruß, Ingo
Sub MsgAktionErledigt()
Const bytZeit As Byte = 1
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("", _
bytZeit, Space(10) & "Aktion erledigt")
Set objWSH = Nothing
End Sub
Anzeige