《Visual Basic程序设计及应用 教学课件 ppt 作者 郑丽敏 VB第8章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计及应用 教学课件 ppt 作者 郑丽敏 VB第8章（43页珍藏版）》请在金锄头文库上搜索。
1、PowerPoint Template,第8章 菜单和多重窗体设计,内容提要,在VB应用程序中，当操作比较简单时，一般通过控件来执行操作，而要完成较复杂的操作时，使用菜单能更直观地选择命令，具有十分明显的优势 简单VB应用程序通常只包括一个窗体，叫单窗体程序。在实际应用中，特别是对于较复杂的应用程序，单窗体往往不能满足需要，必须通过多窗体来实现。多窗体分为多重窗体和多文档窗体，每个窗体可有自己的界面和程序代码，完成不同的操作 工具栏和状态栏的设计,第8章 菜单和多重窗体设计,8.2 多重窗体设计,8.1 菜单编辑器,8.1 菜单编辑器,8.1.5 VB应用实例,8.1.4 弹出式菜单的设计,8
2、.1.3 动态菜单的设计,8.1.2 菜单编辑器的使用,8.1.1 Visual Basic中的菜单,8.1.1 Visual Basic中的菜单,菜单的种类 下拉式菜单和弹出式菜单,菜单栏 菜单标题 菜单项 分隔条 子菜单标识,8.1.1 Visual Basic中的菜单,菜单的种类 下拉式菜单和弹出式菜单,控件工具箱 窗体 工具栏,8.1.2 菜单编辑器的使用,菜单编辑器,属性设置区,编辑区,显示区,8.1.2 菜单编辑器的使用,标题(Caption) 名称(Name) 索引(Index) 快捷键(Shortcut) 帮助上下文ID 协调位置 复选(Checked) 有效(Enabled)
3、 可见(Visible) 显示窗口列表,8.1.2 菜单编辑器的使用,【例8-1】制作一个菜单 设计界面 设置属性,8.1.2 菜单编辑器的使用,编程策略 菜单控件只有一个Click事件，它与命令按钮Click事件的作用完全一样，但只有最底层的菜单项才需要编写事件 Form_Load事件设置初始状态 选择字体时，“宋体”和“楷体”类似单选按钮，文本风格中的“粗体”和“斜体”类似复选框 菜单标题“颜色”的初始值为无效，因此它下一级的3个颜色菜单项全不可见 “退出”菜单标题无下一级子菜单项，因此直接为它编写Click代码,8.1.2 菜单编辑器的使用,代码编写,Private Sub mnuFon
4、tNameS_Click() Text1.FontName = “宋体“ mnuFontNameS.Checked = True mnuFontNameK.Checked = False End Sub,Private Sub mnuFontStyleB_Click() Text1.FontBold = Not Text1.FontBold mnuFontStyleB.Checked = Not mnuFontStyleB.Checked End Sub,Private Sub mnuColorRed_Click() Text1.ForeColor = vbRed End Sub,Privat
5、e Sub Text1_Change() If Text1.Text “ Then mnuColor.Enabled = True Else mnuColor.Enabled = False End If End Sub,8.1.3 动态菜单的设计,动态添加菜单项 Load语句 Load 菜单名(下标) 动态删除菜单项 Unload语句 Unload 菜单名(下标),8.1.3 动态菜单的设计,【例8-2】在【例8-1】的基础上，增加动态菜单,8.1.4 弹出式菜单的设计,特点 独立于菜单栏，可以显示在窗体任何位置的一种浮动式菜单，只要单击鼠标右键就会弹出，因此弹出式菜单也叫右键菜单或快捷菜单
6、 VB6.0版本没有专门的弹出式菜单编辑器，只能通过菜单编辑器来完成 格式 对象名. PopupMenu 菜单名 ，Flag,x,y 菜单名：是指通过菜单编辑器设置的，至少有一个子菜单项的菜单名称,8.1.4 弹出式菜单的设计,PopupMenu mnuFont,PopupMenu mnuFontName,PopupMenu mnuFontStyle,8.1.4 弹出式菜单的设计,【例8-3】在文本框中添加弹出式菜单，包括3个子菜单项10号字、14号字、18号字 设计界面,8.1.4 弹出式菜单的设计,设置属性,8.1.4 弹出式菜单的设计,编程策略 文本框的鼠标事件 Private Sub
7、Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 当单击鼠标右键时，调用PopupMenu方法，在鼠标当前位置显示弹出式菜单 Button=2 表示用户单击鼠标右键，Button=1表示鼠标左键,8.1.4 弹出式菜单的设计,代码编写,Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuFontS
8、ize End If End Sub,Private Sub mnuFontSize10_Click() Text1.FontSize = 10 End Sub,8.1.5 VB应用实例,【例8-4】建立一个带菜单的记事本 设计界面,8.2 多重窗体设计,8.2.4 VB应用实例,8.2.3 工具栏和状态栏设计,8.2.2 多文档界面,8.2.1 多重窗体,8.2.1 多重窗体,单窗体 应用程序只包括一个窗体 多重窗体 多重窗体的添加 / 删除 多重窗体的保存,8.2.1 多重窗体,多重窗体的切换 将窗体装入内存：Load 窗体名称 从内存清除窗体：Unload 窗体名称 显示窗体： 窗体名称
9、. Show 模式 隐藏窗体： 窗体名称. Hide 多重窗体的启动 多重窗体的编译 只生成一个 可执行文件,8.2.1 多重窗体,【例8-5】设计一个程序包含两个窗体，第1个窗体是一扇写有“动物之家”的门，第2个窗体是一只狮子 设计界面,8.2.1 多重窗体,设置属性,8.2.1 多重窗体,编写代码,窗体Form1的代码如下： Private Sub Form_Load() Picture = LoadPicture(App.Path & “Door.wmf“) End Sub,窗体Form2的代码如下： Private Sub Form_Load() Picture = LoadPictu
10、re(App.Path & “Lion.wmf“) End Sub,Private Sub Form_Click() Form1.Hide Form2.Show End Sub,Private Sub Form_Click() Form2.Hide Form1.Show End Sub,8.2.2 多文档界面,概念 单文档界面（Single Document Interface，简称SDI），用户只能打开一个文档，当打开另一个文档时，必须先关闭当前文档 多文档界面（Multiple Document Interface，简称MDI），是指在应用程序中的一个父窗体下，可以同时打开多个子窗体 组成
11、 一个父窗体 多个子窗体,8.2.2 多文档界面,创建MDI窗体（父窗体） 在“工程资源管理器”中单击鼠标右键，弹出快捷菜单中选择“添加 / 添加MDI窗体” 单击“工程”菜单标题下的“添加MDI窗体”命令 添加一个MDI窗体后，“添加MDI窗体”命令按钮变为灰色无效 说明：每个工程中只能有一个MDI窗体 创建MDI子窗体 将普通窗体的MDIChild属性设置为True 可以有多个子窗体,8.2.2 多文档界面,MDI父窗体,MDI子窗体,普通窗体,8.2.2 多文档界面,【例8-6】建立多文档界面，它包括1个MDI窗体，2个子窗体。子窗体1上显示图片，子窗体2上显示带垂直滚动条的文本框 设计
12、界面,8.2.2 多文档界面,使子窗体按照一定规律排列 MDI窗体名. Arrange 参数：0到3的整数， 对应的常数分别是 vbCascade、 vbTileHorizontal、 vbTileVertical、 vbArrangeIcons， 用来指定MDI窗体中 子窗体的排列方式,Private Sub mnuWindowTH_Click() MDIForm1.Arrange vbTileHorizontal End Sub,8.2.2 多文档界面,子窗体1的代码如下： Private Sub Form_Resize() Picture = LoadPicture(App.Path &
13、 “Door.wmf“) End Sub,设置启动窗体为MDIForm1,8.2.2 多文档界面,子窗体2的代码如下： Private Sub Form_Resize() Text1.Left = 0 Text1.Top = 0 Text1.Height = MDIChild2.ScaleHeight Text1.Width = MDIChild2.ScaleWidth End Sub,Private Sub mnuSize10_Click() Text1.FontSize = 10 End Sub Private Sub mnuSize14_Click() Text1.FontSize =
14、14 End Sub,Private Sub mnuSize18_Click() Text1.FontSize = 18 End Sub,8.2.3 工具栏和状态栏设计,创建工具栏 手工方式创建工具栏 Toolbar控件创建工具栏（ActiveX控件） 应用程序向导创建工具栏 创建状态栏 StatusBar控件创建状态栏（ActiveX控件）,8.2.3 工具栏和状态栏设计,手工方式创建工具栏 通常用PictureBox控件作为工具栏的容器，将图像框、命令按钮、单选钮、复选框等控件做成图标效果作为工具栏的按钮 图片框的Align属性设置为1，使它总是出现在窗体的最上面 命令按钮等控件的Styl
15、e属性设置为1，表示按钮的外观是图形模式，Picture属性放置图片，Caption属性清空，ToolTipText属性为按钮添加工具提示,8.2.3 工具栏和状态栏设计,Toolbar控件创建工具栏（ActiveX控件） 单击“工程”菜单标题下的“部件”菜单项，在弹出的部件对话框中选中“Microsoft Windows Common Controls 6.0”项,8.2.3 工具栏和状态栏设计,Toolbar控件创建工具栏（ActiveX控件） 在窗体上添加Toolbar控件，选中它并单击右键，在弹出的快捷菜单中，选择最后一项“属性”，弹出“属性页”对话框,8.2.3 工具栏和状态栏设计,
16、Toolbar控件创建工具栏（ActiveX控件） 在窗体上添加ImageList控件，选中它并单击右键，在弹出的快捷菜单中，选择最后一项“属性”，打开“属性页”对话框,8.2.3 工具栏和状态栏设计,Toolbar控件创建工具栏（ActiveX控件）,插入按钮 删除按钮 索引 标题 关键字 值 样式 工具提示文本 图像,8.2.3 工具栏和状态栏设计,应用程序向导创建工具栏 单击“外接程序”菜单标题下的“外接程序管理器”，选中“VB 6 应用程序向导”，并在“加载行为”选项组中选中“加载/卸载”，单击“确定”按钮返回。再单击“外接程序”菜单标题下的“工具栏向导”,8.2.3 工具栏和状态栏设计,StatusBar控件创建状态栏（ActiveX控件） 在窗体上添加StatusBar控件，选中它并单击右键，在弹出的快捷菜单中，选择最后一项“属性”，弹出“属性页”对话框,插入窗格 删除窗格 索引 文本 工具提示文本 关键字 样式（8种） 浏览 自动调整大小 （3种）,8.2.4 VB应用实例,【例8-9】建立一个多文档界面
