第10章 菜单与工具栏visual basic
合集下载
VISUAL BASIC 教案
1 单击工具箱中绘制命令按钮控件的工具
。
② 将鼠标指针移到窗体上适当位置，此时指针变成十字线，按住鼠标器左键不放， 拖拉出一个大小合适的方框，释放鼠标器左键，就形成一个命令按钮，如图 6-8 所示。
图 6-8 建立控件以后，工具箱中的相应工具和鼠标指针恢复原状。刚建好控件的四周有 8 个
小方块，表示该控件为活动控件。用鼠标器单击控件可选定该控件并使其成为活动控件， 拖动控件到新的位置放开可移动控件。用鼠标器拖动控件四周的小方块可改变控件的大 小。 ⑵ 对象的命名 每个对象都有自己的名字，有了名字才能在程序中引用该对象。在建立对象时，VB 会自动提供一个形如 Command1、Command2、Label1、Label2 之类的缺省名。为了使程序 容易阅读、理解，最好给对象设置一个有意义的名字，如 cmdOk 等。一般约定对象名由 3 个小写字母组成的前缀（指明对象的类型）和表示该对象作用的缩写字母组成，表 6-2 列 出了常用控件的前缀规定和命名举例。 名字是对象的属性之一，可以通过在属性窗口设置名称属性来给对象命名。 表 6-2 对象的类型 Form Command Label TextBox Timer 2． 象的属性、方法和事件 VB中的对象具有自己的属性、方法和事件。可以把属性看作对象的性质，把方法看作 对象的动作，把事件看作对象对外部操作的响应，它们构成了对象的三要素。 日常生活中的对象，如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可 以看到的一些性质，如它的直径和颜色，以及其它一些描述气球状态的属性，如充气或未 充气。气球还具有本身所固有的动作，如放气方法（排出气球中的气体）和上升方法（放 手让气球飞走） 。气球还有预定义的对某些外部事件的响应，例如，气球对刺破它的事件 响应是放气，对放手事件的响应是升空。 ⑴ 属性 属性(property)是对象的性质，对象的许多属性会影响对象的外观及功能，如窗体的 Caption 属性决定窗体标题栏中显示的内容，Name 属性设置窗体的名称，Height 和 Width 属性决定窗体的初始大小，Top 和 left 属性决定窗体的位置，MaxButton 和 MinButton 属 性决定窗体能否最大化或最小化等。 不同的对象有许多相同的属性， 也有许多不同的属性。 对象的属性可以在设计程序界面时通过属性窗口设置。也可以在运行时通过程序代码设 意义 窗体 命令按钮 标签 文本框 定时器 前缀 frm cmd lbl txt tmr 名字举例 frmFind cmdOk lblInput txtSource tmrClock
。
② 将鼠标指针移到窗体上适当位置，此时指针变成十字线，按住鼠标器左键不放， 拖拉出一个大小合适的方框，释放鼠标器左键，就形成一个命令按钮，如图 6-8 所示。
图 6-8 建立控件以后，工具箱中的相应工具和鼠标指针恢复原状。刚建好控件的四周有 8 个
小方块，表示该控件为活动控件。用鼠标器单击控件可选定该控件并使其成为活动控件， 拖动控件到新的位置放开可移动控件。用鼠标器拖动控件四周的小方块可改变控件的大 小。 ⑵ 对象的命名 每个对象都有自己的名字，有了名字才能在程序中引用该对象。在建立对象时，VB 会自动提供一个形如 Command1、Command2、Label1、Label2 之类的缺省名。为了使程序 容易阅读、理解，最好给对象设置一个有意义的名字，如 cmdOk 等。一般约定对象名由 3 个小写字母组成的前缀（指明对象的类型）和表示该对象作用的缩写字母组成，表 6-2 列 出了常用控件的前缀规定和命名举例。 名字是对象的属性之一，可以通过在属性窗口设置名称属性来给对象命名。 表 6-2 对象的类型 Form Command Label TextBox Timer 2． 象的属性、方法和事件 VB中的对象具有自己的属性、方法和事件。可以把属性看作对象的性质，把方法看作 对象的动作，把事件看作对象对外部操作的响应，它们构成了对象的三要素。 日常生活中的对象，如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可 以看到的一些性质，如它的直径和颜色，以及其它一些描述气球状态的属性，如充气或未 充气。气球还具有本身所固有的动作，如放气方法（排出气球中的气体）和上升方法（放 手让气球飞走） 。气球还有预定义的对某些外部事件的响应，例如，气球对刺破它的事件 响应是放气，对放手事件的响应是升空。 ⑴ 属性 属性(property)是对象的性质，对象的许多属性会影响对象的外观及功能，如窗体的 Caption 属性决定窗体标题栏中显示的内容，Name 属性设置窗体的名称，Height 和 Width 属性决定窗体的初始大小，Top 和 left 属性决定窗体的位置，MaxButton 和 MinButton 属 性决定窗体能否最大化或最小化等。 不同的对象有许多相同的属性， 也有许多不同的属性。 对象的属性可以在设计程序界面时通过属性窗口设置。也可以在运行时通过程序代码设 意义 窗体 命令按钮 标签 文本框 定时器 前缀 frm cmd lbl txt tmr 名字举例 frmFind cmdOk lblInput txtSource tmrClock
VisualBasic工具栏、对话框
VisualBasic工具栏、对话框工具栏可以用工具栏进一步增强应用程序的菜单界面。
工具栏含有工具栏按钮，它提供了对于应用程序中最常用的命令的快速访问。
例如：Visual Basic 的工具栏含有执行常用命令的ToolBarButton，如"打开"（打开已存在的工程）、"保存"（存储当前的工程），等等。
创建工具栏工具栏（也称为发条或者控制栏）已经成为许多基于Windows 的应用程序的标准功能。
工具栏提供了对于应用程序中最常用的菜单命令的快速访问。
使用ToolBar 控件来创建工具栏非常容易且很方便，它在Visual Basic的专业版与企业版中是可用的。
如果使用的是Visual Basic 学习版，则可以像本章后面的"协调菜单与工具栏的外观"所描述的那样用手工来创建工具栏。
下列示例演示为MDI 应用程序创建工具栏的过程；在标准窗体上创建一个工具栏的过程基本上一样。
要手工创建工具栏，请按照以下步骤执行：1. 在MDI 窗体上放置一个图片框。
图片框的宽度会自动伸展，直到填满MDI 窗体工作空间。
工作空间就是窗体边框以内的区域，不包括标题条、菜单栏或所有的工具栏、状态栏或者可能在窗体上的滚动条。
注意只能把那些直接支持Align 属性的控件放置在MDI 窗体上（图片框是支持这一属性的的标准控件）。
2. 在图片框中，可以放置任何想在工具栏上显示的控件。
典型地，用CommandButton 或Image 控件来创建工具栏按钮。
图 6.16表示出了一个含有Image 控件的工具栏。
要在图片框中添加控件，单击工具栏中的控件按钮，然后在图片框中画出它。
注意当MDI 窗体中包含了图片框时，该MDI 窗体的内部区域不包括图片框在内。
例如：MDI 窗体的ScaleHeigh 属性返回MDI 窗体的内部高度，这个高度已不包括图片框的高度。
3. 设置设计时属性。
vb7.1.1
教材章节
第1章 第 2章 第3章 第 4章 第 5章 第6章 第 7章 第 8章 第 9章 第10章 Visual Basic程序设计概述 VB可视化编程基础 VB语言基础 VB控制结构 数组和自定义类型 过 程 用户界面设计 数据文件 图形操作 数据库应用基础
回
顾
第一章 Visual Basic 程序设计概述
文本框（Text1）显示预设的字样； 复选按钮一（Check1)可以将文本框里面的字变 为粗体； 复选按钮二（Check2）可以将文本框里面的字变 为斜体； 复选按钮三（Check3）可以给文本框里面的文字 加上下划线。
复选按钮一：
Private Sub Check1_Click() Text1.Font.Bold = NOT Text1.Font.Bold End Sub
第五章
数组
数组：一组相同类型变量的集合
1、数组的概念：数组的维数、数组的声明、数组的分类
2、静态数组和动态数组 3、数组的基本操作 4、控件数组：控件数组的概念、控件数组的建立
第六章 过 程
一、SUB过程和Function函数过程的定义、调用 二、过程的递归调用
三、调用过程时的参数传递：
1、按值传递：实参可以是常量、变量、表达式 2、按址传递：实参只能是变量（数组） 3、数组参数的传递
联想： 复选框能不能如单选按钮那样直接使用呢？ 还是上面这个例子，假设直接在Click事件中输入代码： Private Sub Check1_Click() Text1.Font.Bold = True End Sub
？
那么你会发现，复选框一经点击就不能取消字体加粗的效果 了；而实际上，复选框的功能是，点击一次即选中时，字体 加粗；点击第二次即取消选择，字体不再加粗；以此类推。
第1章 第 2章 第3章 第 4章 第 5章 第6章 第 7章 第 8章 第 9章 第10章 Visual Basic程序设计概述 VB可视化编程基础 VB语言基础 VB控制结构 数组和自定义类型 过 程 用户界面设计 数据文件 图形操作 数据库应用基础
回
顾
第一章 Visual Basic 程序设计概述
文本框（Text1）显示预设的字样； 复选按钮一（Check1)可以将文本框里面的字变 为粗体； 复选按钮二（Check2）可以将文本框里面的字变 为斜体； 复选按钮三（Check3）可以给文本框里面的文字 加上下划线。
复选按钮一：
Private Sub Check1_Click() Text1.Font.Bold = NOT Text1.Font.Bold End Sub
第五章
数组
数组：一组相同类型变量的集合
1、数组的概念：数组的维数、数组的声明、数组的分类
2、静态数组和动态数组 3、数组的基本操作 4、控件数组：控件数组的概念、控件数组的建立
第六章 过 程
一、SUB过程和Function函数过程的定义、调用 二、过程的递归调用
三、调用过程时的参数传递：
1、按值传递：实参可以是常量、变量、表达式 2、按址传递：实参只能是变量（数组） 3、数组参数的传递
联想： 复选框能不能如单选按钮那样直接使用呢？ 还是上面这个例子，假设直接在Click事件中输入代码： Private Sub Check1_Click() Text1.Font.Bold = True End Sub
？
那么你会发现，复选框一经点击就不能取消字体加粗的效果 了；而实际上，复选框的功能是，点击一次即选中时，字体 加粗；点击第二次即取消选择，字体不再加粗；以此类推。
龚沛曾VisualBasicVB程序设计教程件PPT教案
第16页/共29页
17
二、窗体设计窗口(Form)
窗体是建立VB应用程序的主要部分，一个应 用程序至少有一个窗体窗口。 每个窗体必须有一个唯一的窗体名，默认名 为Form1。 设计状态的窗体由网格点构成，方便用户对 控件的定位，网格点间距可以通过工具|选项|通 用进入窗体网格设置。 运行时可通过属性控制窗体的可见性(窗体的 网格始终不显示)。 利用Shift+F7组合键打开窗体窗口
的直其线(L他ine)控件装入到工具箱。
数据控制(Data)
第23页/共29页
七、其他窗口
1.立即（Immediate）窗口
为调试程序提供的，可在此直 接用Print方法输出表达式的值， 也可以在程序代码中用 Debug.print语句在立即窗口输 出表达式的值。
2.窗体布局（Form Layout）窗口
第6页/共29页
7
当一个标签放在窗体上时，标签的左上角坐 标（用Left、Top表示）就被指定了。
0,0 Top
Left 欢迎使用VB
如果改变标签的左上角坐标就可移动标 签，即移动文字。 例如: Label1.Top=Label1.Top+50可使 标签Label1向下移动50单位。
第7页/共29页
。
第17页/共29页
18
三、代码(Code)设计窗口
1.代码窗口作用
编辑和显示窗体、标准模块中的代 码。每 个窗体 都有各 自的代 码窗口 。
2.代码窗口的组成
（1）“对象”下拉列表框 （2）“过程”下拉列表框 （3）“代码”框 （4）“过程查看”按钮 （5）“全模块”查看按钮。
3.代码窗口的打开方法 （4种）
用于指定程序第24页运/共2行9页 时窗体的初 始位置，主要应用于多窗体程
17
二、窗体设计窗口(Form)
窗体是建立VB应用程序的主要部分，一个应 用程序至少有一个窗体窗口。 每个窗体必须有一个唯一的窗体名，默认名 为Form1。 设计状态的窗体由网格点构成，方便用户对 控件的定位，网格点间距可以通过工具|选项|通 用进入窗体网格设置。 运行时可通过属性控制窗体的可见性(窗体的 网格始终不显示)。 利用Shift+F7组合键打开窗体窗口
的直其线(L他ine)控件装入到工具箱。
数据控制(Data)
第23页/共29页
七、其他窗口
1.立即（Immediate）窗口
为调试程序提供的，可在此直 接用Print方法输出表达式的值， 也可以在程序代码中用 Debug.print语句在立即窗口输 出表达式的值。
2.窗体布局（Form Layout）窗口
第6页/共29页
7
当一个标签放在窗体上时，标签的左上角坐 标（用Left、Top表示）就被指定了。
0,0 Top
Left 欢迎使用VB
如果改变标签的左上角坐标就可移动标 签，即移动文字。 例如: Label1.Top=Label1.Top+50可使 标签Label1向下移动50单位。
第7页/共29页
。
第17页/共29页
18
三、代码(Code)设计窗口
1.代码窗口作用
编辑和显示窗体、标准模块中的代 码。每 个窗体 都有各 自的代 码窗口 。
2.代码窗口的组成
（1）“对象”下拉列表框 （2）“过程”下拉列表框 （3）“代码”框 （4）“过程查看”按钮 （5）“全模块”查看按钮。
3.代码窗口的打开方法 （4种）
用于指定程序第24页运/共2行9页 时窗体的初 始位置，主要应用于多窗体程
access菜单和工具栏知识
菜单和工具栏知识(1)-修改用户界面的工具有两种自定义菜单栏和工具栏的工具：共享“自定义”对话框和Visual Basic。
虽然，在每个Off ice应用程序之间，“自定义”对话框仍有很小的区别，但是用于修改菜单栏和工具栏的可编程对象在所有的应用程序中都是相同的。
本节讲述了“自定义”对话框和共享可编程对象，以及何时和怎样使用这些工具。
“自定义”对话框Office应用程序(包括Outlook)提供了相同的接口－“自定义”对话框－来对Visual Basic应用程序进行设计时刻更改。
对菜单栏和工具栏的设计时刻更改是指在应用程序运行前的任何更改。
这包括添加、删除、移动、恢复菜单部件和工具栏控件，以及设置它们在运行时条件改变后不会改变的属性。
这一节讨论怎样使用“自定义”对话框和VB代码来修改菜单栏和工具栏。
在两种技术都可作同样修改的场合下，使用“自定义”对话框能更快和更容易地完成设计时刻更改。
显示“自定义”对话框在“视图”菜单里，指到“工具栏”，然后单击“自定义”。
以下图示是PowerPoint 中“自定义”对话框里的“工具栏”一表。
Microsoft Access，Microsoft Excel，和Microsoft Word和Microsoft PowerPoint一样，都在“自定义”对话框(含“工具栏”表，“命令”表和“选项”表)中提供了相同的控件，但是前三种应用软件还在“工具栏”表和“命令”表中包含了其他一些元素，专门用于这些软件本身的自定义。
这些元素将在下面的段落中进行介绍。
Microsoft Access “工具栏”表包含一个“属性”按钮，用来显示“工具栏属性”对话框。
使用这个对话框来设置内制属性或自定义菜单栏和工具栏。
关于使用“工具栏属性”对话框的详细说明，请参考“Building Applications with Microsoft Access 97”的第一章。
Microsoft Excel “工具栏”表包含一个“附加”按钮，用来显示“附加工具栏”对话框。
二级VB 第10章 菜单、工具栏、状态栏、多文档
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 菜单控件名称
VB程序设计第10章 ActiveX控件简介
Company Logo
Logo
12．工具栏上的按钮如打开，保存和打印等，其相应的图 标在何处可以得到？ 答：可以在VB的Graphics\BITMAPS\TLBR_W95目录下找 到工具按钮位图。
13．如何知道点击TreeView的+号所选中的目录 答：这种情况应该在Expand事件中获得节点。在TreeView 控件中的Node对象扩展开时， 也就是它的子节点变成可 视时，这个事件便发生。Expand事件发生在Click和 DblClick事 件之后。语法是： Private Sub object_Expand(ByVal node As Node) 其中参数node是所需要要获得的节点。
Company Logo
Logo
7．如何在StatusBar控件中增加一个变量并将该 变量值显示在状态栏里？ 答：将StatusBar的Style属性为sbrSimple，即： StatusBar1.SimpleText =cy （其中cy为变量名）。 如果Style属性为sbrNormal，可以这样： Set pnlX = StatusBar1.Panels.Add pnlX.Text =cy „改变面板对象的文本
答：可以使用下面的语句加入一个按钮，叫bold： Set btnX = Toolbar1.Buttons.Add(, "bold", , tbrCheck, "bold") 然后检查Toolbar1.Buttons("bold").Value的值， 如果该值为tbrUnpressed，表示按钮 没 有被按下， 如果为tbrPressed表示被按下。检查工作通常是 在toolbar1_ButtonClick事件中完成的 。
Logo
12．工具栏上的按钮如打开，保存和打印等，其相应的图 标在何处可以得到？ 答：可以在VB的Graphics\BITMAPS\TLBR_W95目录下找 到工具按钮位图。
13．如何知道点击TreeView的+号所选中的目录 答：这种情况应该在Expand事件中获得节点。在TreeView 控件中的Node对象扩展开时， 也就是它的子节点变成可 视时，这个事件便发生。Expand事件发生在Click和 DblClick事 件之后。语法是： Private Sub object_Expand(ByVal node As Node) 其中参数node是所需要要获得的节点。
Company Logo
Logo
7．如何在StatusBar控件中增加一个变量并将该 变量值显示在状态栏里？ 答：将StatusBar的Style属性为sbrSimple，即： StatusBar1.SimpleText =cy （其中cy为变量名）。 如果Style属性为sbrNormal，可以这样： Set pnlX = StatusBar1.Panels.Add pnlX.Text =cy „改变面板对象的文本
答：可以使用下面的语句加入一个按钮，叫bold： Set btnX = Toolbar1.Buttons.Add(, "bold", , tbrCheck, "bold") 然后检查Toolbar1.Buttons("bold").Value的值， 如果该值为tbrUnpressed，表示按钮 没 有被按下， 如果为tbrPressed表示被按下。检查工作通常是 在toolbar1_ButtonClick事件中完成的 。
大一上学期第10章 程序设计基础
2
程序设计的基本步骤： 程序设计的基本步骤： (1)分析问题，确定数学模型或方法。 分析问题， 分析问题 确定数学模型或方法。 (2)设计算法，画出流程图。 设计算法， 设计算法 画出流程图。 (3)选择编程工具，按算法编写程序。 选择编程工具， 选择编程工具 按算法编写程序。 (4)调试程序，分析输出结果。 调试程序， 调试程序 分析输出结果。
10
10.2.5 算法示例
1．迭代算法 ． 迭代是一种建立在循环基础上的算法。在数学中， 迭代是一种建立在循环基础上的算法。在数学中， 迭代经常被用来进行数值计算，例如求方程的解， 迭代经常被用来进行数值计算，例如求方程的解， 不断用变量原来的值递推求新的值的过程。 不断用变量原来的值递推求新的值的过程。 讨论求若干个数之和或乘积的问题。 讨论求若干个数之和或乘积的问题。
15
（2）折半查找 ）
作为折半查找的表必须是顺序存储的有序表， 作为折半查找的表必须是顺序存储的有序表，即表采 用顺序结构存储，表中的元素按关键字值递增（或递减） 用顺序结构存储，表中的元素按关键字值递增（或递减） 排列。 排列。 假设表中的关键字值递增排列， 假设表中的关键字值递增排列，则折半查找的实现方 法是：首先取整个有序表的中间元素A 法是：首先取整个有序表的中间元素 m的关键字同给定 比较， 值x比较，若相等，则查找成功；否则，若Am的关键字小 比较 若相等，则查找成功；否则， 于x，则说明待查元素只可能落在表的后半部分中，接着 ，则说明待查元素只可能落在表的后半部分中， 只要在表的后半部分子表中查找即可； 只要在表的后半部分子表中查找即可；若 Am的关键字大 于x，则说明待查元素只可能落在表的前半部分中，接着 ，则说明待查元素只可能落在表的前半部分中， 只要在表的前半部分子表中查找即可。这样， 只要在表的前半部分子表中查找即可。这样，经过一次关 键字的比较，就缩小一半的查找空间，重复进行下去， 键字的比较，就缩小一半的查找空间，重复进行下去，直 到找到关键字为x的元素 或者表中没有待查元素（ 的元素， 到找到关键字为 的元素，或者表中没有待查元素（此时 查找区间为空）为止。 查找区间为空）为止。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在窗体中添加一个图片框作为工具栏的容器，将其Align属性设为非0；
2．添加工具控件：
如 ： 按 钮 类 （ 互 不 干 涉 的 按 钮 用 CommandButton 、 互 斥 的 按 钮 用 OptionButton 、 可 以 多 选 的 用 CheckBox ） ， 列 表 类 （ ListBox 、 ComboBox 、 DriveListBox），其它类（TextBox、ScrollBar）。
§10.2 使用工具栏
工具栏的出现大大简化了软件的操作进程，用户可以不必一级一
级地去寻找相应的菜单项，直接在工具栏中点击相应的工具按钮即可。
制作工具栏有两种方法：手工制作或用相应的控件。
一、用手工方式制作工具栏 二、使用Toolbar控件和ImageList控件
一、用手工方式制作工具栏
1．添加图片框：
一、下拉式菜单 二、弹出式菜单
一、下拉式菜单
下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）和子菜单 （最深可达5层）。在VB中各种菜单的设计全是借助菜单编辑器（控件） 来完成的。
1．菜单编辑器
●打开“菜单编辑器”的三种方法： ① ② ③ ① ② 右击窗体的空白处，选择“菜单编辑器”； 单击工具栏中的“菜单编辑器”； 选择“工具”菜单中的“菜单编辑器”。 属性区：10个属性 编辑区： 7个按钮
●Wrappable属性：决定当窗口宽度小于按钮总宽度时，按钮是否自动换行显示。
●ButtonClick事件
第10章 菜单与工具栏
§10.1 使用菜单
一、下拉式菜单
二、弹出式菜单
回顾
§10.2
使用工具栏
一、用手工方式制作工具栏
二、使用Toolbar控件和ImageList控件
作业：
1．Page
2．Page
3．菜单项的可用与不可用
菜单可用与否应根据程序的运行状态来定。当条件不成熟
时，菜单项 应隐藏起来 （ Visible=False ）或设置成灰色 状态
（ Enabled=False ）。当条件成熟后，再将相应的菜单项设置成
可见（Visible=True）或可用（Enabled=True）状态。
●实例： 控制例9-2简易文本编辑器中，编辑菜单的可用状态。
第10章 菜单与工具栏
菜单栏和工具栏的使用，为Winows类的应用程序增色不少； 也为用户使用软件提供了最大的便利条件。在VB中为应用程序制 作菜单和工具栏非常方便，只有引用相应的控件即可。
§10.1
§10.2
使用菜单
使用工具栏
§10.1
使用菜单
当一个应用软件中有众多可操作内容时，用菜单可使程序界 面变得简洁、操作方便而直观。当然，菜单的内容依软件的不同 而不同，但菜单的基本形式只有两种：
②ToolsBar控件的属性
●Align属性：工具栏出现的位置。
●Button属性：引用工具条中的相应按钮。 ●ShowTips属性：是否显示工具提示。 ●ImageList属性：用来指明于此工具条相应的ImageList控件的名称。 ●Height属性：工具栏的高度。 ③ToolsBar常用方法和事件
3．设置控件的属性：
如按钮类的Style、Picture，及各个控件的ToolTipText等。
4．编写代码：
可以直接写事件代码，但通常工具栏中的内容是对菜单等其它命令的快捷 访问，因此也可直接调用相应的过程。
5．实例：
在例9-2（简易文本编辑器）中，加入工具栏（新建、打开、保存、粗体、 斜体、下划线等）。
二、弹出式菜单
弹出式菜单又称为快捷菜单，是在右击某一对象时弹出的。
1．制作方法：
在某一个要弹出快捷菜单的对象的MouseDown事件中，判断Button的值是否为2 （右键），若是则用PopupMenu方法，具体格式为：
2．格式：
[<窗体名>.] PopupMenu <菜单名> [，flags[，x[，y[，BoldCommand]]]]
⑥“插入”：在列表框的当前选定行上方插入一项。
⑦“删除”：删除当前选定项。 ●“菜单编辑器”控件的列表区
列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分
级位置或等级。 ●实例：制作一个菜单栏，控制文本框中的文ቤተ መጻሕፍቲ ባይዱ效果：主菜单有：字
体、字号、颜色、字型、关闭；除了关闭菜单项以外，其它菜单项中
均有子菜单；相应的效果应在菜单项中有复选标记！
223：4
223：5
3．Page
223：6
二、使用Toolbar控件和ImageList控件
1．ImageList控件
ImageList控件是一个为其它控件提供图像资料的资料中心，它可以为 ToolBar等许多控件提供图像，但它本身不能单独使用。 ①添加ImageList控件 在部件对话框中，选择Microsoft Windows Common Control 6 ．0，并 点击确定，此时工具箱中会出现一组共9个控件。 ②给ImageList控件添加图像 ●设置图像大小
3．说明：
①若打开的快捷菜单不是本窗体中的菜单时，需指明窗体名； ②弹出的＜菜单名＞，可以是隐藏的； ③Flags可取0、4、8，决定菜单出现的位置：右、中、左；默认值为0； ④X，Y指明菜单弹出的位置（从窗体的原点算起）；
⑤BoldCommand指明需加粗的菜单项的名称（只能有一项）；
⑥文本框右击，弹出的是系统提供的菜单，左击可自定义有关弹出式菜单； ⑦同一个菜单可作为多个对象的快捷菜单。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu EDIT, , , , EDI(3) End If End Sub
2．菜单控件数组
●作用： ① ② 可动态增减控件（菜单）； 简化程序、缩减程序代码。
●创建方法： 在菜单编辑器中，给菜单项起同一个名字，并设置其下标即可。
●注意事项：
① ② ③ ●实例： 在例 9-2 （简易文本编辑器）中，加入菜单，并增加“编辑”功 能。 同一个菜单控件数组中的各菜单项名称必须相同； 控件数组元素的下标必须是升序； 控件数组元素必须是连续的且在相同的子菜单内；
●添加图像
可以单个添加，也可以一次加入多个或全部，不需要的再删除。 ●设置关键字Key
二、使用Toolbar控件和ImageList控件
2．ToolBar控件简介
ToolBar即工具条控件，是Windows 中最常用的控件之一，它为用户提供了 访问程序的快捷方式，极大地方便了用户。
①使用方法：
在“通用”标签中将图像列表设置好，然后在“按钮”标签中添加按钮， 设置其所要用到的图像的序号或关键字，并输入相应的工具提示文本。
二、弹出式菜单
3．实例：
Private Sub Form_MouseDown(Button As Integer, Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu EDIT, , 500, 500, EDI(3) End If End Sub Shift As
⑦可见（Visible）：设置菜单项是否可见。
1．菜单编辑器
●“菜单编辑器”控件的编辑区
①“ ②“ ”：把选定的菜单下移一个等级。共5个等级。 ”：把选定的菜单上移一个等级。
③“
④“
”：把选定的菜单项在同级菜单内向上移动一个位置。
”：把选定的菜单项在同级菜单内向下移动一个位置。
⑤“下一个”：将焦点转移到下一个菜单项。
●“菜单编辑器”的构成
③
列表区： 列出已建立的菜单内容
1．菜单编辑器
●“菜单编辑器”控件的主要属性
①标题（Caption）：设置菜单项的标题，当标题是 “－”时， 菜 （运 单项是一条分割线；用“ & ＋字母”的方式可设置菜单的热键 行时用Alt＋字母击活）。 ②名称（Name）：设置菜单项的名称，以便在程序中识别和引用。 ③索引（Index）：设置菜单控件数组的下标。 ④快捷键（ShortCut）：设置击活该子菜单项的快捷键 ⑤复选（Checked）：设置菜单项前是否有复选标记“√”。 ⑥有效（Enabled）：设置菜单项有效或无效。
2．添加工具控件：
如 ： 按 钮 类 （ 互 不 干 涉 的 按 钮 用 CommandButton 、 互 斥 的 按 钮 用 OptionButton 、 可 以 多 选 的 用 CheckBox ） ， 列 表 类 （ ListBox 、 ComboBox 、 DriveListBox），其它类（TextBox、ScrollBar）。
§10.2 使用工具栏
工具栏的出现大大简化了软件的操作进程，用户可以不必一级一
级地去寻找相应的菜单项，直接在工具栏中点击相应的工具按钮即可。
制作工具栏有两种方法：手工制作或用相应的控件。
一、用手工方式制作工具栏 二、使用Toolbar控件和ImageList控件
一、用手工方式制作工具栏
1．添加图片框：
一、下拉式菜单 二、弹出式菜单
一、下拉式菜单
下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）和子菜单 （最深可达5层）。在VB中各种菜单的设计全是借助菜单编辑器（控件） 来完成的。
1．菜单编辑器
●打开“菜单编辑器”的三种方法： ① ② ③ ① ② 右击窗体的空白处，选择“菜单编辑器”； 单击工具栏中的“菜单编辑器”； 选择“工具”菜单中的“菜单编辑器”。 属性区：10个属性 编辑区： 7个按钮
●Wrappable属性：决定当窗口宽度小于按钮总宽度时，按钮是否自动换行显示。
●ButtonClick事件
第10章 菜单与工具栏
§10.1 使用菜单
一、下拉式菜单
二、弹出式菜单
回顾
§10.2
使用工具栏
一、用手工方式制作工具栏
二、使用Toolbar控件和ImageList控件
作业：
1．Page
2．Page
3．菜单项的可用与不可用
菜单可用与否应根据程序的运行状态来定。当条件不成熟
时，菜单项 应隐藏起来 （ Visible=False ）或设置成灰色 状态
（ Enabled=False ）。当条件成熟后，再将相应的菜单项设置成
可见（Visible=True）或可用（Enabled=True）状态。
●实例： 控制例9-2简易文本编辑器中，编辑菜单的可用状态。
第10章 菜单与工具栏
菜单栏和工具栏的使用，为Winows类的应用程序增色不少； 也为用户使用软件提供了最大的便利条件。在VB中为应用程序制 作菜单和工具栏非常方便，只有引用相应的控件即可。
§10.1
§10.2
使用菜单
使用工具栏
§10.1
使用菜单
当一个应用软件中有众多可操作内容时，用菜单可使程序界 面变得简洁、操作方便而直观。当然，菜单的内容依软件的不同 而不同，但菜单的基本形式只有两种：
②ToolsBar控件的属性
●Align属性：工具栏出现的位置。
●Button属性：引用工具条中的相应按钮。 ●ShowTips属性：是否显示工具提示。 ●ImageList属性：用来指明于此工具条相应的ImageList控件的名称。 ●Height属性：工具栏的高度。 ③ToolsBar常用方法和事件
3．设置控件的属性：
如按钮类的Style、Picture，及各个控件的ToolTipText等。
4．编写代码：
可以直接写事件代码，但通常工具栏中的内容是对菜单等其它命令的快捷 访问，因此也可直接调用相应的过程。
5．实例：
在例9-2（简易文本编辑器）中，加入工具栏（新建、打开、保存、粗体、 斜体、下划线等）。
二、弹出式菜单
弹出式菜单又称为快捷菜单，是在右击某一对象时弹出的。
1．制作方法：
在某一个要弹出快捷菜单的对象的MouseDown事件中，判断Button的值是否为2 （右键），若是则用PopupMenu方法，具体格式为：
2．格式：
[<窗体名>.] PopupMenu <菜单名> [，flags[，x[，y[，BoldCommand]]]]
⑥“插入”：在列表框的当前选定行上方插入一项。
⑦“删除”：删除当前选定项。 ●“菜单编辑器”控件的列表区
列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分
级位置或等级。 ●实例：制作一个菜单栏，控制文本框中的文ቤተ መጻሕፍቲ ባይዱ效果：主菜单有：字
体、字号、颜色、字型、关闭；除了关闭菜单项以外，其它菜单项中
均有子菜单；相应的效果应在菜单项中有复选标记！
223：4
223：5
3．Page
223：6
二、使用Toolbar控件和ImageList控件
1．ImageList控件
ImageList控件是一个为其它控件提供图像资料的资料中心，它可以为 ToolBar等许多控件提供图像，但它本身不能单独使用。 ①添加ImageList控件 在部件对话框中，选择Microsoft Windows Common Control 6 ．0，并 点击确定，此时工具箱中会出现一组共9个控件。 ②给ImageList控件添加图像 ●设置图像大小
3．说明：
①若打开的快捷菜单不是本窗体中的菜单时，需指明窗体名； ②弹出的＜菜单名＞，可以是隐藏的； ③Flags可取0、4、8，决定菜单出现的位置：右、中、左；默认值为0； ④X，Y指明菜单弹出的位置（从窗体的原点算起）；
⑤BoldCommand指明需加粗的菜单项的名称（只能有一项）；
⑥文本框右击，弹出的是系统提供的菜单，左击可自定义有关弹出式菜单； ⑦同一个菜单可作为多个对象的快捷菜单。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu EDIT, , , , EDI(3) End If End Sub
2．菜单控件数组
●作用： ① ② 可动态增减控件（菜单）； 简化程序、缩减程序代码。
●创建方法： 在菜单编辑器中，给菜单项起同一个名字，并设置其下标即可。
●注意事项：
① ② ③ ●实例： 在例 9-2 （简易文本编辑器）中，加入菜单，并增加“编辑”功 能。 同一个菜单控件数组中的各菜单项名称必须相同； 控件数组元素的下标必须是升序； 控件数组元素必须是连续的且在相同的子菜单内；
●添加图像
可以单个添加，也可以一次加入多个或全部，不需要的再删除。 ●设置关键字Key
二、使用Toolbar控件和ImageList控件
2．ToolBar控件简介
ToolBar即工具条控件，是Windows 中最常用的控件之一，它为用户提供了 访问程序的快捷方式，极大地方便了用户。
①使用方法：
在“通用”标签中将图像列表设置好，然后在“按钮”标签中添加按钮， 设置其所要用到的图像的序号或关键字，并输入相应的工具提示文本。
二、弹出式菜单
3．实例：
Private Sub Form_MouseDown(Button As Integer, Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu EDIT, , 500, 500, EDI(3) End If End Sub Shift As
⑦可见（Visible）：设置菜单项是否可见。
1．菜单编辑器
●“菜单编辑器”控件的编辑区
①“ ②“ ”：把选定的菜单下移一个等级。共5个等级。 ”：把选定的菜单上移一个等级。
③“
④“
”：把选定的菜单项在同级菜单内向上移动一个位置。
”：把选定的菜单项在同级菜单内向下移动一个位置。
⑤“下一个”：将焦点转移到下一个菜单项。
●“菜单编辑器”的构成
③
列表区： 列出已建立的菜单内容
1．菜单编辑器
●“菜单编辑器”控件的主要属性
①标题（Caption）：设置菜单项的标题，当标题是 “－”时， 菜 （运 单项是一条分割线；用“ & ＋字母”的方式可设置菜单的热键 行时用Alt＋字母击活）。 ②名称（Name）：设置菜单项的名称，以便在程序中识别和引用。 ③索引（Index）：设置菜单控件数组的下标。 ④快捷键（ShortCut）：设置击活该子菜单项的快捷键 ⑤复选（Checked）：设置菜单项前是否有复选标记“√”。 ⑥有效（Enabled）：设置菜单项有效或无效。