第10章 菜单与工具栏

1、 菜单栏和工具栏的使用，为菜单栏和工具栏的使用，为WinowsWinows类的应用程序增色不少；类的应用程序增色不少； 也为用户使用软件提供了最大的便利条件。在也为用户使用软件提供了最大的便利条件。在VBVB中为应用程序制中为应用程序制 作菜单和工具栏非常方便，只有引用相应的控件即可。作菜单和工具栏非常方便，只有引用相应的控件即可。 10.110.1使用菜单使用菜单 10.2 10.2 使用工具栏使用工具栏 当一个应用软件中有众多可操作内容时，用菜单可使程序界当一个应用软件中有众多可操作内容时，用菜单可使程序界 面变得简洁、操作方便而直观。当然，菜单的内容依软件的不同面变得简洁、操作方便而直观

2、。当然，菜单的内容依软件的不同 而不同，但菜单的基本形式只有两种：而不同，但菜单的基本形式只有两种： 一、下拉式菜单一、下拉式菜单 二、弹出式菜单二、弹出式菜单 下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）和子菜单下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）和子菜单 （最深可达（最深可达5 5层）。在层）。在VBVB中各种菜单的设计全是借助菜单编辑器（控件）中各种菜单的设计全是借助菜单编辑器（控件） 来完成的。来完成的。 1 1菜单编辑器菜单编辑器 打开打开“菜单编辑器菜单编辑器”的三种方法：的三种方法： 右击窗体的空白处，选择右击窗体的空白处，选择“菜单编辑器菜单编辑器”； 单击

3、工具栏中的单击工具栏中的“菜单编辑器菜单编辑器”； 选择选择“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”。 “菜单编辑器菜单编辑器”的构成的构成 属性区：属性区：1010个属性个属性 编辑区：编辑区： 7 7个按钮个按钮 列表区：列表区： 列出已建立的菜单内容列出已建立的菜单内容 1 1菜单编辑器菜单编辑器 “菜单编辑器菜单编辑器”控件的主要属性控件的主要属性 标题（标题（CaptionCaption）：设置菜单项的标题，当标题是）：设置菜单项的标题，当标题是 “ “”时，时， 菜单项是一条分割线；用菜单项是一条分割线；用“& &字母字母”的方式可设置菜单的热键的方式可设置菜单的热键

4、（运行时用（运行时用AltAlt字母击活）。字母击活）。 名称（名称（NameName）：设置菜单项的名称，以便在程序中识别和引用。）：设置菜单项的名称，以便在程序中识别和引用。 索引（索引（IndexIndex）：设置菜单控件数组的下标。）：设置菜单控件数组的下标。 快捷键（快捷键（ShortCutShortCut）：设置击活该子菜单项的快捷键）：设置击活该子菜单项的快捷键 复选（复选（CheckedChecked）：设置菜单项前是否有复选标记）：设置菜单项前是否有复选标记“”。 有效（有效（EnabledEnabled）：设置菜单项有效或无效。）：设置菜单项有效或无效。 可见（可见（Vis

5、ibleVisible）：设置菜单项是否可见。）：设置菜单项是否可见。 1 1菜单编辑器菜单编辑器 “菜单编辑器菜单编辑器”控件的编辑区控件的编辑区 “ ”“ ”：把选定的菜单下移一个等级。共：把选定的菜单下移一个等级。共5 5个等级。个等级。 “ ”“ ”：把选定的菜单上移一个等级。：把选定的菜单上移一个等级。 “ ”“ ”：把选定的菜单项在同级菜单内向上移动一个位置。：把选定的菜单项在同级菜单内向上移动一个位置。 “ ”“ ”：把选定的菜单项在同级菜单内向下移动一个位置。：把选定的菜单项在同级菜单内向下移动一个位置。 “下一个下一个”：将焦点转移到下一个菜单项。：将焦点转移到下一个菜单项。

6、 “插入插入”：在列表框的当前选定行上方插入一项。：在列表框的当前选定行上方插入一项。 “删除删除”：删除当前选定项。：删除当前选定项。 “菜单编辑器菜单编辑器”控件的列表区控件的列表区 列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分 级位置或等级。级位置或等级。 实例：制作一个菜单栏，控制文本框中的文字效果：主菜单有：字实例：制作一个菜单栏，控制文本框中的文字效果：主菜单有：字 体、字号、颜色、字型、关闭；除了关闭菜单项以外，其它菜单项中体、字号、颜色、字型、关闭；除了关闭菜单项以外，其它菜单项中 均有子菜单；相应的效果应在菜

