第七章 设计菜单
[学习目标 ]
? 掌握：菜单、工具栏的设计方法
? 理解：菜单的各项属性、菜单项的增减
? 了解：弹出式菜单
[学习要点 ]
? 菜单、菜单编辑器、菜单的高级应用、弹
出式菜单的设计；
? 工具栏的设计
7.1 设计下拉式菜单
[学习目标 ]
1.了解菜单的功能和基本结构；
2,掌握用菜单编辑器设计下拉式菜单系统外观
的方法；
3,理解并掌握编写菜单事件过程的方法。
[学习重点 ]
1.下拉式菜单系统外观的设计方法；
2,编写菜单事件过程的方法。
[学习难点 ]
1,编写菜单事件过程的方法；
2,剪贴板对象的应用。
菜单在 windows应用程序中有广泛
的应用，是应用程序图形化界面中一个
必不可少的组成元素，通过菜单对各种
命令按功能进行分组，能使用户更加方
便、直观地访问这些命令。
7.1 设计下拉式菜单
一、菜单系统的功能
1．将应用程序的所有功能分类显示于菜单的
选项中，以便用户选择。
2．管理应用系统，控制各种功能模块的运行。
7.1 设计下拉式菜单
二、菜单系统的种类和结构
1、弹出式菜单
2、下拉式菜单
菜单栏（主菜单） —主菜单项
子菜单 ——菜单项
有效和无效的菜单项和子菜单项
带复选框的菜单项和子菜单项
? —— 级联菜单（最多可达 6层）
。。。 —— 启动对话框
分隔线
7.1 设计下拉式菜单
弹出式菜单
弹出菜单项目 弹出菜单
7.1 设计下拉式菜单
主菜单项
快捷键
热键
级联菜单标记
菜单栏
分隔线
菜
单
项
子菜单名
下拉式菜单
7.1 设计下拉式菜单
三,VB中设计菜单的工具 ——菜单编辑器
1．菜单编辑器
（ 1）打开方法
,工具, 主菜单项 / 菜单编辑器
工具栏／菜单编辑器
窗体上弹出式菜单／菜单编辑器
（ 2）作用
在菜单编辑器对话框中可以完成创建、编辑、
修改菜单等工作，如添加 /删除菜单项、调整菜单
项的位置、定义菜单中的快捷键和访问键。
7.1 设计下拉式菜单
（ 3）结构
7.1 设计下拉式菜单
菜单控件属性区
菜单项显示区
（菜单控件列表框）
编辑区
2．菜单控件
菜单系统是一个整体，但每一个菜单
项分别是一个控件。因此，设计菜单同设
计其他控件相似，要设置其属性和编写事
件过程。
在设计阶段设置属性时用菜单编辑器
在菜单控件属性区中设置。
在程序运行时则是通过代码实现的。
7.1 设计下拉式菜单
（ 1）菜单控件的主要属性
? 标题 Caption：设置程序运行时显示在菜单上的文
字。
? 名称 Name：设置菜单项的控件名称，用来在代码
中识别菜单控件。
注意,Visual Basic禁止在菜单控件未命名之
前退出菜单编辑。
? 复选 Checked：设置菜单项是否被选中。
? 有效 Enabled：设置菜单项是否对事件作出响应。
（ 正常显示或灰色）
? 可见 Visible：设置菜单项是否可见。
7.1 设计下拉式菜单
（ 2）菜单控件的事件
菜单控件只有一个 Click事件。
（ 3） 菜单的特点,
– 菜单也是一个控件 。
– 不象命令按纽, 列表框等其他的控件, 菜单没
有标准的外观 。
– 菜单项随着应用程序的不同而不同 。
– 就下拉式菜单来说, 唯一不变的就是菜单栏 。
7.1 设计下拉式菜单
四、下拉式菜单的设计
设计一个类似 Word的带下拉式菜单的简
易文本编辑器
1．下拉式菜单的设计步骤
（ 1）建立窗体，添加控件；
（ 2）打开菜单编辑器，进入菜单设计窗口；
（ 3）设置各菜单项的属性；
（ 4）为菜单项编写相应的事件过程。
7.1 设计下拉式菜单
2．菜单系统的外观设计
（ 1）基本操作
1.“→,按钮：下一级菜单项；
2.“←,按钮：上一级菜单项。
3.↓ 和 ↑ 按钮：改变菜单项位置。
4.下一个 (Next)：设置下一个菜单项。
5.插入 (Insert)按钮：插入菜单项
6.删除 (Delete)按钮：删除菜单项
7.1 设计下拉式菜单
（ 2）修饰菜单
设置菜单分隔线（ -）：分界符也应有名称。
访问键（热键）, (&F)
ShortCut（快捷键）：当快捷键按下时菜单项
被执行。经常用到的菜单项目要设置一个快捷键以
支持键盘访问。
7.1 设计下拉式菜单
3．编写菜单事件过程
完成菜单系统外观设计后，还必须为各个菜
单项进行编码，才能真正做到通过选择菜单项来
实现某项功能。
（ 1）最简单的情形
? 编写, 文件, 主菜单中的, 关闭, 菜单项的事件
过程只需用 End方法即可。
? 编写, 隶书,,, 宋体, 级联菜单项代码，只要
在其事件过程中令 Text1.FontName =,隶书, 和
Text1.FontName =,宋体, 即可。
7.1 设计下拉式菜单
例题代码
Private Sub mnuFileClose_Click()
End
End Sub
Private Sub mnuFormatFontlishu_Click()
Text1.FontName = "隶书 "
End Sub
Private Sub mnuFormatFontsongti_Click()
Text1.FontName = "宋体 "
End Sub
7.1 设计下拉式菜单
（ 2）菜单的控制 ——菜单项 的状态
①有效性控制 Enabled
使 菜单项失效或生效。
② 菜单项的复选标志 Checked
在 菜单项 上添加或去除选中符号。
有些对应的命令表示的是一种开关状态，只
有两种可能的状态，因此，首先要判定它的属性
值。
③ Visible
只有将菜单项的 Visible属性设置为 True，该
菜单项才显示。可以在设计时设置该属性值，也
可以在运行时通过执行代码加以改变
7.1 设计下拉式菜单
例题代码
Private Sub Form_Load()
Clipboard.Clear
mnuEditCut.Enabled = False
mnuEditCopy.Enabled = False
mnuEditPaste.Enabled = False
End Sub
7.1 设计下拉式菜单
点击, 编辑, 主菜单项后，应先判断文本框
中是否有文本被选中
Private Sub mnuEdit_Click( )
If Text1.SelLength > 0 Then
mnuEditCut.Enabled = True
mnuEditCopy.Enabled = True
Else
mnuEditCut.Enabled = False
mnuEditCopy.Enabled = False
End If
End Sub
7.1 设计下拉式菜单
（ 3）剪贴板对象 Clipboard
① 剪贴板是内存的一部分区域，所有应用程
序都能使用剪贴板中的信息。在 VB中，所有与剪
贴板有关的操作是通过剪贴板对象实现的。
剪贴板对象是用于暂时保存图形和文本的一种
特殊的控件，它是 VB中预先定义好的控件组。
②剪贴板对象没有任何属性和事件，但通过
它的一些方法可以提供对系统剪贴板的访问（即
发送和接收数据）。
7.1 设计下拉式菜单
③ 剪贴板对象的方法
? Clipboard.Clear
将剪贴板清空
? Clipboard.SetText Text1.SelText
将选中的 字符串 复制到剪贴板
? Clipboard.SetData Data[,Format]
将 非文本数据 复制到剪贴板上
? Clipboard.GetText
将剪贴板上的 字符串 发送到光标所在位置
? Clipboard.GetData
将剪贴板上的 非文本数据 发送到光标所在位置
7.1 设计下拉式菜单
例题代码 （剪切）
Private Sub mnuEditCut_Click()
If Text1.SelLength > 0 Then
Clipboard.SetText Text1.SelText
Text1.SelText = ""
'同时要让粘贴菜单项有效
mnuEditPaste.Enabled = True
End If
End Sub
' Text1.SelText表示文本框中选定的文本
‘ Text1.SelLength表示文本框中选定文本的长度
7.1 设计下拉式菜单
复制
Private Sub mnuEditCopy_Click()
If Text1.SelLength > 0 Then
Clipboard.SetText Text1.SelText
mnuEditPaste.Enabled = True
End If
End Sub
'复制与剪切的区别是 Text1.SelText = ""
'同时要让粘贴菜单项有效
7.1 设计下拉式菜单
粘贴
Private Sub mnuEditPaste_Click()
If Len(Clipboard.GetText) > 0 Then
Text1.SelText = Clipboard.GetText
End If
End Sub
注意,Text1.SelText=Clipboard.GetText 和
Text1.Text=Clipboard.GetText的区别
（在光标所在位置处插入剪贴板上的数据）
7.1 设计下拉式菜单
全选
Private Sub mnuEditSel_Click()
If mnuEditSel.Checked = False Then
mnuEditSel.Checked = True
Text1.SelStart = 0
' Text1.SelStart表示文本框中选定文本的开始位置
Text1.SelLength = Len(Text1.Text)
Else
mnuEditSel.Checked = False
Text1.SelLength = 0
End If
End Sub
7.1 设计下拉式菜单
Text1.Text：表示文本框中的文本
Text1.SelText：表示文本框中选定的文本
Text1.SelLength：表示文本框中选定文本的
长度
Text1.SelStart：表示文本框中选定文本的
开始位置
7.1 设计下拉式菜单
7.2 弹出式菜单
弹出菜单是独立于菜单栏的浮动菜单，
其在窗体上的显示位置由单击鼠标时指针
的位置决定。
弹出式菜单也是通过, 菜单编辑器,
来设计的。设计方法与下拉式菜单相似，
仅该菜单名不可显示，主菜单的, 可
见, Visible属性为 False。
7.2 弹出式菜单
在 VB中，使用 PopupMenu方法来显示弹
出菜单。
PopupMenu方法的语法为：
[对象,] PopupMenu 菜单名，标志,x,y
其中，标志表示弹出的位置和触发的键，
位置与性能是加的关系。
7.3 设计工具栏
工具栏是大多数应用程序不可缺少的
一个部分，它将应用程序常用的菜单命令
以按钮的方式呈现，使用户可以快速选择
按钮，以执行相应的功能。
7.3.1 设计工具栏
VB提供了 Toolbar控件，可以快速的设
计工具栏。
Toolbar控件不是标准控件，须将
Toolbar控件调入工具箱。方法如下,
通过, 工程, →, 部件, →, 控件,,
再选中, Microsoft Windows Common
Control6.0”选项，如图所示。
7.3 设计工具栏
7.3 设计工具栏
Toolbar控件会自动出现在窗体的上部，
若窗体上已有菜单栏，则在会固定在其下
方。
我们就可以利用 Toolbar控件添加不同
类型的按钮，一般可分为文字按钮和图形
按钮。
7.3 设计工具栏
一、设计文字按钮
? 制作文字按钮的步骤：
（ 1）在窗体上添加了 Toolbar控件后，移动鼠标
在 Toolbar1上单击鼠标右键，调出快捷菜单，
选择, 属性, 。
（ 2）选择, 按钮, 标签，然后选择, 插入按
钮, 。
（ 3）在 Caption标题栏输入想要显示的文字标题，
然后在 Key栏输入关键字，接着可在
ToolTipText工具栏输入提示文字，最后在
Style栏选择合适的按钮样式。
7.3 设计工具栏
7.3 设计工具栏
（ 4）重复步骤（ 3），建立, 粗体, Check样
式的工具按钮。
（ 5）重复步骤（ 3），建立, 颜色,
Dropdown样式的工具按钮。然后在
,ButtonMenus”按钮菜单区选择, 插入按钮菜单
项, 钮，建立颜色按钮的下拉式选项。
7.3 设计工具栏
二、设计图形按钮
想要制作图形按钮，须事先准备好图片，
然后利用 ImageList控件将按钮图片加入，
再将 Toolbar控件的, ImageList”项指定为
ImageList控件，这样就可以为为每一个按
钮设计一个图片了。
7.3 设计工具栏
我们将上图中的, 打开, 和, 粗体, 按钮加
上图片，具体步骤如下所示：
（ 1） ImageList控件也是属于 Microsoft
Windows Common Control6.0中的控件，所以可
以在调入 Toolbar控件后，直接从工具箱调入至窗
体。
（ 2）在 ImageList控件上单击鼠标右键，调出
快捷菜单，选择, 属性,,然后选择属性页的
,Image”标签，再选择按钮。调出, 选择图片,
的对话框，从中将所有合适的图片文件选中，选
择, 打开,,就可以将图片调入 ImageList控件的
Images栏中。
7.3 设计工具栏
（ 3）在已做好 Toolbar控件上单击鼠标右键，调
出快捷菜单，选择, 属性,,然后选择属性页
的, General”标签,在 ImageList栏选中
ImageList1控件。
7.3 设计工具栏
（ 4）选择 Toolbar控件属性页上的, Buttons”
标签，在 Image栏选择 ImageList控件上图片作为
按钮上的图片。
（ 5）最后选择, 确定, 按钮，运行后的界面
如下所示。
7.3 设计工具栏
三、编写工具按钮的事件过程
一般编写工具按钮的事件过程是在
Toolbar控件的 ButtonClick事件中，代码
通常利用 Case语句及 Button.Key来判定用
户按下哪一个按钮，以便能执行相应的程
序代码。如该工具按钮为带下拉式菜单的
按钮，则在 ButtonMenuClick事件中编写代
码，利用 ButtonMenu.Key来判定用户使用
的是哪一个菜单项，其判断值为 Key栏的设
置值。
7.3 设计工具栏
[学习目标 ]
? 掌握：菜单、工具栏的设计方法
? 理解：菜单的各项属性、菜单项的增减
? 了解：弹出式菜单
[学习要点 ]
? 菜单、菜单编辑器、菜单的高级应用、弹
出式菜单的设计；
? 工具栏的设计
7.1 设计下拉式菜单
[学习目标 ]
1.了解菜单的功能和基本结构；
2,掌握用菜单编辑器设计下拉式菜单系统外观
的方法；
3,理解并掌握编写菜单事件过程的方法。
[学习重点 ]
1.下拉式菜单系统外观的设计方法；
2,编写菜单事件过程的方法。
[学习难点 ]
1,编写菜单事件过程的方法；
2,剪贴板对象的应用。
菜单在 windows应用程序中有广泛
的应用，是应用程序图形化界面中一个
必不可少的组成元素，通过菜单对各种
命令按功能进行分组，能使用户更加方
便、直观地访问这些命令。
7.1 设计下拉式菜单
一、菜单系统的功能
1．将应用程序的所有功能分类显示于菜单的
选项中，以便用户选择。
2．管理应用系统，控制各种功能模块的运行。
7.1 设计下拉式菜单
二、菜单系统的种类和结构
1、弹出式菜单
2、下拉式菜单
菜单栏（主菜单） —主菜单项
子菜单 ——菜单项
有效和无效的菜单项和子菜单项
带复选框的菜单项和子菜单项
? —— 级联菜单（最多可达 6层）
。。。 —— 启动对话框
分隔线
7.1 设计下拉式菜单
弹出式菜单
弹出菜单项目 弹出菜单
7.1 设计下拉式菜单
主菜单项
快捷键
热键
级联菜单标记
菜单栏
分隔线
菜
单
项
子菜单名
下拉式菜单
7.1 设计下拉式菜单
三,VB中设计菜单的工具 ——菜单编辑器
1．菜单编辑器
（ 1）打开方法
,工具, 主菜单项 / 菜单编辑器
工具栏／菜单编辑器
窗体上弹出式菜单／菜单编辑器
（ 2）作用
在菜单编辑器对话框中可以完成创建、编辑、
修改菜单等工作，如添加 /删除菜单项、调整菜单
项的位置、定义菜单中的快捷键和访问键。
7.1 设计下拉式菜单
（ 3）结构
7.1 设计下拉式菜单
菜单控件属性区
菜单项显示区
（菜单控件列表框）
编辑区
2．菜单控件
菜单系统是一个整体，但每一个菜单
项分别是一个控件。因此，设计菜单同设
计其他控件相似，要设置其属性和编写事
件过程。
在设计阶段设置属性时用菜单编辑器
在菜单控件属性区中设置。
在程序运行时则是通过代码实现的。
7.1 设计下拉式菜单
（ 1）菜单控件的主要属性
? 标题 Caption：设置程序运行时显示在菜单上的文
字。
? 名称 Name：设置菜单项的控件名称，用来在代码
中识别菜单控件。
注意,Visual Basic禁止在菜单控件未命名之
前退出菜单编辑。
? 复选 Checked：设置菜单项是否被选中。
? 有效 Enabled：设置菜单项是否对事件作出响应。
（ 正常显示或灰色）
? 可见 Visible：设置菜单项是否可见。
7.1 设计下拉式菜单
（ 2）菜单控件的事件
菜单控件只有一个 Click事件。
（ 3） 菜单的特点,
– 菜单也是一个控件 。
– 不象命令按纽, 列表框等其他的控件, 菜单没
有标准的外观 。
– 菜单项随着应用程序的不同而不同 。
– 就下拉式菜单来说, 唯一不变的就是菜单栏 。
7.1 设计下拉式菜单
四、下拉式菜单的设计
设计一个类似 Word的带下拉式菜单的简
易文本编辑器
1．下拉式菜单的设计步骤
（ 1）建立窗体，添加控件；
（ 2）打开菜单编辑器，进入菜单设计窗口；
（ 3）设置各菜单项的属性；
（ 4）为菜单项编写相应的事件过程。
7.1 设计下拉式菜单
2．菜单系统的外观设计
（ 1）基本操作
1.“→,按钮：下一级菜单项；
2.“←,按钮：上一级菜单项。
3.↓ 和 ↑ 按钮：改变菜单项位置。
4.下一个 (Next)：设置下一个菜单项。
5.插入 (Insert)按钮：插入菜单项
6.删除 (Delete)按钮：删除菜单项
7.1 设计下拉式菜单
（ 2）修饰菜单
设置菜单分隔线（ -）：分界符也应有名称。
访问键（热键）, (&F)
ShortCut（快捷键）：当快捷键按下时菜单项
被执行。经常用到的菜单项目要设置一个快捷键以
支持键盘访问。
7.1 设计下拉式菜单
3．编写菜单事件过程
完成菜单系统外观设计后，还必须为各个菜
单项进行编码，才能真正做到通过选择菜单项来
实现某项功能。
（ 1）最简单的情形
? 编写, 文件, 主菜单中的, 关闭, 菜单项的事件
过程只需用 End方法即可。
? 编写, 隶书,,, 宋体, 级联菜单项代码，只要
在其事件过程中令 Text1.FontName =,隶书, 和
Text1.FontName =,宋体, 即可。
7.1 设计下拉式菜单
例题代码
Private Sub mnuFileClose_Click()
End
End Sub
Private Sub mnuFormatFontlishu_Click()
Text1.FontName = "隶书 "
End Sub
Private Sub mnuFormatFontsongti_Click()
Text1.FontName = "宋体 "
End Sub
7.1 设计下拉式菜单
（ 2）菜单的控制 ——菜单项 的状态
①有效性控制 Enabled
使 菜单项失效或生效。
② 菜单项的复选标志 Checked
在 菜单项 上添加或去除选中符号。
有些对应的命令表示的是一种开关状态，只
有两种可能的状态，因此，首先要判定它的属性
值。
③ Visible
只有将菜单项的 Visible属性设置为 True，该
菜单项才显示。可以在设计时设置该属性值，也
可以在运行时通过执行代码加以改变
7.1 设计下拉式菜单
例题代码
Private Sub Form_Load()
Clipboard.Clear
mnuEditCut.Enabled = False
mnuEditCopy.Enabled = False
mnuEditPaste.Enabled = False
End Sub
7.1 设计下拉式菜单
点击, 编辑, 主菜单项后，应先判断文本框
中是否有文本被选中
Private Sub mnuEdit_Click( )
If Text1.SelLength > 0 Then
mnuEditCut.Enabled = True
mnuEditCopy.Enabled = True
Else
mnuEditCut.Enabled = False
mnuEditCopy.Enabled = False
End If
End Sub
7.1 设计下拉式菜单
（ 3）剪贴板对象 Clipboard
① 剪贴板是内存的一部分区域，所有应用程
序都能使用剪贴板中的信息。在 VB中，所有与剪
贴板有关的操作是通过剪贴板对象实现的。
剪贴板对象是用于暂时保存图形和文本的一种
特殊的控件，它是 VB中预先定义好的控件组。
②剪贴板对象没有任何属性和事件，但通过
它的一些方法可以提供对系统剪贴板的访问（即
发送和接收数据）。
7.1 设计下拉式菜单
③ 剪贴板对象的方法
? Clipboard.Clear
将剪贴板清空
? Clipboard.SetText Text1.SelText
将选中的 字符串 复制到剪贴板
? Clipboard.SetData Data[,Format]
将 非文本数据 复制到剪贴板上
? Clipboard.GetText
将剪贴板上的 字符串 发送到光标所在位置
? Clipboard.GetData
将剪贴板上的 非文本数据 发送到光标所在位置
7.1 设计下拉式菜单
例题代码 （剪切）
Private Sub mnuEditCut_Click()
If Text1.SelLength > 0 Then
Clipboard.SetText Text1.SelText
Text1.SelText = ""
'同时要让粘贴菜单项有效
mnuEditPaste.Enabled = True
End If
End Sub
' Text1.SelText表示文本框中选定的文本
‘ Text1.SelLength表示文本框中选定文本的长度
7.1 设计下拉式菜单
复制
Private Sub mnuEditCopy_Click()
If Text1.SelLength > 0 Then
Clipboard.SetText Text1.SelText
mnuEditPaste.Enabled = True
End If
End Sub
'复制与剪切的区别是 Text1.SelText = ""
'同时要让粘贴菜单项有效
7.1 设计下拉式菜单
粘贴
Private Sub mnuEditPaste_Click()
If Len(Clipboard.GetText) > 0 Then
Text1.SelText = Clipboard.GetText
End If
End Sub
注意,Text1.SelText=Clipboard.GetText 和
Text1.Text=Clipboard.GetText的区别
（在光标所在位置处插入剪贴板上的数据）
7.1 设计下拉式菜单
全选
Private Sub mnuEditSel_Click()
If mnuEditSel.Checked = False Then
mnuEditSel.Checked = True
Text1.SelStart = 0
' Text1.SelStart表示文本框中选定文本的开始位置
Text1.SelLength = Len(Text1.Text)
Else
mnuEditSel.Checked = False
Text1.SelLength = 0
End If
End Sub
7.1 设计下拉式菜单
Text1.Text：表示文本框中的文本
Text1.SelText：表示文本框中选定的文本
Text1.SelLength：表示文本框中选定文本的
长度
Text1.SelStart：表示文本框中选定文本的
开始位置
7.1 设计下拉式菜单
7.2 弹出式菜单
弹出菜单是独立于菜单栏的浮动菜单，
其在窗体上的显示位置由单击鼠标时指针
的位置决定。
弹出式菜单也是通过, 菜单编辑器,
来设计的。设计方法与下拉式菜单相似，
仅该菜单名不可显示，主菜单的, 可
见, Visible属性为 False。
7.2 弹出式菜单
在 VB中，使用 PopupMenu方法来显示弹
出菜单。
PopupMenu方法的语法为：
[对象,] PopupMenu 菜单名，标志,x,y
其中，标志表示弹出的位置和触发的键，
位置与性能是加的关系。
7.3 设计工具栏
工具栏是大多数应用程序不可缺少的
一个部分，它将应用程序常用的菜单命令
以按钮的方式呈现，使用户可以快速选择
按钮，以执行相应的功能。
7.3.1 设计工具栏
VB提供了 Toolbar控件，可以快速的设
计工具栏。
Toolbar控件不是标准控件，须将
Toolbar控件调入工具箱。方法如下,
通过, 工程, →, 部件, →, 控件,,
再选中, Microsoft Windows Common
Control6.0”选项，如图所示。
7.3 设计工具栏
7.3 设计工具栏
Toolbar控件会自动出现在窗体的上部，
若窗体上已有菜单栏，则在会固定在其下
方。
我们就可以利用 Toolbar控件添加不同
类型的按钮，一般可分为文字按钮和图形
按钮。
7.3 设计工具栏
一、设计文字按钮
? 制作文字按钮的步骤：
（ 1）在窗体上添加了 Toolbar控件后，移动鼠标
在 Toolbar1上单击鼠标右键，调出快捷菜单，
选择, 属性, 。
（ 2）选择, 按钮, 标签，然后选择, 插入按
钮, 。
（ 3）在 Caption标题栏输入想要显示的文字标题，
然后在 Key栏输入关键字，接着可在
ToolTipText工具栏输入提示文字，最后在
Style栏选择合适的按钮样式。
7.3 设计工具栏
7.3 设计工具栏
（ 4）重复步骤（ 3），建立, 粗体, Check样
式的工具按钮。
（ 5）重复步骤（ 3），建立, 颜色,
Dropdown样式的工具按钮。然后在
,ButtonMenus”按钮菜单区选择, 插入按钮菜单
项, 钮，建立颜色按钮的下拉式选项。
7.3 设计工具栏
二、设计图形按钮
想要制作图形按钮，须事先准备好图片，
然后利用 ImageList控件将按钮图片加入，
再将 Toolbar控件的, ImageList”项指定为
ImageList控件，这样就可以为为每一个按
钮设计一个图片了。
7.3 设计工具栏
我们将上图中的, 打开, 和, 粗体, 按钮加
上图片，具体步骤如下所示：
（ 1） ImageList控件也是属于 Microsoft
Windows Common Control6.0中的控件，所以可
以在调入 Toolbar控件后，直接从工具箱调入至窗
体。
（ 2）在 ImageList控件上单击鼠标右键，调出
快捷菜单，选择, 属性,,然后选择属性页的
,Image”标签，再选择按钮。调出, 选择图片,
的对话框，从中将所有合适的图片文件选中，选
择, 打开,,就可以将图片调入 ImageList控件的
Images栏中。
7.3 设计工具栏
（ 3）在已做好 Toolbar控件上单击鼠标右键，调
出快捷菜单，选择, 属性,,然后选择属性页
的, General”标签,在 ImageList栏选中
ImageList1控件。
7.3 设计工具栏
（ 4）选择 Toolbar控件属性页上的, Buttons”
标签，在 Image栏选择 ImageList控件上图片作为
按钮上的图片。
（ 5）最后选择, 确定, 按钮，运行后的界面
如下所示。
7.3 设计工具栏
三、编写工具按钮的事件过程
一般编写工具按钮的事件过程是在
Toolbar控件的 ButtonClick事件中，代码
通常利用 Case语句及 Button.Key来判定用
户按下哪一个按钮，以便能执行相应的程
序代码。如该工具按钮为带下拉式菜单的
按钮，则在 ButtonMenuClick事件中编写代
码，利用 ButtonMenu.Key来判定用户使用
的是哪一个菜单项，其判断值为 Key栏的设
置值。
7.3 设计工具栏
