vb1经典教程10

1、第第1010章菜单与工具栏章菜单与工具栏 10.110.1使用菜单使用菜单 一、下拉式菜单一、下拉式菜单菜单编辑器菜单编辑器下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）下拉式菜单通过左击菜单项打开，分为主菜单（菜单栏）和子菜单（最深可达和子菜单（最深可达5 5层）。菜单的设计层）。菜单的设计要要借助菜单编辑器来借助菜单编辑器来完成。完成。 1 1菜单编辑器菜单编辑器 打开打开“菜单编辑器菜单编辑器”的三种方法：的三种方法：选择选择“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”。单击工具栏中的单击工具栏中的“菜单编辑器菜单编辑器”右击窗体的空白处，选择右击窗体的空白处，选择“菜单编辑

2、器菜单编辑器”一、下拉式菜单一、下拉式菜单菜单编辑器菜单编辑器 “ “菜单编辑器菜单编辑器”的构成的构成属性区：属性区：1010个属性个属性编辑区：编辑区： 7 7个按钮个按钮列表区：列表区： 列出已建立的菜单内容列出已建立的菜单内容 “菜单菜单”控件的主要属性控件的主要属性标题（标题（CaptionCaption）：设置菜单项的标题，当标题是：设置菜单项的标题，当标题是 “ “”时，时，菜单项是一条菜单项是一条；用；用“”的方式可设置菜单的的方式可设置菜单的。一、下拉式菜单一、下拉式菜单菜单编辑器菜单编辑器名称（名称（NameName）：设置菜单项的名称，以便在程序中引用。：设置菜单项的名称

3、，以便在程序中引用。索引（索引（IndexIndex）：设置菜单控件数组的下标。：设置菜单控件数组的下标。快捷键（快捷键（ShortCutShortCut）：设置击活该子菜单项的快捷键。：设置击活该子菜单项的快捷键。复选（复选（CheckedChecked）：设置菜单项前是否有复选标记：设置菜单项前是否有复选标记“”。有效（有效（EnabledEnabled）：设置菜单项有效或无效。：设置菜单项有效或无效。可见（可见（VisibleVisible）：设置菜单项是否可见。：设置菜单项是否可见。 “菜单编辑器菜单编辑器” ” 的编辑区的编辑区“ ”“ ”：把选定的菜单下移一个等级。共：把选定的菜单

4、下移一个等级。共5 5个等级。个等级。“ ”“ ”：把选定的菜单上移一个等级。：把选定的菜单上移一个等级。“ ”“ ”：把选定的菜单项在同级菜单内向上移动一个位：把选定的菜单项在同级菜单内向上移动一个位置。置。“ ”“ ”：把选定的菜单项在同级菜单内向下移动一个位：把选定的菜单项在同级菜单内向下移动一个位置。置。“下一个下一个”：将焦点转移到下一个菜单项。：将焦点转移到下一个菜单项。“插入插入”：在列表框的当前选定行上方插入一项。：在列表框的当前选定行上方插入一项。“删除删除”：删除当前选定项。：删除当前选定项。一、下拉式菜单一、下拉式菜单菜单编辑器菜单编辑器一、下拉式菜单一、下拉式菜单菜单编

5、辑器菜单编辑器2 2菜单控件数组菜单控件数组作用：作用：可动态增减菜单控件；可动态增减菜单控件；简化程序、缩减程序代码。简化程序、缩减程序代码。创建方法：创建方法： 在菜单编辑器中给菜单项起同一个名字，并设置其下标即可。在菜单编辑器中给菜单项起同一个名字，并设置其下标即可。注意事项：注意事项：同一个菜单控件数组中的各菜单项名称必须相同；同一个菜单控件数组中的各菜单项名称必须相同；控件数组元素的下标必须是升序；控件数组元素的下标必须是升序；控件数组元素必须是连续的且在相同的子菜单内；控件数组元素必须是连续的且在相同的子菜单内；实例：实例：在例在例9-29-2（简易文本编辑器）中加入菜单，并增加（

