数据库应用技术基础(Visual_FoxPro) 作者 黎虹 李广振 l8.ppt

http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 5、选择“菜单”下的“生成”命令，生成相应的菜单程序文件(.MPR)。 要使用创建的快捷菜单，可以在表单设计器环境下选定需要调用快捷菜单的对象，在该对象的RightClick事件过程中添加调用快捷菜单程序的代码： Do 快捷菜单程序文件名 【例8-6】为表单的一个标签控件建立快捷菜单，其结构如图8-20所示。 快捷菜单中包含了3个菜单项：字体、大小、颜色，它们分别带有下级子菜单，选择不同的的字体、大小、颜色时，标签标题随之发生相应的改变。 图8-20 在表单中调用快捷菜单 http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 操作步骤如下： 1．选择“文件”菜单下的“新建”命令，从“新建”对话框中选择“菜单”文件类型，在“新建菜单”对话框中单击“快捷菜单”按钮，打开“快捷菜单设计器”对话框。 2．定义快捷菜单各选项的名称，如表8-3所示。 菜单名称 结 果 字体（\F） 子菜单 宋体 通用过程 楷体 黑体 隶书 大小（\S） 子菜单 14 命令：_VFP.ActiveForm.Label1.FontSize=14 18 命令：_VFP.ActiveForm.Label1.FontSize=18 22 命令：_VFP.ActiveForm.Label1.FontSize=22 颜色(\C) 子菜单 黑色 通用过程 黄色 红色 蓝色 图8-21 “新建菜单”对话框 http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 3．在“菜单级”列表框中选择“快捷菜单”项，回到顶层菜单。选择“字体”菜单项，单击“编辑”按钮，重新进入“字体”子菜单，如图8-22所示。选择“显示”菜单下的“菜单选项”命令，打开“菜单选项”对话框，单击“编辑”按钮，再单击“确定”按钮，进入代码编辑窗口，为“字体”编写通用过程，如图8-23所示。编写完后关闭编辑窗口，返回菜单设计器。 图8-23 “菜单选项”对话框 图8-22“字体”子菜单 http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 子菜单“字体”通用过程代码： DO CASE CASE BAR()=1 Ft=“宋体” 选择的菜单项的序号 CASE BAR()=2 Ft=“楷体-GB2312” CASE BAR()=3 Ft=“黑体” CASE BAR()=4 Ft=“隶书” ENDCASE _VFP.ActiveForm.Label1.FontName=ft 4．在“菜单级”列表框中选择“快捷菜单”项，回到顶层菜单。选择“大小”菜单项，单击“编辑”按钮进入“大小”子菜单，如图8-24，在各个子菜单的命令框中输入相应的代码，内容如表8-3所示。 图8-24 “大小”子菜单 http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 5．在“菜单级”列表框中选择“快捷菜单”项，回到顶层菜单。选择“颜色”菜单项，单击“编辑”按钮，重新进入“颜色”子菜单，如图8-25所示。按同样的方法，为“颜色”子菜单中的各菜单项写通用过程，代码如表8-3所示。关闭编辑窗口，返回菜单设计器。 子菜单“颜色”通用过程代码： DO CASE CASE BAR ()=1 　　c1=RGB(0,0,0) 函数RGB()返回一种由给定的红、绿、蓝颜色合成的颜色 CASE BAR ()=2 c1=RGB(255,255,0) CASE BAR ()=3 c1=RGB(255,0,0) CASE BAR ()=4 c1=RGB(0,0,255) ENDCASE _VFP.ActiveForm.Label1.ForeColor=c1 图8-25 定义“颜色”子菜单 http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 6．单击“预览”按钮，预览快捷菜单。 7．选择“文件”菜单下的“另存为”命令，保存创建的快捷菜单，输入文件名“快捷菜单.MNR”。 8．选择“菜单”下的“生成”命令，生成相应的菜单程序文件“快捷菜单.MPR”。 9．选择“文件”菜单下的“新建”命令，在“新建”对话框中选择“表单”文件类型。新建一个表单，表单属性设置如表8-4所示。 表8-4　表单属性设置 属性名称 属性值 Caption 快捷菜单示例 AlwaysOntop .T. AutoCenter .T. http://V/vfp Visual FoxPro程序设计 8.3　快捷菜单设计 10．在表单添加一个标签控件，标签属性设置如表8-5所示。 属性名称属性值AutoSize