Hourglass cursor in HTA form 1

[cluM09]

Hello,

I have written an hta application that takes a while to complete the operation.

All the code to perform an operation is within the subroutine called RuntheScript. It is within this subroutine that I want to cursor to change to hourglass and then change back to default.

How can I show the users an hourglass cursor while they are waiting?

 

[taupirho]

Maybe something like document.body.style.cursor = "wait" and document.body.style.cursor = "default

 

[cluM09]

taupirho,

Thank you for the response.

I have tried the lines you suggested, but they had no effect on the cursor.

I placed the document.body.style.cursor = "wait" line before the line of code that will take a while to complete and the line document.body.style.cursor = "default" after the code.

Any suggestion?

CluM09

 

[dm4ever]

Try adding an intermediate sub to make a small enough pause for the cursor to change...i.e.


Sub ChangeCursor
window.document.body.style.cursor = "wait"
Dim timeOut : timeOut= window.setTimeout("WorkingSection", 2000)
End Sub

Sub WorkingSection
...code that works
window.document.body.style.cursor = "default"
End Sub

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[cluM09]

dm4ever,

Yes, that does it. Thank you very much.

CluM09

 

[cluM09]

dm4ever,

The hourglass cursor works only after I click on the button and move the mouse pointer away from the button.

The cursor does not change to hourglass when I left the mouse pointer on top of the button.

Any suggestion?

CluM09

 

[Skie]

Replace buttonID with your button's ID and try this:

window.document.body.buttonID.style.cursor = "wait"

 

[cluM09]

Skie,

Thank you for the response.

I tried your suggestion, but I got an error "Object doesn't support this property or method: 'window.document.body.buttonID'"

Any suggestion?

CluM09

 

[cluM09]

Skie,

The hourglass works if I click on the button and immediately move the mouse pointer away from the top the button. After about 2 to 3 seconds, I can move the mouse pointer back over button and the hourglass still shows.

It seems that in order to activate the hourglass, I have to move the mouse pointer away from the button immediately after I have clicked on the button.

I even extended the time for timeout from 2000 to 5000, and it still does not have any effect.

CluM09

 

[dm4ever]

Similar to what Skie was suggesting...replace "button1" with the ID of the button you click to execute your tasks.

Sub ChangeCursor
     window.document.body.style.cursor = "wait"
     window.document.getElementById("button1").style.cursor = "wait"
     Dim timeOut : timeOut= window.setTimeout("WorkingSection", 10000)
End Sub

Sub WorkingSection
	window.document.getElementById("button1").style.cursor = "default"
    window.document.body.style.cursor = "default"
End Sub

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[cluM09]

dm4ever,

Yes, that does it. I did not have the line below in the code since did not know the getElemenByID property of HTML.

window.document.getElementById("button1").style.cursor = "wait"

After I added the line, it works.

Thank you so much for the help.

CluM09

 

[jfdabiri]

dm,
i can use this code on my app too. my question is, how do i invoke the "sub ChangeCursor"? i have a button that when i click it searches for a file/keywords. on the button, i have cursor="wait" on the html tag. when it's clicked, it executes "sub find_files". where would i put the "wait" and "default" things on the sub(s).
thanks.

 

[dm4ever]

The way you would do it is call a sub similar to the "changecursor" one I posted above instead of your "find_files" sub. That first sub would change the cursor and then wait for a little while using .setTimeout and it will then call the sub you tell it to.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[jfdabiri]

how would i assign two subs to one button? can i just put the code in "changecursor" into "find_file" sub? and do the timeout/wait, there?
thanks.

 

[dm4ever]

You're not calling two subs with one button. You button calls one sub and then that sub calls another. Look at the example posted...you should be able to see how the changecursor sub ends up calling the main sub with the window.setTimeout

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[cluM09]

dm4ever,

Do you happen to know what book I can buy to learn more about how to use the HTML properties and design the HTML page?

Any suggestion will greatly appreciated.

Thanks again.

CluM09

 

[jfdabiri]

dm,
i got it. the button calls one sub, and that one sub calls another. cool.
thanks.

 

[dm4ever]

cluM09,

I'm not sure about a book, but these are useful resources.

http://www.w3schools.com/htmldom/default.asp

http://msdn2.microsoft.com/en-us/library/ms533050.aspx

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[cluM09]

dm4ever,

Thank you for the information.

I have another poblem that I cannot figure out. I have a button on the html page called OK. I used the accessKey="o" to allow the Alt key to activate this button. How do I have underscore under the O character of the OK button?

CluM09

 

[dm4ever]

If the OK button has a unique ID then you can simulate a click with something like this.

window.document.getElementById("okbuttonid").click()

You may also want to check out this thread:

http://www.tek-tips.com/viewthread.cfm?qid=1388428&page=1

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid