实验九：菜单设计和多文档界面.docVIP

实 验 报 告 学院： 专业： 年级： 姓名： 学号： 实验室号：_____ 计算机号： 实验日期： 年 月 日 指导教师签字： 成绩： 报告退发 (订正 、 重做) 实验九 菜单设计和多文档界面（设计性） 一、实验目的 掌握：下拉式菜单、弹出式菜单的设计； 熟悉：菜单编辑器的使用； 掌握：多文档界面应用程序的设计； 了解：弹出式菜单的方法应用。 二、实验内容 制作一个文本编辑器，包含一个下拉菜单、一个多行文本框。功能有：新建、打开、保存文本文件、退出文本编辑器。 图9－1 操作内容1 制作一个名为 “颜色” 的下拉菜单，并在窗体上画一个圆。单击下拉菜单颜色名称，圆就会填充相应颜色。 图9－2 操作内容2 建立如图9－3所示用户界面。要求：点击“图片”下拉菜单中“显示”，在图片框中显示当前文件夹中的指定图片（D:\VBSy\Fish.jpg）；点击“清空”，则清除图片框中的图片。 图9－3 操作内容3 建立一个设置文本框字号的弹出式菜单，界面如图9－4所示。 图9－4 操作内容4 设计一个简易图像、图形处理器。 设计一个父窗体，在窗体上建立文件下拉菜单。各属性、功能如下： 控件名称 属性或功能 MDIForm Caption=”多文档界面” 文件 顶级菜单 ….新建 打开一个空白子窗体 ….打开 在在子窗体打开一幅图像 ….- 分隔条 ….退出 退出应用程序 设计一个子窗体，画一个图片控件，建立一个下拉菜。各属性、功能如下： 控件名称 属性或功能 Form1 Caption=”文档1 文件 顶级菜单 ….新建 清除图片框中图像 ….打开 在图片框中打开一幅图像 ….- 分隔条 ….退出 退出应用程序 绘图 顶级菜单 ….直线 在图片控件中绘直线 ….手绘 在图片控件中绘曲线 ….清除 清除图片框中绘制的图形 图9－5 操作内容5 三、实验环境 （1）硬件：PC机； （2）软件：Windows 操作系统、Visual Basic 6.0。 四、实验步骤 操作内容1 启动VB。 在窗体中画一个文本框Text1，设置文本框的MulitiLine属性值为True；打开菜单编辑器，在菜单编辑器窗口中进行菜单属性设置（其中“文件”为顶级菜单。各控件的其它属性为缺省。）： 控件名称 属性 Text1 MulitiLine＝True Form1 Caption=“下拉菜单应用” mnuFile Caption=“文件” MnuFile_New Caption=“新建” MnuFile_Open Caption=“打开” MnuFile_Save Caption=“保存” MnuFile_Bar Caption=“-” MnuFile_Exit Caption=“退出” 各控件布局实体如图9－1所示。 文件菜单 文件菜单 文本框 文本框 编写代码： Private Sub mnuFile_Exit_Click() End End Sub Private Sub mnuFile_New_Click() Text1.Text = Form1.Caption = 新建 End Sub Private Sub mnuFile_Open_Click() Dim s$, st$ Open App.Path \File.txt For Input As #1 Do While Not EOF(1) Line Input #1, st s = s st vbCrLf Loop Close #1 Text1.Text = s End Sub Private Sub mnuFile_Save_Click() Open App.Path \File.txt For Output As #1 Write #1, Text1.Text Close #1 End Sub 单击“文件”/“保存工程”菜单项，以Sy9-1.frm和Sy9-1.vbp文件名将窗体和工程文件保存在D:\VBSy文件夹中。如果没有错误，编译成可执行文件Sy9-3.exe，最后移除工程。 操作验内容2 启动VB。 在窗体中画一个Shape控件，打开菜单编辑器建立“颜色”下拉菜单。各个控件属性设置如下（其中，“颜色”为顶级菜单。各控件的其它属性为缺省。）： 控件名称 属性 Shape1 FillStyle ＝Solid mnuC