VFP 愛用者社區

[Terry1211]

請問各位前輩~~
假如使用者按下Esc時，會出現下面的訊息
有沒有辦法按Esc後，就直接跳出程式，而不出現這個訊息
Help 裡的 Set Escape說明，沒有相關說明，不曉得可以弄出來嗎 ? ^^??

Code是放在Main.prg內

[upstsgjames]

On Key Label ESC Do [YourProgramName]

[DennisTsai]

SET ESCAPE OFF

[Terry1211]

感謝兩位的回覆~~
這兩個指令我PO文章之前就試過

下面是我的Code
ON KEY LABEL Esc Quit
ON KEY LABEL F1 Quit

Declare Integer InternetGetConnectedState In wininet.Dll Integer @lpdwFlags, Integer dwReservednReserved

Do While InternetGetConnectedState(0,0) = 0
Wait Windows "網路連線失敗，重新連線"+Chr(13)+"取消連線，請按Esc" Nowait Timeout 1
Enddo

假如網路連線不通的時候，按下Ｅsc，即使我有設ON KEY LABEL，圖片上的畫面還是會先出現，但假如是按F1即會執行Quit指令；下Set Escape Off ，即時設ON KEY LABEL Esc Quit也沒用，Esc已經被停用了

不曉的各位前輩還有什麼意見可以給小弟參考？

[andywilliams]

Do While InternetGetConnectedState(0,0) = 0
Wait Windows "網路連線失敗，重新連線"+Chr(13)+"取消連線，請按Esc" Nowait Timeout 1
if lastkey() = 27
exit
endif
Enddo

[upstsgjames]

也可寫成這樣

xhd = InternetGetConnectedState(0,0)


DO While xhd = 0


     If MessageBox("網路連線失敗，[是]重新連線 [否]取消",1+32+256,"確認") = 1


          xhd = InternetGetConnectedState(0,0)


     Else


          Exit


     EndIf


Enddo

[Terry1211]

To andywilliams ~~
測試後，我發現InKey()比較符合小弟的需求，謝謝您的指導~~