[AccessD] suspend execution of VB code

Win95 was strictly 16 bit, as far as I recall.  They came up with a
translator for 32 bit API calls, but it didn't make 95 32 bit.  You had
to use the 16 bit API calls there.

Charlotte Foust

-----Original Message-----
From: Drew Wutka [mailto:DWUTKA at marlow.com] 
Sent: Tuesday, February 18, 2003 9:37 PM
To: 'accessd at databaseadvisors.com'
Subject: RE: [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
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com