How to use Timer?? - Xtreme Visual Basic Talk

03-04-2002, 03:29 AM

pip187

Guest

Posts: n/a

How to use Timer??

How do I use the timer to make a pause in an event?

I have put a timer on my form, and assigned an interval of 10000.

I want to use the timer in my code, so when I click cmdChange, the code is executed up to a certain point, and then there is a 10 second pause before the rest of the code is executed.

eg.
Private Sub cmdChange_Click()
frmTest.print "Please wait 10 seconds"
(10 second pause required)
frmTest.print "thanks for waiting"
End Sub

Thanks

Phil.

03-04-2002, 03:59 AM

Banjo

Hell's Angel

Retired Moderator
* Guru *

Join Date: Jul 2001

Location: Yorkshire, UK

Posts: 10,394

You need either a DoEvents loop:

Code:

Do Until bTimerDone
    DoEvents
Loop

Where you set the module level variable bTimerDone to true in the timers event.
Or you can call the second half of the code directly from the timers events.
I personally prefer the first method.

__________________
A wise one man once said "what you talking about dog breath"

03-04-2002, 06:13 AM

Anis

| Coder XXX |

Retired Leader

Join Date: Jun 2001

Location: Kuala Lumpur, Malaysia.

Posts: 3,018

Use the following function...

Code:

Sub Wait(ByVal s As Integer)
Dim t As Double
t = Now() + s / 86400#
While t > Now()
DoEvents
Wend
End Sub

If you want a delay of one second..

Code:

wait(1)

__________________
Regards,
Muhammad Anis Ur Rehman
Miles to go Before I Sleep.
http://www.projekcarpet.com/anis.html

03-04-2002, 10:35 AM

ChiefRedBull

ISearchGoogle

Retired Moderator
* Expert *

Join Date: May 2001

Location: england

Posts: 6,321

My personal favourite - the Sleep API.

__________________
Chuck Norris ordered a Big Mac at Burger King, and got one.