7、单项中有复选标记！均有子菜单；相应的效果应在菜单项中有复选标记！ 2 2菜单控件数组菜单控件数组 作用：作用： 可动态增减控件（菜单）；可动态增减控件（菜单）； 简化程序、缩减程序代码。简化程序、缩减程序代码。 创建方法：创建方法： 在菜单编辑器中，给菜单项起同一个名字，并设置其下标即可。在菜单编辑器中，给菜单项起同一个名字，并设置其下标即可。 注意事项：注意事项： 同一个菜单控件数组中的各菜单项名称必须相同；同一个菜单控件数组中的各菜单项名称必须相同； 控件数组元素的下标必须是升序；控件数组元素的下标必须是升序； 控件数组元素必须是连续的且在相同的子菜单内；控件数组元素必须是连续的且在相同的

8、子菜单内； 实例：实例： 在例在例9-29-2（简易文本编辑器）中，加入菜单，并增加（简易文本编辑器）中，加入菜单，并增加“编辑编辑”功功 能。能。 3 3菜单项的可用与不可用菜单项的可用与不可用 菜单可用与否应根据程序的运行状态来定。当条件不成熟菜单可用与否应根据程序的运行状态来定。当条件不成熟 时，菜单项应隐藏起来（时，菜单项应隐藏起来（Visible=FalseVisible=False）或设置成灰色状态）或设置成灰色状态 （Enabled=FalseEnabled=False）。当条件成熟后，再将相应的菜单项设置成）。当条件成熟后，再将相应的菜单项设置成 可见（可见（Visible=T

9、rueVisible=True）或可用（）或可用（Enabled=TrueEnabled=True）状态。）状态。 实例：实例： 控制例控制例9-29-2简易文本编辑器中，编辑菜单的可用状态。简易文本编辑器中，编辑菜单的可用状态。 弹出式菜单又称为快捷菜单，是在右击某一对象时弹出的。弹出式菜单又称为快捷菜单，是在右击某一对象时弹出的。 1 1制作方法：制作方法： 在某一个要弹出快捷菜单的对象的在某一个要弹出快捷菜单的对象的MouseDownMouseDown事件中，判断事件中，判断ButtonButton的值是否为的值是否为2 2 （右键），若是则用（右键），若是则用PopupMenuPopu

10、pMenu方法，具体格式为：方法，具体格式为： 2 2格式：格式： . . PopupMenu PopupMenu ，flagsflags ，x x ，y y ，BoldCommandBoldCommand 3 3说明：说明： 若打开的快捷菜单不是本窗体中的菜单时，需指明窗体名；若打开的快捷菜单不是本窗体中的菜单时，需指明窗体名； 弹出的菜单名，可以是隐藏的；弹出的菜单名，可以是隐藏的； FlagsFlags可取可取0 0、4 4、8 8，决定菜单出现的位置：右、中、左；默认值为，决定菜单出现的位置：右、中、左；默认值为0 0； X X，Y Y指明菜单弹出的位置（从窗体的原点算起）；指明菜单弹

11、出的位置（从窗体的原点算起）； BoldCommandBoldCommand指明需加粗的菜单项的名称（只能有一项）；指明需加粗的菜单项的名称（只能有一项）； 文本框右击，弹出的是系统提供的菜单，左击可自定义有关弹出式菜单；文本框右击，弹出的是系统提供的菜单，左击可自定义有关弹出式菜单； 同一个菜单可作为多个对象的快捷菜单。同一个菜单可作为多个对象的快捷菜单。 3 3实例：实例： Private Sub Form_MouseDown(Button As Integer, Shift As Private Sub Form_MouseDown(Button As Integer, Shift As

12、 Integer, X As Single, Y As Single)Integer, X As Single, Y As Single) If Button = 2 Then If Button = 2 Then Form1.PopupMenu EDIT, , 500, 500, EDI(3) Form1.PopupMenu EDIT, , 500, 500, EDI(3) End If End If End SubEnd Sub Private Sub Command1_MouseDown(Button As Integer, Shift As Private Sub Command1_M

13、ouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Integer, X As Single, Y As Single) If Button = 2 Then If Button = 2 Then Form1.PopupMenu EDIT, , , , EDI(3) Form1.PopupMenu EDIT, , , , EDI(3) End If End If End SubEnd Sub 一、用手工方式制作工具栏一、用手工方式制作工具栏 二、使用二、使用Toolbar控件和控件和ImageList控件

