VFP 愛用者社區

kib48660 · 註冊時間: 2003-02-24 文章: 121 第 1 樓

有時呼叫一些rs232的設備,會導致游標不見了,
我試了以下一些方法,還是有問題

DECLARE INTEGER ShowCursor IN user32 INTEGER bShow
MyPos = ShowCursor (1)
Do WHILE MyPos <= 0
MyPos = ShowCursor (1)
ENDDO
DECLARE INTEGER LoadCursor IN user32 INTEGER nInstance, STRING nCursorid
DECLARE INTEGER SetSystemCursor IN user32 INTEGER hCur, INTEGER nID
nCursor = LoadCursor(0,"32650")
=SetSystemCursor(nCursor,32650)
DECLARE INTEGER SetCursor IN user32 INTEGER hCur
=SetCursor(nCursor)

kib48660 · 註冊時間: 2003-02-24 文章: 121 第 2 樓

修正下列方式,還是無法把游標顯示出來,不知誰有遇到相同狀況

#DEFINE IDC_APPSTARTING 32650 &&應用啟動的游標
DECLARE INTEGER LoadCursor IN user32 INTEGER nInstance, INTEGER lpCursorName
DECLARE INTEGER SetCursor IN user32 INTEGER hCursor
hcursor = LoadCursor(0, IDC_APPSTARTING) &&載入游標
holdcursor = SetCursor(hcursor) &&設定新游標
DECLARE INTEGER ShowCursor IN user32 INTEGER bShow
MyPos = ShowCursor (1)
Do WHILE MyPos <= 0
MyPos = ShowCursor (1)
ENDDO