Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cursor Type
Hi,
I'm using Excel macros to interface with a third party piece of software. mostly this is going well as I've taken to loading api commands to run most of my interactions. However, I'm trying to tell whether the system is currently working (it'll save a lot of useless waiting time) but the only external sign that the system is working is the mouse changing icon. the code I've tried: Private Declare Function CopyIcon Lib "user32" (ByVal hIcon As Long) As Long Private Declare Function GetCursor Lib "user32" () As Long Sub curs() Dim row As Integer row = 2 Dim ttime As Long Dim ttime1 As Long Dim cursor ttime = timeGetTime Do ttime1 = timeGetTime Do DoEvents Loop Until ttime1 + 50 < timeGetTime cursor = GetCursor If Worksheets(1).Range("A" & row - 1) < cursor Then Worksheets(1).Range("A" & row) = cursor row = row + 1 End If Loop Until ttime + 20000 < timeGetTime End Sub all this is doing is monitoring the changing Icon this works wonders until it gets to the third party program this program (SMS if anyone knows it (its old!)) where it just sticks on the number 65544. Has Anyone got any ideas that might help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
My cursor always in selection mode,wat about other cursor option | Excel Discussion (Misc queries) | |||
move cursor on one sheet moves cursor on all sheets | Excel Discussion (Misc queries) | |||
why am I getting a 3 d cross cursor instead of a pointer cursor? | Excel Discussion (Misc queries) | |||
Cursor disappears / Cursor verschwindet | Excel Programming | |||
Can I change the "white cross" cursor in Excel to another cursor? | Excel Discussion (Misc queries) |