如何使一个菜单显示在自己定制的表单上
编号：QA002092
建立日期: 1999年11月24日 最后修改日期：1999年11月24日
所属类别：
Ｑ
林力:
操作系统: WIN95
编程工具: VISUAL FOXPRO5.0
问题: 如何使一个菜单显示在自己定制的表单上，而不是显示在系统的菜单栏上？
Ａ回答:
在Form的Activate事件中定义菜单：
CLEAR
SET SYSMENU SAVE
SET SYSMENU TO
ON KEY LABEL ESC KEYBOARD CHR(13)
DEFINE MENU example BAR in window FORM1
DEFINE PAD convpad OF example PROMPT '\ KEY ALT+C, ''
ON PAD convpad OF example ACTIVATE POPUP conversion
DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF conversion PROMPT 'Ar\ DEFINE BAR 2 OF conversion PROMPT '\ DEFINE BAR 3 OF conversion PROMPT 'Ma\ DEFINE BAR 4 OF conversion PROMPT 'Spee\ DEFINE BAR 5 OF conversion PROMPT '\ DEFINE BAR 6 OF conversion PROMPT 'T\ DEFINE BAR 7 OF conversion PROMPT 'Volu\ ON SELECTION POPUP conversion DO choice IN defimenu;
WITH PROMPT(), POPUP()
ACTIVATE MENU example nowait
在Unload事件中取消菜单 ：
DEACTIVATE MENU example
RELEASE MENU example EXTENDED
SET SYSMENU TO DEFAULT
ON KEY LABEL ESC
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, FoxPro/Visual FoxPro, Foxbase, dBase, xbase, FoxPro, VFP, Visual FoxPro, 窗体与菜单, form, window, tform。
| |
|
|
| |
|
|
