How about calling this function and looking at the WorkStation's status bar:
Sub progress(fractioncomplete As Single)
Note = String(fractioncomplete * 30, ")") & String(30 - fractioncomplete
* 30, " ") & ") " & (100 * fractioncomplete) & "%"
End Sub
And use:
Sub myscript1()
For i = 1 To 20
progress i / 20
Wait 0.5
Next i
End Sub
Rich McNeil
Boston Software Systems
866 653 5105 x 813
www.bostonworkstation.com <http://www.bostonworkstation.com/>
See us at MUSE booth 318
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of McCullough, Kevin
Sent: Tuesday, April 17, 2007 12:16 PM
To: [email protected]
Subject: RE: [Talk] Progress Bar Indicator
It wouldn't be a progress bar, but you could just have 3 Boston variables,
like Total_Records, Remaining_Records, and Percent_Complete. You could also
add one to determine how long it took to process the first record and
multiply that by the remaining records to get the remaining time. They
would be automatically displayed, so you wouldn't have to worry about losing
window focus. You'd just have to update the values within the script
whenever you want it refreshed.
Kevin McCullough
Implementation Specialist
Select Medical - Hospital Apps
(717) 972 - 8114
_____
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Thompson, Mary
Sent: Tuesday, April 17, 2007 12:04 PM
To: [email protected]
Subject: RE: [Talk] Progress Bar Indicator
This would be a great addition to many scripts!
Mary
Electronic email from Mary Thompson, <mailto:[EMAIL PROTECTED]>
mailto:[EMAIL PROTECTED] Children's Mercy Hospitals and Clinics. This
communication is intended only for the use of the addressee. It may contain
information, which is privileged or confidential under applicable law. If
you are not the intended recipient or the agent of the recipient, you are
hereby notified that any dissemination, copy of disclosure of this
communication is strictly prohibited. If you have received this
communication in error, please immediately notify Children's Mercy Hospitals
and Clinics at 816-234-3940 or via return internal electronic email at
<mailto:[EMAIL PROTECTED]> mailto:[EMAIL PROTECTED] and expunge this
communication without making any copies. Thank you for your cooperation.
_____
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Tuesday, April 17, 2007 10:52 AM
To: [email protected]
Subject: [Talk] Progress Bar Indicator
I'm looking for a simple progress bar indicator to add to my script. I'm
performing a dictionary update in Meditech from an Excel spreadsheet. I
would like to progress bar to query the number of records in the spreadsheet
to determine the how long it will take for the update to run and what %
complete it is.
Thanks,
John Keefer
Systems Analyst
Highline Medical Center
16251 Sylvester Rd SW
Burien, WA 98166
206.431.5373 Ext. 5399
[EMAIL PROTECTED]
_____
This message, together with any attachments, is intended only for use of the
individual or entity to which it is addressed. It may contain information
that is confidential and prohibited from disclosure. If you are not the
intended recipient, you are hereby notified that any dissemination or
copying of this message or any attachment is strictly prohibited. If you
have received this message in error, please notify the original sender by
telephone or by return email and delete this message, along with any
attachments, from your computer. Thank You.
Note: The information contained in this message may be
privileged and confidential and protected from
disclosure. If the reader of this message is not the
intended recipient, or an employee or agent responsible
for delivering this message to the intended recipient, you
are hereby notified that any dissemination, distribution
or copying of this communication is strictly prohibited.
If you have received this communication in error, please
notify us immediately by replying to the message and
deleting it from your computer. Thank you.
