二级VB 第10章 菜单、工具栏、状态栏、多文档
VB菜单、工具栏、菜单栏设计
5.运行时改变状态栏
• 运行时，能重新设置窗格Panel对象以显示不同的 功能，这些功能取决于应用程序的状态和各控制 键的状态。有些状态要通过编程实现，有些系统 已具备。
• (6)Alignment属性 –该属性设置或返回该对象的标题文本对齐方式。 • (7)Bevel属性: –设置或返回该对象的斜面样式，0为没有显示斜面，1 为凹下显示，2为凸起显示。 • (8)AutoSize属性 –调整状态栏的大小后，该属性返回或设置确定Panel对 象的宽度值。 • (9)Count属性 –该属性返回Panels集合中Panels对象的数目。
菜单以分组的形式组织多个命令或操作，为 用户提供了操作应用程序的便捷手段。
工具栏以按钮的形式显示应用程序中最常用 的命令和操作。
状态栏用于显示应用程序的当前状态、键盘 状态以及当前日期和时间等。
6-1
菜单简介
菜单标题 菜单栏 分隔条 菜单选项 快捷键 访问键 子菜单标题 子菜单选项
6-2
设置StatusBar控件。在StatusBar控件上右击鼠标，调出其 属性页。在其中插入两个窗格，第一个窗格的文本设置为“提 示”，第二个窗格自动调整大小属性设置为为1，其他设置不 变。
1.状态栏控件的常用属性
• (1)Align属性 –该属性决定状态栏控件在窗体中的显示位置和大小。 其值为1～4，分别表示在窗体的顶部，底部，左边和 右边，且随窗体自动调整。 • (2)Style属性 –该属性设置或返回状态栏控件的样式。默认值0表示 Normal样式，正常显示所有Panel对象；值为1时表示 Simple样式，仅显示一个大窗格。 • (3)Height和Width属性 –该属性决定控件的高度和宽度。 • (4)Top属性 –该属性决定控件顶端距窗体顶端的距离。
VB程序设计多文档界面、工具栏与图形设计
VB程序设计多文档界面、工具栏与图形设计教学目标及基本要求：1、了解多文档界面MDI的特性及应用2、掌握工具栏和状态栏的创建及应用3、使用画点的Pset方法、画直线和矩形的Line方法、画圆和椭圆的Circle方法绘制图形教学重点：1、多文档界面MDI的创建及应用2、工具栏的创建及应用3、状态栏的创建及应用4、图形设计的基础知识教学难点：工具栏、状态栏及图形的设计教学内容：1、多文档界面的特性2、创建和设计多文档界面3、使用MDI窗体与子窗体4、MDI应用程序中的菜单5、多文档界面应用程序中的子窗体排列6、工具栏设计7、状态栏设计8、图形设计中的坐标系统9、图形设计中颜色的设置10、图形处理教学时间：2学时主要内容：13.1 多文档界面设计13.1.1 多文档界面的特性1、设计阶段多文档界面的特性2、运行期间MDI窗体的特性13.1.2 创建和设计多文档界面1、创建和设计MDI窗体2、创建和设计MDI子窗体13.1.3 使用MDI窗体与子窗体1、设置活动子窗体和活动控件2、保存子窗体中文档的内容3、用QueryUnload卸载MDI窗体13.1.4 MDI应用程序中的菜单13.1.5 多文档界面应用程序中的子窗体排列13.2工具栏设计1、制作工具栏的两种方法（1）手工制作：利用图形框和命令按钮，这种方法比较烦琐。
（2）通过ToolBar、ImageList控件制作。
2、创建工具栏的步骤(1) 添加MSCOMCTL.OCX文件，用鼠标右键单击工具箱，选择快捷菜单中的“部件”命令，在图13-2所示的“控件”选项卡中选择“Microsoft Windows Common Controls6.0”，然后单击“确定”按钮，则在图13-3所示的工具箱中就会出现T oolBar 控件和ImageList 控件。
(2) 创建ImageList控件作为要使用的图形集合。
(3) 创建T oolBar控件，并将ToolBar控件与ImageList控件相关联，创建Button对象。
二级visual basic 课件及习题 第十章PPT教学课件
2020/12/10
7
10.2 文件管理控件
三. 文件列表框（）：
P219 图10-8
用于显示某个路径目录下的一些种类文件。目录路 径和文件种类由文件列表框的自身属性确定。
1. 主要属性: 2. Path属性: 设置和返回显示文件的路径。 3. Pattern属性: 设置显示的文件类型。 4. 属性: 设置和返回将显示的带驱动器目录的文件名。
第十章 其它控件及其运用
10.1 组合框与滚动条
一. 组合框（ComboBox）：
相当于绑在一起的文本框（Text）和列表框（ListBox）
主要属性为Text和List属性，其中List属性的使用方法与 列表框的List属性使用方法相同。此外还有Style属性， 用于控制外观，外观不同时可触发的事件也不同。
ChDrive Drive1.Drive ’将当前驱动器改变为驱动器
2020/12/10
列表框中所选取的驱动器。 5
10.2 文件管理控件
二. 目录列表框（DirListBox）：
P217 图10-7
用于显示当前驱动器的目录结构，并突出显示当前的路径目录。
1. 主要属性:
2.
Path属性，用来设置和返回目录列表框中的当前目录。
2. 直接给属性赋值时，会自动改变Path属性，如： = “D:\config.sys”
则自动地： = “D:\”
2020/12/10
9
10.2 文件管理控件
四. 组合使用三种文件管理控件：
（演示P221 例10.2。。。）
2020/12/10
（演示P214 例10.1。。。）
2020/12/10
4
VB基础状态栏（StatusBar）和工具栏（ToolBar）
VB基础状态栏（StatusBar）和工具栏（ToolBar）1．状态栏的作用与组成StatusBar 控件由Panel（窗格）对象组成，最多能被分成 16 个Panel 对象，每一个 Panel 对象能包含文本和/或图片。
控制个别窗格的外观属性包括 Width、Alignment（文本和图片的）和 Bevel(斜面)。
此外，能使用 Style 属性七个值中的一个自动地显示公共数据，诸如日期、时间和键盘状态等。
2．创建状态栏先在窗体上画出一个StatusBar对象，再右击该对象，从快捷菜单中选择“属性”，进入属性页设置窗口，进行下面的设置：（1）选择窗格形状在属性窗口里选择通用标签，在样式列表框里选择多窗格（缺省形式）或单窗格简单文本形式。
（2）添加或删除状态栏窗格在属性窗口里选择窗格标签，单击插入窗格按钮添加一个窗格，或单击删除窗格按钮删除一个窗格。
（3）在单窗格里显示文本在属性窗口里选择通用标签，在简单文本框里输入想显示在状态栏窗格里的文本。
用代码显示的方式是：StatusBar1.SimpleT ext = "要显示的内容"（4）在多窗格里显示文本或图形1). 在属性窗口里选择窗格标签，用索引旁的按钮选择窗格序号。
2). 在文本框里输入想显示在状态栏窗格里的文本。
用代码显示的方式是：StatusBar1.Panels(x).Text = "要显示的内容"3). 如果想加入图形，单击浏览按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。
（5) 编写代码如果是一个单窗格状态栏，当用户单击状态栏时，只需用下面的事件过程来响应：Private Sub StatusBar1_Click()<要执行的代码>End Sub如果是一个多窗格状态栏，就需要鉴别用户单击的是哪一个窗格，可用下面的事件过程来识别用户所单击的窗格：Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)Select Case Panel.IndexCase 1<要执行的代码>Case 2<要执行的代码>……End SelectEnd Sub3．创建工具栏（1）.建立工具栏1）在工具箱里单击工具栏图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。
第10章-VB多文档界面与工具栏设计
☆☆ 第10章多文档界面与工具栏设计
17
2．常用格式化属性
格式化属性，可对该控件中选中的任何部分的文本使用不同的格式
分类
属性
值类型
说明
选中文本 字体、字号
字型
SelText SelStart SelLength SelFontName SelFontSize SelBold SelItalic SelUnderline SelStrikethru
End Sub
☆☆ 第10章多文档界面与工具栏设计
4
10.1 多文档界面设计
10.1.2 显示MDI窗体及其子窗体
显示任何窗体的方法为show,还有有关规则： （1）加载子窗体时，其父窗体会自动加载并显示；反之 则无。 （2）MDI窗体子窗体
1．创建 MDI 应用程序的菜单
2．多文档界面中的“窗口”菜单
☆☆ 第10章多文档界面与工具栏设计
6
10.1 多文档界面设计
(1) 显示打开的多个文档窗口 要在某个菜单上显示所有打开的子窗体标题，只需利用
菜单编辑器将该菜单的WindowList属性设置为True。 (2).排列窗口 利用Arrange方法进行层叠、平铺和排列图标。 形式： MDI窗体对象.Arrange 排列方式
MDI子窗体 标准窗体 MDI窗体
☆☆ 第10章多文档界面与工具栏设计
2
10.1.1 创建多文档界面应用程序
1．创建MDI窗体 用户要建立一个MDI窗体，可以选择“工程”菜单中的
“添加MDI窗体”命令，会弹出“添加MDI窗体”对话框， 选择“新建MDI窗体”或“现存”的MDI窗体，再选择“打 开”按钮。
第十章vb6.0 文件管理及操作
第十章文件管理及操作10.1 文件系统的基本操作VB提供了一些用于处理文件系统的语句，使用这些语句可以在VB应用程序中进行更改当前目录、建立或删除目录、删除文件等基本操作。
目录操作1.获取指定驭动器的当前路径。
要获取某驱动器的当前路径，可以使用CurDir函数，它的语法是：CurDir [drive].参数drive是指要获取信息的驱动器名称，如果忽略该参数，则CurDir函数返回当前驱动器的当前路径。
例如，如果驱动器E;的当前路径为“E: \Too1\Qicq”,则如下语句将在窗体上显示“E:\Too1\Qicq”.Print CurDir（“E”）。
2.更改当前驱动器。
使用ChDrive语句可以更改当前驱动器，其语法为：ChDrive drive.参数drive为要指定为当前驱动器的名称，例如，将驱动器A:指定为当前驱动器的语句为：ChDrive “A”.3.更改当前路径。
使用ChDir语句可以更改当前路径，其语法为：ChDir Path.参数Path为要指定的路径，如果在路径中没有指定驱动器的名称，则表示驱动器为当前驱动器。
例如，将路径C: \Windows指定为当前路径的语句为：ChDir “C:\Windows”.4.建立与删除目录。
使用MkDir语句可以创建一个新的目录，其语法为：MktDir Path.参数Path用来指定所要创建的目录以及目录所在的路径。
Path可以包含驱动器。
如果没有指定路径，则MkDir会在当前路径下创建新的目录。
例如：MKDir “C:\aa”在C盘中创建目录aaMKDir “C:\Windows\bb”在C盘windows目录中创建子目录bbMKDir “CC”在当前路径下创建目录cc使用RmDir语句可以删除某一空目录，其语法为：RmDir Path.例如：MKDir “C:\aa”删除C盘中目录aaMKDir “C:\Windows\bb”删除C盘windows目录中的子目录bbMKDir “CC”删除当前路径下创建目录cc注意：RmDir语句只能用来删除空的目录，如果目录中还包含有子目录或文件，则必须先删除子目录和文件。
度计算机等级考试二级VB基础教程(10)
度计算机等级考试二级VB 基础教程 (10)度计算机等级考试二级VB基础教程 (10)2.6VisualBasic的输入体制程序的基本操作就是数据的输入，数据办理和数据的输出。
VisualBasic可顶用于输入的控件主要有：文本框 TextBox、复选框 CheckBox、选项按钮 OptionButton 、列表框 ListBox、组合框 ComboBox、转动条 ScrollBar、通用对话框控件。
还有一个函数叫 InputBox 函数，也可用于数据的输入。
1.经过文本框输入数据只需获得文本框的Text 属性就能够对其进行操作了。
下边的代码可将Text1 文本框的正文变为大写输出至Text2 文本框。
PrivateSubForm_Click()Text2.Text=UCase(Text1.Text)EndSub2.经过复选框和选项按钮输入数据只需检测到 CheckBox和 RadioButton 的 Value 属性值就能够知道它们能否被选上了。
3.经过列表框和组合框输入数据(1)列表框 ListBox 和组合框 ComboBox的不同它们在 Windows 的 Open，SaveAs对话框里最为常有。
组合框又包含三种种类，这三种种类要在它的 Style 属性里设置。
列表框只是把能够选择的项目列出来，而组合框里有的种类能够同意用户输入数据。
(2)列表项目的增减使用 AddItem，RemoveItem 语句能够增减列表项目。
往常将项目增减的语句放入 Form_Load事件里。
ListBoxName.AddItemitemComboBoxName.AddItemitemitem 是新项目名称，一定是字符串种类，非字符串种类可经过Str 函数或Format 函数来变换。
转列表框，组合框的每一项目都有一个Index 值，第一个项目的 Index 值是 0，第二个是 1，依此类推。
删除项目可经过删除其Index 值来实现。
VB菜单工具栏
14-4 制作工具栏
一般情况下，工具栏是用来配合菜单。工具栏具有菜 单所缺少的图形化的外观，而且提供了比菜单更快速的访 问方式。因此，利用工具栏与应用程序中最常用的菜单命 令建立联系，由此可提高应用程序的用户操作速度。 为便于创建工具栏，Visual Basic的专业版与企业版 专门提供了用于制作工具栏的 ToolBar 控件。
6. 插入(Insert)按钮：
7. 删除(Delete)按钮： 8 ↓和↑按钮： 9. 复选(Checked)检查框： 10. 有效(Enabled)检查框： 11. 显示窗口列表 (Window List)检查框：
菜单的主要属性
1. 标题(Caption)：在窗口上显示，例如：输入&File， 显示为： File，热键：Alt+F 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框 4 下一个(Next)： 设置下一个菜单项。 5. ←和→按钮：“→” 下一级菜单项；“←”上一级菜单 项。 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. ↓和↑按钮： 改变菜单项位置。 9. 复选(Checked)检查框：菜单项为选定项。 10. 有效(Enabled)检查框：True：菜单项可选；False： 不可选。 11. 显示窗口列表(Window List)检查框： 决定是否显示所有打开的子窗体标题。 对MDI窗体和MDI子窗体有效，对普通窗体无效。
第十四章
菜单和工具栏
本章内容及要求：
1. 掌握菜单的制作和编程，包括普通菜单、弹出 式菜单以及动态变化的菜单。 2. 掌List控件之间的协作关系。
VB菜单、工具栏、菜单栏设计
03 提供足够的自定义选项，以满足不同用户的个性 化需求。
优化界面布局和交互方式
01
合理安排界面元素的位置和大小，使其符合用户的视觉习惯。
02
简化操作流程，减少不必要的步骤和点击次数。
提供清晰的视觉反馈，如按钮点击效果、动态加载指示等，以
03
03
菜单栏设计
菜单栏的布局
水平布局
将菜单项水平排列，适合于较长的菜单项名称。
垂直布局
将菜单项垂直排列，适合于较短的菜单项名称。
分组布局
将相关联的菜单项分组，便于用户快速找到所需功能。
菜单栏的设计原则
简洁明了
菜单项名称应简短、清晰，避免使用过于专 业的术语。
层次分明
菜单项应按照功能分类，形成清晰的层次结 构。
VB菜单、工具栏、菜 单栏设计
目录
• VB菜单设计 • 工具栏设计 • 菜单栏设计 • VB界面设计中的注意事项 • VB界面设计实例分析
01
VB菜单设计
菜单的类型
下拉菜单
下拉菜单是常见的菜单类型，用户点击菜单 项后，会弹出下拉列表供用户选择。
弹出菜单
弹出菜单通常在用户右键点击时出现，提供 一些常用的功能或操作。
02
工具栏设计
工具栏的种类
主工具栏
包含常用命令的综合性工具栏，方便 用户快速访问常用功能。
自定义工具栏
用户可以根据自己的需求创建自定义 工具栏，添加或删除按钮，以适应特 定工作流程。
浮动工具栏
可移动到屏幕任意位置的工具栏，方 便用户在不同区域使用。
停靠工具栏
可以自动停靠在窗体边缘的工具栏， 便于用户快速访问常用命令。
VB 菜单、工具栏和状态栏
菜单、工具栏和状态栏1菜单1.1菜单编辑器VB提供的菜单编辑器来设计实现。
菜单编辑器的启动方式：（1）选择“工具/菜单编辑器”命令。
（2）利用快捷键<Ctrl+E>来调用“菜单编辑器”。
1.2创建最简菜单在菜单的属性设置区域中有诸多的属性需要设置，其中，“标题”和“名称”属性是必须要设置的，其他的属性可以采用默认值，或者不进行设置。
仅设置了“标题”和“名称”属性的菜单就是最简菜单。
注意：“标题”属性和“名称”属性必须都设置，缺一不可，否则将不被菜单编辑器接受。
1.3设置菜单的快捷键和访问键快捷键是用于执行一个命令的功能键或者组合键，例如，<Ctrl+C>为复制操作。
访问键是指用户按下<Alt>键同时又按下的键。
例如，<Alt+F>用于打开“文件”菜单，这里的<F>键即为访问键。
1.4创建级联菜单在菜单编辑器中，以缩进量显示级联菜单的形式。
在菜单编辑器的菜单列表区中由内缩进符号表明菜单项所在的层次，每4个点表示一层，最多可以有5个内缩符号，最后面的菜单项为第5层。
1.5创建复选菜单通过复选菜单可以实现在菜单中执行或取消执行某项操作。
菜单的复选标记有两个作用：一是表示打开或关闭的条件状态，选取菜单命令可以交替地添加或删除复选标记；二是指示几个模式中哪个或哪几个在起作用。
1.6 设置菜单分隔条利用菜单分隔条可使功能相近的菜单放在一组，使子菜单看起来更加清晰、明了。
1.7 设置菜单无效有些菜单对于不同权限的操作用户的使用权限是不同的，如系统设置方面的菜单，只有系统管理员才能使用，当普通用户进入系统中时，这些菜单将被设置为无效。
2弹出式菜单弹出式菜单是指在窗体上单击鼠标右键之后弹出的菜单，也称为浮动菜单。
可使用PopupMenu方法显示弹出式菜单。
2.1PopupMenu方法语法：object.PopupMenu menuname, flags, x, y, boldcommand其中，object：可选参数，对象表达式，其值为Form或MDIForm；menuname：必须的参数，指出要显示的弹出式菜单名；flags：可选的参数，为一个数值或常数，用以指定弹出式菜单的位置和行为；x：可选的参数，指定显示弹出式菜单的x坐标；y：可选的参数，指定显示弹出式菜单的y坐标；boldcommand：可选的参数，指定弹出式菜单中的菜单控件的名称，用以显示其黑体正文标题。
工程编程软件VB课件教程-菜单和工具栏
菜单项
PowerPoint的文件菜单
分隔条(用于分隔同 一菜单中的不同类 型直接执行，有的菜单项执行时则会弹出一 个对话框。所有的Windows应用程序都遵循以下三个约定： 凡是菜单名后有一个省略号的，均表示在单击该选项后会弹 出一个相应的对话框，在用户作出相应的回答后，该项功能 就以用户所给予的信息去执行。如单击[打开]选项。 凡是菜单名称后有一个小三角的，则表示它是一个子菜单标 题，子菜单标题并不能直接执行，仅仅扮演一个“容器”的角 色。当鼠标指针移动到子菜单标题上时，会自动弹出子菜 单。如将鼠标指针移动到[发送]选项，就会弹出子菜单。
插入：在列表框的当前选定项上方插入一行。 删除：删除当前选定项。 确定：关闭菜单编辑器，并确认用户所创建的菜单或对已有 菜单进行的修改。菜单可以在设计时使用，但在设计时可以 通过选定一个菜单，来打开菜单单击事件的[代码]窗口，而 不是执行事件代码。 取消：关闭菜单编辑器，取消所有的修改。 菜单编辑器下方的空白区域为菜单控件列表框。用户所创建 的所有菜单控件都将显示在该列表中。
是VB提供的一个用于设计菜单的工
14.1.2 菜单编辑器简介
具，用它可以创建出新的菜单或编 辑已有的菜单。菜单编辑器位于VB 的[工具]菜单中。
[菜单编辑器 ]对话框
菜单编辑器中各选项的含义： 标题：该文本框用来输入菜单名，这些名字出现在菜单栏 或者菜单之中。若想在菜单中建立分隔条，则应在该文本 框中输入一个连字符“-”。为了能够通过键盘访问菜单项， 可在一个字母前插入“&”符号。 名称：该文本框用来输入菜单名称。在代码中就是以该名 称来访问菜单项的，它不会出现在菜单中，这与其它控件 的名称是一样的。特别注意：菜单的名称与标题的区别！ 索引：可指定一个数字值来确定控件在控件数组中的位 置。该位置与控件的屏幕位置无关。 快捷键：可在该列表框中为命令选择快捷键。
VB菜单及工具栏讲解幻灯片PPT
则显示菜单时，在该字母下有下划线，可以使用Alt+字母的 方式打开此菜单或执行相应的菜单命令
11.3 用菜单编辑器建立菜单
在这一节中，我们使用一个例题来讲解菜单编辑器的用法。
例题： 设计一个具有菜单的窗体，它有2个主菜单项，一个是计算， 一个是清除与退出；在“计算”菜单中，包含“加减乘 除”4个子菜单项，当单击任何一个计算菜单项，窗体上的 标签框的内容按照输入的文本框的内容进行计算。清除将进 行文本框和标签框的内容的清除，退出则结束程序运行。
4、键盘选择
一般情况下，菜单项通过鼠标选择，执行相应的操作。在vb中， 可以通过键盘选择所需要的菜单项。
用键盘选取菜单有两种方法：热键和访问键。 热键：可以直接执行菜单命令，不必一级一级下拉菜单，速度
较快。 访问键：就是菜单项中加了下划线的字母，只要按Alt和加了下
划线的字母，就可以选择相应的菜单项。用访问键选择菜单 项时，必须一级一级地选择。
9.2 菜单编辑器
VB中的菜单通过菜单编辑器，即菜单设计窗口建立。
进入菜单编辑器有4种方法： ►执行“工具”菜单中的“菜单编辑器”命令
►使用热键Ctrl+E ►使用工具栏中的“菜单编辑器”按钮 ►在设计阶段，在窗体上单击鼠标右键，出现的快捷菜单上有
“菜单编辑器”命令
进入菜单编辑器后，出现菜单编辑器对话框，如下图：
►协调位置：它是一个列表框，用来确定菜单或菜单项是否出 现或在什么位置显示。
►复选：当选择此项目时，该项菜单可以通过单击在菜单项前 加上指定的记号。它不改变菜单项的作用，也不影响事件过 程对于任何对象的执行结果，只是设置或重新设置菜单项旁 的符号。利用这个属性，可以指明某个菜单项当前是否处于 活动状态
VB菜单和窗体
（1）设计用户界面
（2）菜单设计：根据题意，建立两个菜单标题，分别完 成设置和计算功能。“设置”菜单中含有清除和退出 两个菜单项；“计算”菜单中含有加法、减法、乘法 和除法四个菜单项。
精选2021版课件
11
• Private Sub cheng_Click()
• Label1.Caption = cheng.Caption
引值作为参数传递给Click事件过程。 • Click事件过程根据传进来的索引值判断出选中的是哪一个
菜单项。 • 注意：菜单控件数组中的各个元素在菜单项显示区中必须
是连续的，而且必须是在同一缩进级上。若含有分隔条， 则它也要作为数组元素包含到菜单控件数组中。
精选2021版课件
20
• Private Sub js_Click(Index As Integer)
[对象名.]PopupMenu <菜单>, flags,x,y,boldcommand
• [对象名.]表示要显示弹出式菜单的窗体名称，默认为 当前窗体。
• 参数<菜单>是要显示的弹出式菜单名称。
• 参数flags定义弹出式菜单的位置，可指明位置常数与 行为常数。位置常数和行为常数分别如表10-1-3和表 10-1-4所示。如果要同时指定这两个常数，可用逻辑 运算符or进行组合，如4 or 2。
在菜单中的层次级别。 （2）↑、↓：改变菜单控件在菜单中的位置。 （3）下一个：选中当前菜单控件的下一个菜单控件。 （4）插入：在当前菜单控件的上方加入一个新的菜单控
件。 （5）删除：删除当前选中的菜单控件。
精选2021版课件
10
10.1.3 下拉菜单的设计
【例10-1-1】
设计一个具有算术运算（＋、－、×、÷）及清除 功能的菜单。通过键盘输入两个数，利用菜单命令计 算出它们的和、差、积、商，并显示出来。要求每个 菜单命令都有对应的快捷键。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 添加工具栏控件
(1) “工程→部件”，选Microsoft Windows Common
Controls 6.0
用 (2)
在窗体任意位置添加一个ImageList控件，名称默
认为ImageList1
(3) 用
在窗体上添加一个Toolbar控件(该控件自动位于菜
单栏的下面) ，其名称默认为Toolbar1。
MSComctlLib.Button)
End Select
OpenDoc
End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As Select Case Button.Key Case “open” OpenDoc …… “打开”按钮的关键字为open，图像值为 1 '或Case 1，表示单击“打开”按钮
编辑菜单控件
如果菜单 控件的前面 没有内缩符 号“ · · · · ”， 表明该控件 建立的是主 菜单，否则 为菜单命令 或子菜单。
3 方法： 先通过菜单编辑器设计菜单，然后编写各菜单控件的 Click事件过程。
[例] 创建简易编辑器 (1) 设计菜单
(2) 设计界面
菜单下面绘制两条直线 ( 两个 Line 控件 ) ，一条为黑色，一条 为白色。 黑线的Y1和Y2属性设为0 白线的Y1和Y2属性设为10 文本框Text1： MultiLine设为True ScrollBars设为3
(3) 编写菜单控件的Click事件过程
10. 2 弹出菜单的设计
用PopupMenu方法可显示弹出式菜单
[对象.]PopupMenu 菜单控件名称
若“对象”缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如：
Private Sub Form或控件名称_MouseUp (Button As Integer, Shift
10.3 工具栏的设计
创建工具栏一般须遵循以下四个步骤：
(1) 将ImageList控件和Toolbar控件添加到工具箱中， 然后添加到窗体上。
(2) 为窗体上的ImageList控件添加所需的图像。 (3) 建立ToolBar控件与ImageList控件之间的关联。 (4) 对ToolBar上的按钮编写Click事件响应代码。
右击窗体上的Toolbar控件，选择“属性”命令
“通用”选项卡：“图像列表”选择ImageList1
“按钮”选项卡：单击“插入按钮”
工具栏第一个按钮：
“索引”：自动变为1 “关键字”：输入
ImageList1控件中定义
的相应关键字
“图像”：输入“1”
以此类推插入其他按钮
4. 响应ToolBar控件事件
2. VB中的菜单控件
菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性 名称(Name)：程序代码中用来引用菜单控件 标题(Caption)：出现在控件上的文本
菜单控件只响应Click事件
使用菜单编辑器：
10.1 主菜单编设计
“工具→菜单编辑器” 工具栏“菜单编辑器”按钮
第10章 菜单、工具栏、状态栏、多文档
教学内容： 菜单的设计与应用（菜单编辑器、下拉式、弹出式） 工具栏与状态栏 多窗体程序的设计与应用 多文档界面 难点： 主菜单、弹出式菜单、工具栏、状态栏的设计
菜单的设计与应用－相关概念
1. 菜单的类型
下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动 菜单，其菜单项取决于按下鼠标右键时指针所处的位置。
1 常用属性
标题：设置Caption属性 字符前加&，该字符成为访问键 只输入一个减号- ，创建分隔条 名称：设置Name属性 注：对分隔条，也需定义名称
索引(Index)：用于菜单控件数组
快捷键 、 复选(Checked) 有效(Enabled)、 可见(Visible)
2
单击工具栏上的某个按钮，将引发ButtonClick事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
根据按钮的关键字(Button.Key)或者图像值(Button.Image) 可判断单击的是哪个按钮，然后通过Select Case语句进行 相应的处理
栏
例：菜单中有一个“打开”菜单命令(名称为mOpen)，工具
上有一个“打开”按钮(关键字为open，图像值为1)，单击它们 都 执行同样的操作(执行OpenDoc过程)，相应的代码如下：
Private Sub mOpen_Click() '单击“打开”菜单命令
2. 为窗体上的ImageList控件添加所需的图像
右击窗体上的ImageList控件，选择“属性”命令
“通用”选项卡：设置按钮大小
“颜色”选项卡：设定按钮的颜色
“图像”选项卡：选择要加入的图像
“图像”选项卡：定义“关键字”(在ToolBar控件中引用的
图像标识名)
3. 建立ToolBar控件与ImageList控件之间的关联
As Integer, X As Single, Y As Single) If Button = 2 Then End If End Sub '如果按的是鼠标右键
PopupMenu 菜单名 '显示弹出菜单
[例] 弹出菜单设计
(1) 打开例子所建立的工程 (2) 添加如下的事件过程： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit '弹出名称为mnuEdit的菜单 End If End Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计 菜单时，需取消主菜单的“可见”复选框。