✔ Verzögerung!

[cheeZy]

Vorweg: Ich weiß, gibt es schon aber lest erstmal weiter!

Also, ich möchte auf einer Form Bilder nacheinander ein-/ausblenden:

Wenn ich jetzt bspw. schreibe:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)

Private Sub button_Click()

Sleep (1000)
Label9.Visible = False
Sleep (1000)
Label10.Visible = False
Sleep (1000)
Label11.Visible = False

End Sub

Klick ich nun auf den Button, warte ich 3 Sekunden und dann sind alle 3 Label unsichtbar.
Ich möcht nun aber, dass nach 1 Sek der erste usw. unsichtbar werden, geht das?

lg
Carsten

 

[Dario Linsky]

Hi,

ich bin mir gerade nicht sicher (kanns nicht überprüfen), aber vielleicht hilft es dir weiter hinter jedem Unsichtbarmachen von einem Label einmal DoEvents aufzurufen. Ansonsten schau dich halt einfach mal nach einer Methode wie Update oder Repaint oder Redraw im Formular um.

Nebenbei: Stilvoller (und kürzer) wäre es, die Labels in einer Schleife unsichtbar zu machen, wenn die Indizes sowieso schon in Reihe sind.

Grüße, D.

 

[cheeZy]

Jop, Danke, mit DoEvents klappts wunderbar.

(Klar, war ja nur kurz als Beispielt aussm Ärmel geschüttelt und deswegen wurde auf Stil keine Rücksicht genommen ;-P )

lg Carsten