 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
sllee
註冊時間: 2007-11-02
文章: 7
第 1 樓
|
 發表於: 星期五 六月 06, 2008 5:11 pm 文章主題: 執行檔會自動結束 |
 |
|
我是vfp的新手, 目前需從dbf中讀取資料, 自訂1個menu選項, 但只要不在執行選項中程式畫面, 按最小化或點選其他的軟體, 該menu程式就會結束, 不知是那裏錯了.也查不到以前有相關的答問, 請幫幫忙, 謝謝!
我是用9.0 版complied成.exe, 以下是濃縮的範例:
define menu _Msysmenu
Define Pad Ptest Of _Msysmenu Prompt 'Ptest' Color Scheme 1
On Pad Ptest Of _Msysmenu Activate Popup test
Define Popup test Margin Relative Color Scheme 1
for mtime=1 to 3
_Bar = 'M'+ALLTRIM(STR(MTIME))
Define Bar mtime Of test Prompt _Bar
ON SELECTION BAR mtime OF test DO choice IN TEST WITH PROMPT( ), POPUP( )
next
Define Pad _Quit Of _Msysmenu Prompt 'QUIT' Color Scheme 1
On Pad _Quit Of _Msysmenu do quit_fox
acti MENU _Msysmenu
*
FUNCTION choice
PARAMETERS mprompt, mpopup
WAIT WINDOW 'You chose ' + mprompt + ;
' from popup ' + mpopup
RETURN
function quit_fox
quit |
|
| 回頂端 |
|
 |
sllee
註冊時間: 2007-11-02
文章: 7
第 2 樓
|
| 發表於: 星期五 六月 06, 2008 5:19 pm 文章主題: 補充 |
|
|
| 我的意思是如畫面停在 choice 的查詢, 報表....等等程式時, 最小化時程式不會自動結束, 但只要停在非bar選項中程式的畫面時, .exe的執行程式就會自動結束 |
|
| 回頂端 |
|
|
sllee
註冊時間: 2007-11-02
文章: 7
第 3 樓
|
| 發表於: 星期五 六月 06, 2008 5:29 pm 文章主題: 再補充 |
|
|
或許 function choice改成以下的樣子, 各位大大較能理解我的問題所在, 麻煩大家幫忙了....
FUNCTION choice
mmm=space(10)
@ 10,10 say 'MMM:' get MMM
read
RETURN |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 4 樓
|
|
| 回頂端 |
|
|
sllee
註冊時間: 2007-11-02
文章: 7
第 5 樓
|
| 發表於: 星期一 六月 09, 2008 11:24 am 文章主題: 問題已解 |
|
|
根據garfield大大提供的指引, 我在 acti MENU _Msysmenu 後加入了 READ EVENTS, 並在 FUNCTION QUIT_FOX 下加上 CLEAR EVENTS 後, 問題已解決了,
非常感激!! |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
