Hourglass in VB Script

In VB script, what is the command to turn the hourglass on and turn the hourglass off?

Thanks in advance,

krameje
LVL 2
YoinkAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

dustybrynCommented:
screen.mousepointer=vbhourglass 'on
screen.mousepointer= vbdefault 'off
YoinkAuthor Commented:
dustybryn, I am getting an "Object Required" error message.  Does screen need to be declared and set?
dustybrynCommented:
Sorry, didn't read the question properly so I gave you the answer in VB. Have a look at the following for VBScript,

http://sourceforge.net/snippet/download.php?type=snippet&id=100396
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

EDDYKTCommented:
Try
 document.body.style.cursor="wait"

if you want to use asp

if in .vbs, I don't think you can
TooKoolKrisCommented:
The only way I know to do this is in IE. This will turn the cursor to the hourglass while the script is running. To turn it back change the "wait" to "default". This will create a small window and change the cursor to the hourglass for 5 seconds then close the window.

Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "file://c:\test.htm"
objIE.left=200
objIE.top=200
objIE.height=175
objIE.width=450
objIE.menubar=0
objIE.toolbar=0
objIE.addressbar=0
objIE.statusbar=0
objIE.visible=1

Set objDocument = objIE.Document
objDocument.body.style.cursor = "wait"
Wscript.Sleep 5000
objIE.Quit
Arthur_WoodCommented:
where are you trying to use the VBScript?  Is this for an ASP page, or in Outlook? Or perhap[s somewhere else?

AW
YoinkAuthor Commented:
Arthur, we are launching the VBScript files from an intranet site.  We use this site to distribute various databases within our organization.  Having the hourglass appear is a "nice to have," since some of our users are extremly click happy.
Arthur_WoodCommented:
you might be better off issueing an Alert('This may take a while') type of message.

Just a thought.

AW
YoinkAuthor Commented:
Arthur, we already have a message box that appears letting the user know the download is in process, but there are the select few who lack patience.

I guess I do not understand why this is so difficult since in VBA, enabling/disabling the hourglass is a matter of using one line of code.
YoinkAuthor Commented:
CleanupPing,

Could you please refund the points?  I was unable to get any of the above suggestions to work.

Thanks in advance,

Yoink
DanRollinsCommented:
Yoink, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:

    Refund points and save as a 0-pt PAQ.
    *** several suggestions are PAQworthy

Dan Rollins -- EE database cleanup volunteer
CetusMODCommented:
PAQed, with points refunded (50)

CetusMOD
Community Support Moderator

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.