14、控件 1 1添加图片框：添加图片框： 在窗体中添加一个图片框作为工具栏的容器，将其在窗体中添加一个图片框作为工具栏的容器，将其AlignAlign属性设为非属性设为非0 0； 2 2添加工具控件：添加工具控件： 如：按钮类（互不干涉的按钮用如：按钮类（互不干涉的按钮用CommandButtonCommandButton、互斥的按钮用、互斥的按钮用 OptionButtonOptionButton、可以多选的用、可以多选的用CheckBoxCheckBox），列表类（），列表类（ListBoxListBox、ComboBoxComboBox、 DriveListBoxDriveListBox），

15、其它类（），其它类（TextBoxTextBox、ScrollBarScrollBar）。）。 3 3设置控件的属性：设置控件的属性： 如按钮类的如按钮类的StyleStyle、PicturePicture，及各个控件的，及各个控件的ToolTipTextToolTipText等。等。 4 4编写代码：编写代码： 可以直接写事件代码，但通常工具栏中的内容是对菜单等其它命令的快捷可以直接写事件代码，但通常工具栏中的内容是对菜单等其它命令的快捷 访问，因此也可直接调用相应的过程。访问，因此也可直接调用相应的过程。 5 5实例：实例： 在例在例9-29-2（简易文本编辑器）中，加入工具栏（新建、打开

16、、保存、粗体、（简易文本编辑器）中，加入工具栏（新建、打开、保存、粗体、 斜体、下划线等）。斜体、下划线等）。 1 1ImageListImageList控件控件 ImageListImageList控件是一个为其它控件提供图像资料的资料中心，它可以为控件是一个为其它控件提供图像资料的资料中心，它可以为 ToolBarToolBar等许多控件提供图像，但它本身不能单独使用。等许多控件提供图像，但它本身不能单独使用。 添加添加ImageListImageList控件控件 在部件对话框中，选择在部件对话框中，选择Microsoft Windows Common Control 6Microsoft

17、 Windows Common Control 60 0，并，并 点击确定，此时工具箱中会出现一组共点击确定，此时工具箱中会出现一组共9 9个控件。个控件。 给给ImageListImageList控件添加图像控件添加图像 设置图像大小设置图像大小 添加图像添加图像 可以单个添加，也可以一次加入多个或全部，不需要的再删除。可以单个添加，也可以一次加入多个或全部，不需要的再删除。 设置关键字设置关键字KeyKey 2 2ToolBarToolBar控件简介控件简介 ToolBarToolBar即工具条控件，是即工具条控件，是WindowsWindows中最常用的控件之一，它为用户提供了中最常用的

18、控件之一，它为用户提供了 访问程序的快捷方式，极大地方便了用户。访问程序的快捷方式，极大地方便了用户。 使用方法：使用方法： 在在“通用通用”标签中将图像列表设置好，然后在标签中将图像列表设置好，然后在“按钮按钮”标签中添加按钮，标签中添加按钮， 设置其所要用到的图像的序号或关键字，并输入相应的工具提示文本。设置其所要用到的图像的序号或关键字，并输入相应的工具提示文本。 ToolsBarToolsBar控件的属性控件的属性 AlignAlign属性：工具栏出现的位置。属性：工具栏出现的位置。 ButtonButton属性：引用工具条中的相应按钮。属性：引用工具条中的相应按钮。 ShowTipsShowTips属性：是否显示工具提示。属性：是否显示工具提示。 ImageListImageList属性：用来指明于此工具条相应的属性：用来指明于此工具条相应的ImageListImageList控件的名称。控件的名称。 WrappableWrappable属性：决定当窗口宽度小于按钮总宽度时，按钮是否自动换行显示。属性：决定当窗