2/33
属性设置区
为了创建菜单，VB 提供了一个设计菜单的 工具，即“菜单编辑 器”。 可在VB的“工具”菜 单下选择“菜单编辑器” 命令，则可打开“菜单 编辑器”窗口。
编辑区
Visual Basic程序设计/第10章 菜单与工具栏设计
显示区
3/33
“菜单编辑器”的组成 属性设置区 窗口的上部分用于设置每个菜单项的基本属性
Visual Basic程序设计/第10章 菜单与工具栏设计
16/33
设计弹出式菜单的方法
（1）使用“菜单编辑器”窗口建立一个顶层菜单（主菜单项）。 （2）设置弹出式菜单的显示方式。使用PopupMenu方法显示弹出式菜单。 PopupMenu方法的语法格式是： [窗体名.] PopupMenu <菜单项> [, Flags [, X[, Y]]]
Visual Basic程序设计/第10章 菜单与工具栏设计
7/33
【例10-1】设计一个简单的下拉式菜单。
窗体设计界面
Visual Basic程序设计/第10章 菜单与工具栏设计
窗体执行界面
8/33
设计步骤如下：
1) 在“菜单编辑器”中建立如下菜单
标题(Caption) 体育 ….足球 menu1 menu11 名称(Name) 主菜单项 菜单命令 说明
21/33
2）设置新增对象属性：
对象 Picture1 属性 Align Caption 属性值 1-Align Top 说明 使图片框位于窗体的顶部 清空 1-Graphical 图形按钮
Command1()
Style
Picture
Caption Check1()
xg1.bmp、xg2.bmp
分别选2个不同的图形
4. 菜单项的隐藏
要使菜单项消失而不可见，当“菜单编辑器”中的“可见”复选 框设置为不可选时，其相应的菜单项将被隐藏起来。也可以在代码 中使一个菜单项隐藏，如： menu11.Visible = False ‘使“足球”菜单项隐藏
Visual Basic程序设计/第10章 菜单与工具栏设计
13/33
Toolbar控件的 “按钮”选项卡
25/33
ImageList 控件的主要设置：
工具栏中的按钮习惯上以图形按钮方式出现，而工具 栏控件本身没有Picture属性。需要通过图像列表控件来 实现工具栏按钮图片的载入。
已插入了3个图片
向ImageList控件添加图像
Visual Basic程序设计/第10章 菜单与工具栏设计 26/33
在菜单中，靠近命令的确认标志表示该命令项已经被选 择。需要在菜单中使用缺省选择时，则可以设置确认标志。 当“菜单编辑器”中的“复选”复选框设置为选中时，在相 应的菜单项左旁会被加上“√”记号。 在“菜单编辑器”中设置了的确认标志，也可以使用代 码将其删除或加上，如：
menu11.Checked = False‘使“足球”菜单项的“√”记号去除
PopupMenu File
‘ 将“文件”菜单中的各菜单项设定为弹出式
End If
End Sub
程序启动后，在窗体上单击 鼠标右键时，即可弹出“文件” 快捷菜单。
Visual Basic程序设计/第10章 菜单与工具栏设计 18/33
10.4 制作工具栏
工具栏往往由一系列的按钮（或形象化的图标按 钮）组成，每个按钮对应一个常用的菜单命令。
窗体运行时对应的菜单显示效果 6/33
10.2 下拉式菜单
“下拉式菜单”一般通过单击菜单栏中的菜单项的方式打开。 在下拉式菜单系统中，一般有一个主菜单，称为“菜单栏”
建立菜单的步骤
（1）打开“菜单编辑器”设置各项菜单项 （2）为相应的菜单命令编写事件过程 注意： ① 菜单项控件只包含一个事件，即Click事件。 ② 菜单标题而非菜单命令的菜单项，无需添加代码。
……
Visual Basic程序设计/第10章 菜单与工具栏设计
10/33
1. 设置快捷键
为它们设置快捷键将会大大提高操作速度。例如，Ctrl+C 可代表复制，Ctrl+V可代表粘贴。
为菜单设置热键与对应的菜单项
Visual Basic程序设计/第10章 菜单与工具栏设计 11/33
2. 增加确认标记
其中： ① “菜单项”是指要弹出的菜单名称（一般是主菜单项或子菜单 项的名称）。 ② X、Y是菜单显示的位置。 ③ Flags参数指定弹出式菜单的行为。
Visual Basic程序设计/第10章 菜单与工具栏设计 17/33
【例10-3】在例10-2中，将“文件”菜单作为弹出 式菜单显示。 运行效果如图所示。
使用“菜单编辑器”，按照如下设置各菜单 项
标题 文件(&F) ….输入信息 …. ….退出(&X) 字体外观(&T) ….粗体 File Input Seprate1 Quit FontFace FontB Ctrl+B Ctrl+I 名称 快捷键
….斜体
….下划线 …. ….模糊粗体命令 ….隐藏斜体命令 …. -
只需在例10-2中增加窗体的MouseDown事件代码
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X As _ Single, Y As Single) If Button = 2 Then ‘ 单击鼠标右键时（Button=2），条件成立
【例10-2】设计一个简单的文本编辑器，利用输入 对话框输入文本，通过菜单命令控制文本框中字 体的外观。其中，部分菜单项具有在其旁加上或 取消"√"标志、关闭或隐藏菜单项的功能，并设 有快捷键和访问键功能，其执行界面如图所示。
窗体上菜单的界面
Visual Basic程序设计/第10章 菜单与工具栏设计 14/33
•
使用ToolBar与ImageList制作工具栏
（1）添加ToolBar与ImageList控件。 （2）在窗体上ToolBar与ImageList。 （3）设置控件的Байду номын сангаас性。 （4）编写代码。
Visual Basic程序设计/第10章 菜单与工具栏设计
20/33
1. 用手工方式制作工具栏
【例10-4】在例10-3中，增加一个自定义的工具栏。
在例10-3的基础上作修改： 1）修改应用程序用户界面
在窗体上增加一个图片框 Picture1，然后在图片框中增 加 按 钮 数 组 Command1(0)～ Command1(1) 和 复 选 框 数 组 Check1(0)～Check1(2)
Visual Basic程序设计/第10章 菜单与工具栏设计
编辑区 窗口的中部有7个按钮，用于编辑菜单中的各菜单项
菜单项编辑区 窗口的下方区域，用于显示输入的菜单项，编辑好的 菜单会立刻在编辑区中显示出来，并通过内缩符号表明菜 单项的层次
Visual Basic程序设计/第10章 菜单与工具栏设计
4/33
“菜单编辑器”中的菜单项主要属性
标题 (Caption) 名称 (Name) 索引 (Index) 快捷键 (Shortcut) 复选 (Checked) 有效 (Enabled) 可见 (Visible) 设置菜单项显示的标题 设置菜单项的名称 设置菜单控件数组的下标 为菜单项选择一个快捷键 设置某一菜单项是否可选 设置菜单项是否可用 设置菜单项是否可见
FontI
FontUd Seprate2 Blur Imm Seprate3
Ctrl+L
Ctrl+D
Refur ….刷新 Visual Basic程序设计/第10章 菜单与工具栏设计
Ctrl+R 15/33
10.3 弹出式菜单
弹出式菜单（又称“快捷菜单”），只需用户在窗体上 单击某一鼠标键（一般为鼠标右键）就立即弹出菜单。 快捷菜单可以根据用户单击鼠标键时的位置，动态地调 整菜单项的显示位置，同时也改变菜单项显示的内容，为 用户提供了更加便利的操作。
Toolbar控件的 “通用” 选项卡
Visual Basic程序设计/第10章 菜单与工具栏设计 24/33
“按钮”选项卡需要设置：“索引”、“图像”等属 性
第2个按钮 的索引值
选ImageList 控件图片库中 的第2张图片
按钮的提 示文本
Visual Basic程序设计/第10章 菜单与工具栏设计
在VB中可以通过两种方法建立工具栏：
•
•
手工方式（在图片框控件上加入一些工具按钮控件）
工具栏控件方式（使用工具栏控件）。
Visual Basic程序设计/第10章 菜单与工具栏设计
19/33
•
用手工方式制作工具栏
（1）在窗体中添加一个图片框Picture控件 （2）选定图片框，在图片框中添加任何想在工具栏中显示的控件 （3）设置控件的属性 （4）编写代码 一般都是在其按钮的Click事件代码中调用对应的菜单命令。
menu11.Checked = True ‘在“足球”菜单项加上“√”记号。
Visual Basic程序设计/第10章 菜单与工具栏设计
12/33
3. 菜单项的有效性控制
有时候，某些菜单命令暂时毫无意义，可以根据程序的运行状态， 动态的进行调整，暂时将它模糊，表示该菜单项不可选（呈灰色）， 如： menu11.Enabled = False ‘使“足球”菜单项不起作用
提 要
10.1 菜单编辑器 10.2 下拉式菜单 10.3 弹出式菜单 10.4 制作工具栏
Visual Basic程序设计/第10章 菜单与工具栏设计
1/33
10.1 菜单编辑器