实验十：菜单、对话框、工具栏练习

《实验十：菜单、对话框、工具栏练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、韶关学院计算机公共教学实验进行表（实验报告）课程项目名称计算机语言与程序设计实验日期实验项目名称实验十：菜单、对话框、工具栏练习实验类型(打√)基础、综合√、设计。实验地点实验班级应到人数实到人数考勤情况主讲教师实验教师实验目的1、了解VB的对话框的特点，掌握对话框的创建及其方法。2、掌握VB菜单编辑器的使用。学会下拉式菜单和弹出式菜单的设计。掌握菜单项的click事件的代码的编写。3、了解VB工具栏的创建及代码编制。实验内容编程填空注意事项:1、注意只能删除源代码中的“#####[N]#####”处的内容而换上自己认为正确的内容，不得改动其它处，也不能在源代码中增加或者删

2、除语句。2、请注意：按照要求在VB中完成编程填空后，务必打开实验文件夹下“选择题及编程填空.Xls”文件，把编程填空的答案填入到对应的位置，否则不得分实验内容：一、编程填空（请务必将以下实验均保存为工程文件，否则可能保存无效！）实验1：设计一个如图所示的应用程序：（每空3分，共30分）CommonDialog1Command4Command3Command2Command1Form1实验1程序设计界面要求：利用通用对话框的方法（不能用Action属性）来打开相应的对话框，并要求如下：1）、“打开”对话框的将该实验的文件夹设置为默认路径；标题为“打开实例”；文件类型只显示两类

3、（所有文件、文本文件）；2）、“另存为”对话框的默认文件名为“*.txt”；3）、“颜色”对话框可以设置窗体的背景颜色；4）、“字体”对话框可以设置Command4按钮的字体大小；（原窗体文件名为：sy10_1.frm，修改后窗体文件为原文件名，工程文件名为：sy10_1.vbp）解题提示：添加通用对话框控件（执行“工具”菜单à“部件”命令à“控件”标签àMicrosoftCommonDialogControl）。实验2：完成如下下拉式菜单应用程序：（每空4分，共40分）Form1Text1实验2运行界面要求：利用菜单编辑器，按如下表1设置相应菜单项，并完成如下功能：级别标

4、题名称索引可复选否快捷键一级文本框(&T)mnuT二级隐藏(&H)mnuTHide二级-MnuTBar二级退出(&E)mnuTExitCtrl+Q一级格式(&F)mnuF二级对齐方式(&A)mnuFA三级左对齐(&R)mnuFALeft三级居中(&C)mnuFACenter三级右对齐(&L)mnuFARight二级大小(&S)mnuFS三级8mnuFSize0三级25mnuFSize1三级44mnuFSize2二级字型(&G)mnuG三级加粗(&B)mnuGB是三级斜体(&I)mnuGI是表11）、单击菜单“隐藏”：隐藏文本框，菜单显示“显示(X)”；反之显示文本框，菜单显

5、示“隐藏(H)”；2）、单击菜单“退出”：退出程序窗口，也可以用快捷键“Ctrl+Q”退出程序；3）、单击菜单“对齐方式”：可设置文本框中字体的对齐方式；4）、单击菜单“大小”：可改变文本框中字体的大小；5）、单击菜单“字型”：“粗体”和“斜体”菜单项均为复选菜单项（即菜单项目前有√）。（原窗体文件名为：sy10_2.frm，修改后窗体文件为原文件名，工程文件名为：sy10_2.vbp）解题提示：执行“工具”菜单à“菜单编辑器”命令项，参照表1制作菜单。注意：”格式”à”大小”8、25、44为菜单控件数组，索引即为Index属性。实验3：完成如下弹出式菜单应用程序：（每空5

6、分，共15分）Form1实验3运行界面要求：利用菜单编辑器，按如下表2设置相应菜单项，并充许设置窗体的背景颜色。级别标题名称索引可见否一级颜色mnuC否二级红色mnuC10二级黄色mnuC11二级绿色mnuC12表2（原窗体文件名为：sy10_3.frm，修改后窗体文件为原文件名，工程文件名为：sy10_3.vbp）解题提示：执行“工具”菜单à“菜单编辑器”命令项，参照“表2”制作菜单；将mnuC“颜色”菜单项的“可见”设置为否；实验4：在以下菜单中添加工具栏，完成＋、－、×、÷（按钮图片文件分别在实验目录下的001.ico、002.ico、003.ico、004.ico）

7、的相应按钮所对应菜单中的操作：（每空5分，共15分）注意：工具栏按钮代码可引用菜单已编好的程序代码：＋的菜单名为Add；－的菜单名为Subt；×的菜单名为Mult；÷的菜单名为DIvi。（原窗体文件名为：sy10_4.frm，修改后窗体文件为原文件名，工程文件名为：sy10_4.vbp）实验步骤：1、执行“工具”菜单à“部件”命令à“控件”标签àMicrosoftWindowsCmmonControls6.0”打勾，添加图像列表ImageList1，右击其属性，在“图像”标签中“插入图片”，添加实验目录下的相应4个