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, "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@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]
>
Tidak ada komentar:
Posting Komentar