Thanks for the chuckle, David!
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@yahoogroups.com] On Behalf Of David Tolson
Sent: Wednesday, October 19, 2011 11:12 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Re: How to get a label to blink
Thank you for chiming in acravenrohm, when John called it a cheesy trick, I
could see lights and hear bells from the circus J. It sounds even funnier
when I write it out. I'll probably try your suggestion to learn something
new, but in the end, I will probably not use it.
Thanks for the lesson.
Have a great day and an even finer day tomorrow,
David
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of acravenrohm
Sent: Wednesday, October 19, 2011 5:02 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: How to get a label to blink
I know how you feel David :-)
However, you definitely should avoid a loop within your form_load, even if
it is a splash form, as all kinds of bad voodoo can happen. What I have done
in similar situations is to use the form timer to animate the splash and
then close the splash from the "real" form when the application is finished
loading or whatever it is that I want to distract the user from.
I also find that although most of my stuff is best done in VBA Code, I like
to keep the splash VBA free and use simple macros to perform any tasks the
splash has to. Sounds quirky but I have the feeling it helps keep Access "on
the tracks" :-)
--- In MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> , "David Tolson"
<drtolson@...> wrote:
>
> 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%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of John
Viescas
> Sent: Wednesday, October 19, 2011 3:26 PM
> To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.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%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.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>
> <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]
>
[Non-text portions of this message have been removed]
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar