Rabu, 19 Oktober 2011

RE: [MS_AccessPros] How to get a label to blink

 

John, Cheesy tricks huh? Although I am hovering somewhere just below
intermediate, I at least would like to look like a pro, so I'll leave that
one alone J. But thanks for giving me a cheesy trick I can show at my sons
next birthday party.

Have a great day,

David

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
Sent: Wednesday, October 19, 2011 3:26 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] How to get a label to blink

David-

This falls into the category of cheesy tricks, but if you really want to do
it,
you have to use the Timer event. Set the Timer for 250 milliseconds and use
module variables to count where you are in the process. Add 1 to the
counter,
and if Counter Mod 4 is 1, turn the label "on"; if Counter Mod 4 is 0, turn
the
label "off"; and if Counter = 16 (4 seconds), close the form.

John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
[mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
djsdaddy531
Sent: Wednesday, October 19, 2011 8:47 PM
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: [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

------------------------------------

Yahoo! Groups Links

[Non-text portions of this message have been removed]

__._,_.___
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