Great Day, I apologize if this message was sent already, but after it
was not delivered to my inbox and then I went to the website and and
didn't see it, I decided to resend it.
I have a splashscreen that loads and remains visible for 4 seconds based
on the On Timer event. I would also like to display a blinking label
that says "Please wait while application is loading." Since I already
have the On Timer event being triggered by the splashscreen, I tried to
write some code to cause the label to blink. In the forms On Load event,
I have the following code:
Dim stloop1 As Long
Dim stloop2 As Long
Dim stloop3 As Long
Do Until stloop1 = 10
stloop1 = stloop1 + 1
stloop2 = 1
stloop3 = 1
Me.lblWait.Visible = True
Do Until stloop2 > 750
stloop2 = stloop2 + 1
Loop
Me.lblWait.Visible = False
Do Until stloop3 > 250
stloop3 = stloop3 + 1
Loop
Loop
I am trying to make the label visible for 3/4 of a second and invisible
for 1/4 of a second; however the label does not show up at all. I would
like to know how to make the label blink.
Thanks in advance for your assistance.
r/David
Rabu, 19 Oktober 2011
[MS_AccessPros] How to get a label to blink
__._,_.___
MARKETPLACE
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar