Blinking

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi!

I OnTimer have a Me!lblBlink.Visible = Not Me!lblBlink.Visible
Work fine.
Question:
1 - I would like that it blinking only after click on command button;
2 - That it blinking only "n" times.

Is it possible, please?

Thanks in advance.
an
 
Set the form's TimerInterval property in the Click event of that command
button.

Add a declaration for a Static variable in the Timer event to keep track of
how many times the code's been executed, and set the TimerInterval to 0 once
you've hit the desired limit.

Private Sub Form_Timer()

Static intIterations As Integer

Me!lblBlink.Visible = Not Me!lblBlink.Visible
intIterations = intIterations + 1

If intIterations >= 5 Then
Me.TimerInterval = 0
intIterations = 0
End If

End Sub

(Of course, I'd caution against putting flashing on your form. It can
actually cause medical problems for certain users!)
 
You won't need the Timer. In the command button code (air code):

Sub MyButton_Click()
Dim i As Integer
For i = 1 To 10 ' 5 on, 5 off
Wait (0.5) ' 1/2 second
Me!lblBlink.Visible = Not Me!lblBlink.Visible
Next i
End Sub

Public Function Wait(sngSecs As Single)
' Timer is a keyword that retrieves the number of seconds
' since midnight as a single
Dim sngWait As Single

sngWait = Timer + sngSecs
While Timer < sngWait
DoEvents
Wend

End Function
 
Exactly, DS.

Work fine.
Thank you very much.
an

Douglas J. Steele said:
Set the form's TimerInterval property in the Click event of that command
button.

Add a declaration for a Static variable in the Timer event to keep track of
how many times the code's been executed, and set the TimerInterval to 0 once
you've hit the desired limit.

Private Sub Form_Timer()

Static intIterations As Integer

Me!lblBlink.Visible = Not Me!lblBlink.Visible
intIterations = intIterations + 1

If intIterations >= 5 Then
Me.TimerInterval = 0
intIterations = 0
End If

End Sub

(Of course, I'd caution against putting flashing on your form. It can
actually cause medical problems for certain users!)
Click to expand...
 
Many thanks, AM.

Work fine too.
an

Arvin Meyer said:
You won't need the Timer. In the command button code (air code):

Sub MyButton_Click()
Dim i As Integer
For i = 1 To 10 ' 5 on, 5 off
Wait (0.5) ' 1/2 second
Me!lblBlink.Visible = Not Me!lblBlink.Visible
Next i
End Sub

Public Function Wait(sngSecs As Single)
' Timer is a keyword that retrieves the number of seconds
' since midnight as a single
Dim sngWait As Single

sngWait = Timer + sngSecs
While Timer < sngWait
DoEvents
Wend

End Function
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
Click to expand...
 
(Of course, I'd caution against putting flashing on your form. It can
actually cause medical problems for certain users!)
Click to expand...

Certain rates (I've heard 3 to 4 per second) can cause epilepsy to trigger
in those afflicted with the disease.
 
Please:

For default the label IsVisible.
Is possible to change it for NotVisible for default?
Thanks.
an
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

blinking form... 3
Wifi, Outdoor, battery powered security camera without hub 3
Make Arrow button blink for a perscribed amount of time. 4
Blinking cursor at failed boot 69
Blinking Button 2
Can I make colors blink on and off? 2
windows vista customization (disable blinking titlebar for new windows) 1
LogonUI.exe - Application error [Please Help!] 6

Back
Top