VFP 愛用者社區

jifflin · 註冊時間: 2005-09-14 文章: 8 第 1 樓

我看過一個軟體它可以把VFP變成全螢幕...包含WINDOWS工作列都可以蓋過

它也有選單..選單中可以RUN表單

我做過可以將表單作為最上層就可以全螢幕

但是加了選單就不行了

請問各位高手是否有人寫過此種程式...可以分享一下嗎?

我搜查過了都沒看到類似的......請不否指教....謝謝

jeff25 · 發表於: 星期四十一月 17, 2005 6:49 pm 文章主題:

把選單建立在 _SCREEN 上就可以了呀

jifflin · 註冊時間: 2005-09-14 文章: 8 第 3 樓

對不起,我是初學者,可能無法了解妳所說的....
有範例可看嗎?
或是有簡單的寫法可以參考一下嗎?
..
..
把選單建立在 _SCREEN 上就可以了呀 <----程式為何可以說明一下嗎?

我知道這樣好像很煩您
你給我釣竿了,我還要求您給我魚

但是...我還是不懂........對不起.....

jeff25 · 發表於: 星期五十一月 18, 2005 1:10 am 文章主題:

***** 使用 vfp 的 system menu _MSYSMENU ******

CLEAR
SET TALK OFF
SET SYSMENU SAVE
SET SYSMENU TO
PUBLIC markpad
markpad = .T.
DEFINE PAD syspad OF _MSYSMENU PROMPT '\<System' COLOR SCHEME 3 ;
KEY ALT+S, ''
DEFINE PAD editpad OF _MSYSMENU PROMPT '\<Edit' COLOR SCHEME 3 ;
KEY ALT+E, ''
DEFINE PAD recordpad OF _MSYSMENU PROMPT '\<Record' COLOR SCHEME 3 KEY ALT+R, ''
DEFINE PAD windowpad OF _MSYSMENU PROMPT '\<Window' COLOR SCHEME 3 ;
KEY ALT+W, ''
DEFINE PAD reportpad OF _MSYSMENU PROMPT 'Re\<ports' COLOR SCHEME 3 ;
KEY ALT+P, ''
DEFINE PAD exitpad OF _MSYSMENU PROMPT 'E\<xit' COLOR SCHEME 3 ;
KEY ALT+X, ''
ON SELECTION MENU _MSYSMENU ;
DO choice IN definpad WITH PAD( ), MENU( )
PROCEDURE choice
PARAMETER mpad, mmenu
WAIT WINDOW 'You chose ' + mpad + ;
' from menu ' + mmenu NOWAIT
SET MARK OF PAD (mpad) OF _MSYSMENU TO ;
! MRKPAD('_MSYSMENU', mpad)
markpad = ! markpad
IF mpad = 'EXITPAD'
SET SYSMENU TO DEFAULT
endif