Re: UFO alle x Sek sichtbar, ansonsten unsichtbar

Hallo Heinrich

Heinrich Lona wrote:
Wäre es auch möglich das UFO einige male blinken zu lassen
bevor es dann für 10Sek. sichtbar stehen bleibt?

Kein Problem:


Const cLngAnzLoop As Long = 10000
Const cLngAnzBlink As Long = 100
Dim I as Long
Dim J as Long
For J = 0 to cLngAnzBlink
For I = 1 To cLngAnzLoop
DoEvents
Next
Me!DeinUFO.Visible = (J Mod 2)
Next
Me!DeinUFO.Visible = True

Mit cLngAnzLoop und cLngAnzBlink musst Du halt rumspielen, bis es richtig schön blinkt. Und mit weiteren Gimmiks könntest Du sogar die Blinkrate dynamisch verändern, damit es zuerst schnell blinkt und am Schluss langsam.

Gruss
Henry

--
Los geht's: SEK3 Anmeldung bei www.donkarl.com/?sek
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

.

Relevant Pages