vfp系统菜单中,“工具”菜单内部名称为

vfp系统菜单中,“工具”菜单内部名称为

系统菜单

菜单标题 内部名称
文件 _MSM_FILE
编辑 _MSM_EDIT
数据工作期 _MSM_VIEW
格式 _MSM_TEXT
工具 _MSM_TOOLS
程序 _MSM_PROG
窗口 _MSM_WINDO
帮助 _MSM_SYSTM

Visual FoxPro 中的系统菜单名 在 Visual FoxPro 中，系统菜单栏的内部名称是 _MSYSMENU。 系统菜单 菜单标题 内部名 文件 _MSM_FILE 编辑 _MSM_EDIT 查看 _MSM_VIEW 格式 _MSM_TEXT 工具 _MSM_TOOLS 程序 _MSM_PROG 窗口 _MSM_WINDO 帮助 _MSM_SYSTM 文件菜单 菜单和项 内部名 文件菜单 _MFILE 新建 _MFI_NEW 打开 _MFI_OPEN 关闭 _MFI_CLOSE 全部关闭 _MFI_CLALL 1st Separator _MFI_SP100 保存 _MFI_SAVE 另存为 _MFI_SAVAS 另存为 HTML _MFI_SAVASHTML 撤消 _MFI_REVRT 2nd Separator _MFI_SP200 导入 _MFI_IMPORT 导出 _MFI_EXPORT 3rd Separator _MFI_SP300 页面设置 _MFI_PGSET 打印预览 _MFI_PREVU 打印 _MFI_SYSPRINT 发送 _MFI_SEND 4th Separator _MFI_SP400 退出 _MFI_QUIT 编辑菜单 - Visual FoxPro 菜单和项 内部名 编辑菜单 _MEDIT 撤消 _MED_UNDO 重做 _MED_REDO 1st Separator _MED_SP100 剪切 _MED_CUT 复制 _MED_COPY 粘贴 _MED_PASTE 选择性粘贴 _MED_PSTLK 清除 _MED_CLEAR 2nd Separator _MED_SP200 全部选定 _MED_SLCTA 3rd Separator _MED_SP300 查找 _MED_FIND 替换 _MED_REPL 转到行 _MED_GOTO 4th Separator _MED_SP400 列表成员 _MED_LISTMEMBERS 快速信息 _MED_QUICKINFO 5th Separator _MED_SP500 书签 _MED_BKMKS 6th Separator _MED_SP600 插入对象 _MED_INSOB 对象 _MED_OBJ 连接 _MED_LINK 7th Separator _MED_SP700 属性 _MED_PREF 查看菜单 菜单和项 内部名 查看菜单 _MVIEW 工具栏 _MVI_TOOLB 工具菜单 菜单和项 内部名 工具菜单 _MTOOLS 向导 _MTL_WZRDS 1st Separator _MTL_SP100 宏 _MST_MACRO 类浏览器 _MTL_BROWSER 组件管理库 _MTL_GALLERY 对象浏览器 _MTL_OBJECTBROWSER 智能感应管理器 _MTI_FOXCODE 2nd Separator _MTL_SP200 修饰 _MED_BEAUT 任务列表 _MTI_TASKLIST 文档查看 _MTI_DOCVIEW 3rd Separator _MTL_SP300 代码范围复盖器 _MTL_COVERAGE 断点 _MTI_BREAKPOINT 调试器 _MTL_DEBUGGER 4th Separator _MTL_SP400 跟踪 _MTI_TRACE 定位 _MTI_LOCALS 调用堆栈 _MTI_CALLSTACK 输出 _MTI_DBGOUT 选项 _MTL_OPTNS 程序菜单 菜单和项 内部名 程序菜单 _MPROG 运行 _MPR_DO 取消 _MPR_CANCL 返回 _MPR_RESUM 挂起 _MPR_SUSPEND 1st Separator _MPR_SP100 编译 _MPR_COMPL 窗口菜单 菜单和项 内部名 窗口菜单 _MWINDOW 层迭 _MWI_CASCADE 全部重排 _MWI_ARRAN 1st Separator _MWI_SP100 可停靠 _MWI_DOCKABLE 2nd Separator _MWI_SP200 隐藏 _MWI_HIDE 清除 _MWI_CLEAR 遍历 _MWI_ROTAT 3rd Separator _MWI_SP300 “命令”窗口 _MWI_CMD 数据工作期 _MWI_VIEW (保持与早期版本的 Visual FoxPro 的兼容) 属性 _MWI_PROPERTIES 帮助菜单 菜单和项 内部名 帮助菜单 _MSYSTEM Microsoft Visual FoxPro 8.0 帮助 _MST_HPSCH MSDN 搜索 _MST_MSDNS 1st Separator _MST_SP100 技术支持 _MST_TECHS 网络上的 Visual FoxPro _MST_VFPWEB 2nd Separator _MST_SP200 关于 Microsoft Visual FoxPro 8.0 _MST_ABOUT

以下帮你做了个菜单框架示例，请根据你的实际需求进行修改之后，把这个保存到一个“mpr”文件中直接调用即可产生自己的系统主菜单了。至于每个子菜单调用什么命令，请你自己根据里面的示例进行修改吧（注意语句后带&&符号的，除了系统的quit，其余的示例“指令”不要直接使用，那只是个例子而已，请改成自己的有效的程序指令）：----------------------------------------------set sysmenu to set sysmenu automaticdefine pad m_file of _msysmenu prompt "文件" color scheme 3 define pad m_edit of _msysmenu prompt "编辑" color scheme 3 define pad m_sql of _msysmenu prompt "查询" color scheme 3 define pad m_total of _msysmenu prompt "统计" color scheme 3 define pad m_output of _msysmenu prompt "输出" color scheme 3 on pad m_file of _msysmenu activate popup sub_file on pad m_edit of _msysmenu activate popup sub_edit on pad m_sql of _msysmenu activate popup sub_sql on pad m_total of _msysmenu activate popup sub_total on pad m_output of _msysmenu activate popup sub_outputdefine popup sub_file margin relative shadow color scheme 4 define bar 1 of sub_file prompt "文件打开" define bar 2 of sub_file prompt "文件关闭" define bar 3 of sub_file prompt "退出系统" on selection bar 3 of sub_file quit && 示例：选择“退出系统”则执行命令“quit”define popup sub_edit margin relative shadow color scheme 4 define bar 1 of sub_edit prompt "输入" define bar 2 of sub_edit prompt "修改" define bar 3 of sub_edit prompt "删除" define bar 4 of sub_edit prompt "退出" on selection bar 2 of sub_edit edit && 示例：选择“修改”则执行命令“edit” on selection bar 3 of sub_edit delete && 示例：选择“删除”则执行命令“delete” on selection bar 4 of sub_edit exit && 示例：选择“退出”则执行命令“exit”define popup sub_sql margin relative shadow color scheme 4 define bar 1 of sub_sql prompt "学生成绩查询" define bar 2 of sub_sql prompt "全班成绩查询"define popup sub_total margin relative shadow color scheme 4 define bar 1 of sub_total prompt "成绩计算" define bar 2 of sub_total prompt "成绩显示"define popup sub_output margin relative shadow color scheme 4 define bar 1 of sub_output prompt "学生成绩" define bar 2 of sub_output prompt "班级成绩"