set cursor with api

[RB Smissaert]

Need to set the cursor in Excel with the API, so tried this:

Option Explicit
Private Const IDC_ARROW As Long = 32512
Private Declare Function LoadCursor _
Lib "user32" _
Alias "LoadCursorA" _
(ByVal hInstance As Long, _
ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor _
Lib "user32" (ByVal hCursor As Long) As Long

Sub test()

Application.Cursor = xlWait 'just to test it alters the cursor

SetCursor (LoadCursor(0, IDC_ARROW))

End Sub

However nil happens, although there is no error.
Any suggestions how this could be done?


RBS

 

[Guest]

I found a google at...
http://groups.google.com/group/micr....public.excel.*&rnum=2&hl=en#52e66102c2ae7954

that seems to indicate that you should change
Private Const IDC_ARROW As Long = 32512
to
Private Const IDC_ARROW As Long = 32512&

HTH,

 

[RB Smissaert]

Isn't that just the type definition for a long variable?
In any case I did it like that at one stage and just the same.
I think the trouble is that Excel or VB in general will keep setting the
cursor
back to the original.

RBS

 

[Guest]

All I can say is that the guy in the thread below (Paul Martin) implied that
it worked. His code is virtually identical to yours.
Good Luck,
Sincerely,

 

[RB Smissaert]

Have you tried this?

Option Explicit
Private Const IDC_ARROW = 32512&
Private Declare Function LoadCursor _
Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, _
ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor _
Lib "user32" (ByVal hCursor As Long) As Long

Sub test()

Application.Cursor = xlWait

SetCursor (LoadCursor(0, IDC_ARROW))

End Sub

As you can see (with me anyhow), the cursor stays hourglass.


RBS

 

[Guest]

No. Haven't tried it.
After looking at the google again, I did notice another difference in code.

Try...
SetCursor LoadCursor(0, lCursor)
instead of
SetCursor (LoadCursor(0, IDC_ARROW))

HTH,

 

[RB Smissaert]

Before suggesting things to try it might be worth it to try first and see if
it is any good ...

RBS