VFP 愛用者社區

[sunbird]

我做了一個菜單
在VFP環境下運行可看到菜單，但將其 build 成 exe 運行后看不到菜單，請教各位問題在哪？謝謝！

[siger1762]

在activate設read events
在結束時設clear events

[sunbird]

*main.prg

do menu1.mpr
activate window screen
activate menu _msysmenu nowait
read events
quit
clear events
quit

build 成 exe 后這樣可以看到菜單


但將 do menu1.mpr 換成 do menuprg build 成 exe 運行后卻看不到菜單

* menuprg.prg
SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE WINDOW manage ;
FROM 1,1 TO 30,90 ;
TITLE "管理系統" ;
double ;
CLOSE ;
FLOAT ;
GROW ;
ZOOM ;
MINIMIZE

ACTIVATE WINDOW manage

DEFINE MENU menu1 BAR AT LINE 0.1 IN WINDOW manage COLOR SCHEME 4

DEFINE PAD 基本資料維護 OF manage PROMPT "基本資料維護" COLOR SCHEME 3
DEFINE PAD 資料維護 OF manage PROMPT "資料維護" COLOR SCHEME 3
DEFINE PAD 資料查詢 OF manage PROMPT "資料查詢" COLOR SCHEME 3
DEFINE PAD 報表列印 OF manage PROMPT "報表列印" COLOR SCHEME 3
DEFINE PAD 退出系統 OF manage PROMPT "退出系統" COLOR SCHEME 3
ON PAD 基本資料維護 OF manage ACTIVATE POPUP 基本資料維護
ON PAD 資料維護 OF manage ACTIVATE POPUP 資料維護
ON PAD 退出系統 OF manage ACTIVATE POPUP 退出系統
activate menu menu1 nowait