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

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.T.BackStyle0-透明Caption欢迎进入学生成绩管理系统双击标签控件，打开代码编辑窗口，为标签的RightClick事件过程添加如下代码： Do菜单1.MPR 11．选择“文件”下的“另存为”命令，保存表单文件。 12．运行表单文件，当右击标签对象，会弹出如图8-20所示快捷菜单。选择不同的菜单项可使标题文字作出相应的变化。 属性名称 属性值 AutoSize .T. BackStyle 0-透明 Caption 欢迎进入学生成绩管理系统 表8-5　标签属性设置 http://V/vfp Visual FoxPro程序设计 本章小结 本章介绍了