6、简易文本编辑器）中加入菜单，并增加“编辑编辑”功功能能。 一、下拉式菜单一、下拉式菜单菜单控件数组菜单控件数组3 3菜单项的可用与不可用菜单项的可用与不可用 菜单可用与否应根据程序的运行状态来定。当条件不成菜单可用与否应根据程序的运行状态来定。当条件不成熟时，菜单项应隐藏起来（熟时，菜单项应隐藏起来（）或设置成灰色状）或设置成灰色状态（态（）。当条件成熟后，再将相应的菜单项设）。当条件成熟后，再将相应的菜单项设置成可见（置成可见（）或可用（）或可用（）状态。）状态。实例：实例：控制例控制例9-29-2简易文本编辑器中，编辑菜单的可用状态。简易文本编辑器中，编辑菜单的可用状态。 一、下拉式菜单一

7、、下拉式菜单菜单项的控制菜单项的控制二、弹出式菜单二、弹出式菜单 1 1制作方法：制作方法：在某一个要弹出快捷菜单的对象的在某一个要弹出快捷菜单的对象的MouseDownMouseDown事件中，判断事件中，判断ButtonButton的值是否为的值是否为2 2（右键），若是则用（右键），若是则用PopupMenuPopupMenu方法，具体格式为：方法，具体格式为：2 2格式：格式： . . PopupMenuPopupMenu ，flagsflags ，x x ，y y ，BoldCommandBoldCommand 3 3说明：说明：若打开的快捷菜单不是本窗体中的菜单时，需指明窗体名；若

8、打开的快捷菜单不是本窗体中的菜单时，需指明窗体名；弹出的菜单名，可以是隐藏的；弹出的菜单名，可以是隐藏的；FlagsFlags可取可取0 0、4 4、8 8，决定菜单出现的位置：右、中、左；，决定菜单出现的位置：右、中、左；X X，Y Y指明菜单弹出的位置（从窗体的原点算起）；指明菜单弹出的位置（从窗体的原点算起）；BoldCommandBoldCommand指明需加粗的菜单项的名称（只能有一项）；指明需加粗的菜单项的名称（只能有一项）；同一个菜单可作为多个对象的快捷菜单。同一个菜单可作为多个对象的快捷菜单。 二、二、弹出式菜单弹出式菜单 4 4实例：实例：Private Sub Form_M

9、ouseDownPrivate Sub Form_MouseDown(Button As Integer, Shift As (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 Form1.PopupMenu EDIT, , 500, 500, EDI(3) EDIT, , 500, 500, EDI(3) End If End IfEnd Su

10、bEnd SubPrivate Sub Command1_MouseDownPrivate Sub Command1_MouseDown(Button As Integer, Shift (Button As Integer, Shift As Integer, X As Single, Y As Single)As Integer, X As Single, Y As Single) If Button = 2 Then If Button = 2 Then Form1.PopupMenu Form1.PopupMenu EDIT, , , , EDI(3) EDIT, , , , EDI(

11、3) End If End IfEnd SubEnd Sub 10.2 10.2 使用工具栏使用工具栏 一、用手工方式制作工具栏一、用手工方式制作工具栏二、使用二、使用Toolbar控件和控件和ImageList控件控件一、用手工方式制作工具栏一、用手工方式制作工具栏 二、使用二、使用ToolbarToolbar控件和控件和ImageListImageList控件控件 二、使用二、使用ToolbarToolbar控件和控件和ImageListImageList控件控件 二、使用二、使用ToolbarToolbar控件和控件和ImageListImageList控件控件 三、程序举例三、程序举例 案例程序案例程序1 1： 我的写字板我的写字板案例程序案例程序2 2： 打字测试系统打字测试系统第第10章菜单与工具栏章菜单与工具栏 回顾回顾10.