David
I think most newbee Access developers eventually get hung up on web-like tricks. But the more feedback you get from your application users, the more you realize that cheesy-ness should stay on cheesy websites.
I have to admit I fell into the trap early on. If any of you have one of my utilities or add-ins you'll see a cheesy marquee effect on my About forms where a text string scrolls in from the right.
I suggest you avoid all such nonsense if you want to be taken seriously by paying clients/employers.
Leave the cheese for the dinner table.
Bill
--- 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