[AccessD] suspend execution of VB code

So the only real drawback with a waitabletimer is the fact it won't run on
95.  I wonder if that is All versions of 95.  Weren't B and C 32 bit?

Drew

-----Original Message-----
From: Henry Simpson [mailto:hsimpson88 at hotmail.com]
Sent: Tuesday, February 18, 2003 10:03 PM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] suspend execution of VB code


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Short and sweet and fine for short interval delays and also doesn't hog the 
processor.  Calling it with a large number of milliseconds will have the 
application show up as 'not responding' in the Task Manager and will suspend

mouse interaction with the application and you don't get screen refresh or 
repaint during the wait.  Keep the wait intervals short and no one is the 
wiser.  Try Q231298 at Microsoft.com for more detail on the differences.  
For one thing, the waitabletimer is not available in Win 95 and the use of a

progress bar will keep users amused and unconcerned about the application 
being locked if you use Sleep with a progress bar.  I only use the waitable 
version for longer waits like sending several Word print jobs to the queue 
before killing Word.

Hen



>From: Drew Wutka <DWUTKA at marlow.com>
>Reply-To: accessd at databaseadvisors.com
>To: "'accessd at databaseadvisors.com'" <accessd at databaseadvisors.com>
>Subject: RE: [AccessD] suspend execution of VB code
>Date: Tue, 18 Feb 2003 20:23:21 -0600
>
>Use the following code.  Watch for word wrap on the API Calls.  This
>function uses an API to delay your code by x number of
>milliseconds...without cycling your processor over and over.
>
>
>
>
>Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle
>As Long, ByVal dwMilliseconds As Long) As Long
>Private Declare Function CreateWaitableTimer Lib "kernel32" Alias
>"CreateWaitableTimerA" (ByRef lpTimerAttributes As Long, ByVal bManualReset
>As Long, ByVal lpTimerName As String) As Long
>Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
>As Long
>
>Private Function DelayRoutine(intMilliseconds As Long)
>Dim dwReturn As Long
>Dim intTimer As Long
>intTimer = CreateWaitableTimer(0, True, "MicrosoftAccessDelay" & Chr(0))
>dwReturn = WaitForSingleObject(intTimer, intMilliseconds)
>CloseHandle intTimer
>End Function
>
>
>
>Drew
>-----Original Message-----
>From: Scott Gage [mailto:scotttgage at yahoo.com]
>Sent: Tuesday, February 18, 2003 7:47 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] suspend execution of VB code
>
>
>HELP!
>
>I need to slow down the code I'm running. It is
>running a ton of append queries to groom some data. I
>thought I'd make a progress dialog box while I'm at
>it. I will need the code to suspend execution for a
>few seconds and then start back up without any end
>user action.
>
>Can anyone point me in the right direction? I read
>Break point but the end user has to do something to
>start the code back up.
>
>Scott
>
>=====
>--------------------
>Scott T. Gage
>Scott.gage at promedica.org
>419.291-7177
>
>__________________________________________________
>Do you Yahoo!?
>Yahoo! Shopping - Send Flowers for Valentine's Day
>http://shopping.yahoo.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com


_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com