ACCESS FEED: RE: [MS_AccessPros] How to cause a label to blink

Senin, 31 Oktober 2011

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

Thank you John.

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
Sent: Monday, October 31, 2011 6:08 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] How to cause a label to blink

David-

You have to do it in the Timer procedure. Set the Timer Interval to 500 (a
half
second), and do this:

Option Compare Database
Option Explicit

Dim intCounter As Integer

Private Sub Form_Timer()

' Flip the label's Visible property
Me.lblWait.Visible = Not Me.lblWait.Visible
' Add 1 to the counter
intCounter = intCounter + 1
' If not 4 seconds yet,
If intCounter < 8 Then
' Bail
Exit Sug
End If

' Rest of your code to handle 4 seconds elapsed here

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 6:45 PM
To: MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: [MS_AccessPros] How to cause a label to blink

Great Day, 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]