Rabu, 19 Oktober 2011

[MS_AccessPros] How to get a label to blink

 

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

__._,_.___
Recent Activity:
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Tidak ada komentar:

Posting Komentar