VF实验十三：菜单的设计.docVIP

实验十三：菜单的设计 1、启动VF6.0，将默认目录修改到D:\实验十三文件夹中。 2、练习内容(步骤)。 使用菜单设计器建立如图1所示的下拉菜单系统，保存为“tushu.mnx”,并为相应的菜单项指定一个快捷键如表1所示。 图1 图书管理系统菜单规划 表1 菜单项快捷键列表 菜单名称 快捷键 图书借阅管理 Alt+J 新书入库管理 Ctrl+N 一、设计一个菜单。 操作步骤： 1．新建一个菜单。 ①单击“文件”→“新建” →“菜单” →“新建文件” →“菜单”。 ②在菜单设计器中，在“菜单名称”名依次输入“图书借阅管理(\J)”、“图书查询管理”、“图书库存管理”、 “退出”。 ③设置“图书借阅管理”菜单项的快捷键。 选择“图书借阅管理”菜单项，单击“选项”，在弹出的“提示选项”对话框中的“键标签”一栏，从键盘上同时按下Alt和J键。 ④“退出”菜单项的“结果”选择“命令”，并在后面输入命令：set sysmenu to default以返回系统菜单。 ⑤设置“图书查询管理”的子菜单。 选择“图书查询管理”，在“结果”中选择“子菜单”后单击“创建”，输入子菜单的名称：“按书名查询”、和“按作者查询”。 ⑥在“菜单级”中选择“菜单栏”，返回到主菜单级。 ⑦设置“图书库存管理”的子菜单。 选择“图书库存管理”，在“结果”中选择“子菜单”后单击“创建”，输入子菜单的名称：“新书入库管理”和“图书报废管理”。 ⑧设置“新书入库管理”的快捷键。 选择“新书入库管理”，单击“选项”，在“提示选项”对话框中的“键标签”一栏，从键盘上同时按下Ctrl和N键。 2．保存菜单，文件名为“tushu.mnx”，单击“菜单” →“生成”，确定后，将生成一个和文件名同名的“tushu.mpr”文件。 3．单击“程序” →“运行”，选择“tushu.mpr”文件后运行，即可看到菜单效果。 4．单击“退出”可返回到系统菜单。 二、为“图书查询管理”菜单项下的两个子菜单项间添加分组水平线。如图3所示。 图3 加水平分组线效果 1．在菜单名称中选择“图书查询管理”，单击“编辑”，打开子菜单设计器。 2．选择“按作者查询”，单击右边的“插入”按钮，将在修改数据上面多出一个新菜单项，将“新菜单项”的名称改为“\-”。 3. 保存菜单后，单击“菜单” →“生成”，改写已经存在的“tushu.mpr”文件。 4．单击“程序” →“运行”，选择“tushu.mpr”文件后运行，即可看到菜单效果。 5．单击“退出”可返回到系统菜单。 三、建立顶层表单“dcbd.scx”如图4所示，将上题建立的“tushu”菜单添加到该表单中。 图4 顶层表单 1．修改上题的菜单“tushu.mnx”。 ①在菜单设计时，单击“显示”菜单下的“常规选项”，在“常规选项”对话框中选择“顶层表单”复选框。 ②将“退出”菜单的命令改为：dcbd.release ③保存菜单后，单击“菜单” →“生成”，改写已经存在的“tushu.mpr”文件。 ④关闭菜单设计器。 2．新建一个表单，表单文件名保存为：dcbd.scx。 ①将Form1的ShowWindow属性改为“2-作为顶层表单”。 ②在表单上添加两个标签控件Label和Label2，将两者的Caption属性分别改为“欢迎使用图书管理系统”和“设计者：XXX”。 ③在Form1的Init事件中写如下代码，调用菜单。 do tushu.mpr with this ④在Form1的Destroy事件中写如下代码，使表单关闭时释放菜单所占的内存空间。 release menu tushu ⑤保存并运行表单。 四、建立快捷菜单“kjcd.mnx”并在表单“dcbd.scx”中调用该菜单。如图5所示。 图5 快捷菜单 ①单击“文件”→“新建” →“菜单” →“新建文件”→“快捷菜单”。 ②在菜单设计器中，在“菜单名称”名依次输入“红色”、“绿色”、“蓝色”。其结果都选择：过程。 “红色”：过程的代码：myform.label1.forecolor=rgb(255,0,0) “绿色”：过程的代码：myform.label1.forecolor=rgb(0,255,0) “蓝色”：过程的代码：myform.label1.forecolor=rgb(0,0,255) ③在菜单设计时，单击“显示”菜单下的“常规选项”，在“常规选项”对话框中选择“设置”和“清理”复选框。 ④在“设置”代码编辑窗口中输入：PARAMETERS myform 在“清理”代码编辑窗口中输入：RELEASE POPUPS kjcd ⑤保存菜单“kjcd.mnx”，单击“菜单” →“生成”，确定后，将生成一个和文件名同名的“kjcd.mpr”文件。 ⑥在表单Form1的Ri