1、第四章第四章 菜单与工具栏设计菜单与工具栏设计第第4章章 菜单与工具栏设计菜单与工具栏设计主要内容主要内容:1.菜单设计菜单设计2.弹出式菜单设计弹出式菜单设计3.工具栏设计工具栏设计4.状态栏设计状态栏设计第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1 菜菜 单单 设设 计计 在在Windows中，菜单可以分为两种基本类型：中，菜单可以分为两种基本类型：下拉式菜单和弹出式菜单。下拉式菜单一般通过下拉式菜单和弹出式菜单。下拉式菜单一般通过单击菜单栏中菜单名称的方式打开，而弹出式菜单击菜单栏中菜单名称的方式打开，而弹出式菜单一般通过在某一区域右击的方式打开。单一般通过在某一区域右击的方式打
2、开。如图如图4-1所示，分别是所示，分别是VB“工程工程”菜单的下拉式菜单和窗菜单的下拉式菜单和窗体的弹出式菜单。体的弹出式菜单。第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1.1 任务一任务一 菜单控件菜单控件 在在Visual Basic中，菜单也是一个图形中，菜单也是一个图形对象，即控件。与其他控件一样，菜单对象，即控件。与其他控件一样，菜单也需要定义它的外观和属性。在设计菜也需要定义它的外观和属性。在设计菜单和运行菜单时可以设置菜单的单和运行菜单时可以设置菜单的Caption属性、属性、Enable属性、属性、Visible属性、属性、Checked属性及其他属性。每个菜单项都属
3、性及其他属性。每个菜单项都可以接收可以接收Click事件，当用鼠标或键盘选事件，当用鼠标或键盘选中该菜单项时，将调用该事件。中该菜单项时，将调用该事件。第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1.2 任务二任务二 菜单编辑器菜单编辑器 Visual Basic中，用菜单编辑器设计菜单和菜中，用菜单编辑器设计菜单和菜单项，或在已有的菜单上添加新菜单项、编辑单项，或在已有的菜单上添加新菜单项、编辑已有的菜单选项以及修改和删除已有的菜单和已有的菜单选项以及修改和删除已有的菜单和菜单项。菜单项。进入菜单编辑器的方式有如下几种：进入菜单编辑器的方式有如下几种：l l 选择选择“工具工具”“菜单
4、编辑器菜单编辑器”命令；命令；l l 单击常用工具栏中的单击常用工具栏中的“菜单编辑器菜单编辑器”按钮；按钮；l l 按按Ctrl+ECtrl+E组合键；组合键；l l 在要建立菜单的窗体（此窗体为活动窗体）在要建立菜单的窗体（此窗体为活动窗体）上右击，在弹出的快捷菜单中选择上右击，在弹出的快捷菜单中选择“菜单编辑菜单编辑器器”命令。弹出命令。弹出“菜单编辑器菜单编辑器”对话框，如图对话框，如图4-2所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-2 4-2 “菜单编辑器菜单编辑器”对话框对话框第四章第四章 菜单与工具栏设计菜单与工具栏设计 “菜单编辑器菜单编辑器”窗口分为窗
5、口分为3 3部分：数据区、编辑部分：数据区、编辑区和菜单项显示区。现分别介绍各部分的功能。区和菜单项显示区。现分别介绍各部分的功能。1数据区数据区 数据区是菜单控件的属性区，用于输入和修改数据区是菜单控件的属性区，用于输入和修改菜单项、设置菜单项的属性。由菜单项、设置菜单项的属性。由1010个部分组成，个部分组成，各部分的作用如下。各部分的作用如下。（1）标题：）标题：此文本框用于输入所建立菜单此文本框用于输入所建立菜单的标题及菜单中每个菜单项的标题（相当于菜单的标题及菜单中每个菜单项的标题（相当于菜单控件的控件的Caption属性），也是显示在菜单中的字属性），也是显示在菜单中的字符，可以在
6、标题中设置热键。如果要在菜单中添符，可以在标题中设置热键。如果要在菜单中添加一条分隔线，就在此输入一个减号（加一条分隔线，就在此输入一个减号（-）。）。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （2 2）名称：）名称：此文本框用于输入所建立的菜单此文本框用于输入所建立的菜单和各菜单项的控制名（即菜单控件的和各菜单项的控制名（即菜单控件的NameName属属性），此项不在菜单中显示出来。性），此项不在菜单中显示出来。Visual Visual BasicBasic中的菜单和每个菜单项都是控件，所以都中的菜单和每个菜单项都是控件，所以都要有一个控制名（其要有一个控制名（其NameName属性
7、）。属性）。（3 3）索引：）索引：此文本框用来为用户建立的控件此文本框用来为用户建立的控件数组设立下标，相当于控件数组的数组设立下标，相当于控件数组的IndexIndex属性。属性。（4）快捷键：）快捷键：此下拉列表框用来设置与某菜此下拉列表框用来设置与某菜单项等价的快捷键。在程序运行时，按下快捷键单项等价的快捷键。在程序运行时，按下快捷键会立刻运行一个菜单项。快捷键的赋值包括功能会立刻运行一个菜单项。快捷键的赋值包括功能键与控制键的组合，它们出现在菜单中相应菜单键与控制键的组合，它们出现在菜单中相应菜单项的右边。项的右边。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （5 5）帮助上下文
8、：）帮助上下文：此文本框用于输入在帮助文此文本框用于输入在帮助文件（用件（用HelpFileHelpFile属性设置）中查找相应的帮助主题属性设置）中查找相应的帮助主题的数值。的数值。（6 6）协调位置：）协调位置：此下拉列表框用于确定相应的此下拉列表框用于确定相应的菜单或菜单项的显示位置。该下拉列表框中有菜单或菜单项的显示位置。该下拉列表框中有4 4个选个选项，其作用如下：项，其作用如下：l l 0-None0-None菜单项不显示；菜单项不显示；l l 1-Left1-Left菜单项靠左显示；菜单项靠左显示；l l 2-Middle2-Middle菜单项居中显示；菜单项居中显示；l l 3
9、-Right3-Right菜单项靠右显示。菜单项靠右显示。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （7 7）复选：）复选：此复选框用于设置该菜单项标记此复选框用于设置该菜单项标记（即菜单项的（即菜单项的CheckedChecked属性），此选项通常是动态属性），此选项通常是动态地加上或取消的，一般应当在程序代码中，根据执地加上或取消的，一般应当在程序代码中，根据执行情况设置。当行情况设置。当“复选复选”属性设置为属性设置为TrueTrue时，可在时，可在相应的菜单项旁加上标记相应的菜单项旁加上标记，表明该菜单项当前处，表明该菜单项当前处于活动状态。于活动状态。（8 8）有效：）有效：该
10、复选框用于设置菜单项的操作状该复选框用于设置菜单项的操作状态（即态（即EnableEnable属性）。默认情况下，该属性为属性）。默认情况下，该属性为TrueTrue，表示该选项为有效，可以对用户事件做出响应。若表示该选项为有效，可以对用户事件做出响应。若设置该选项为设置该选项为FalseFalse，则相应的菜单项不响应用户则相应的菜单项不响应用户事件。事件。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （9 9）可见：）可见：该复选框用于确定相应的菜单项是该复选框用于确定相应的菜单项是否可见（即否可见（即VisibleVisible属性）。若菜单项是可以执行属性）。若菜单项是可以执行的，则
11、其可见属性为的，则其可见属性为TrueTrue，否则相应的菜单项不能否则相应的菜单项不能执行，即其可见属性为执行，即其可见属性为FalseFalse。此时可以把它的此时可以把它的“可见可见”属性设置为属性设置为TrueTrue，那么该菜单项将重新出那么该菜单项将重新出现在菜单中。现在菜单中。（1010）显示窗口列表：）显示窗口列表：该复选框被选中（即框该复选框被选中（即框内为内为）时，将显示当前打开的一系列子窗口。该）时，将显示当前打开的一系列子窗口。该选项用于多文档应用程序。选项用于多文档应用程序。第四章第四章 菜单与工具栏设计菜单与工具栏设计2编辑区编辑区 编辑区有编辑区有7 7个按钮，用
12、于对输入的菜单项进行简单个按钮，用于对输入的菜单项进行简单编辑。菜单在数据区输入，在菜单项显示区显示。编辑。菜单在数据区输入，在菜单项显示区显示。这这7 7个按钮的作用如下个按钮的作用如下:（1 1）左、右箭头：）左、右箭头：用来产生和取消内缩符号。用来产生和取消内缩符号。单击一次右箭头可以产生一个内缩符号（单击一次右箭头可以产生一个内缩符号（4 4个点个点“.”），其作用是使当前菜单项的层次下降），其作用是使当前菜单项的层次下降一层；单击一次左箭头，可以删除一个内缩符号，一层；单击一次左箭头，可以删除一个内缩符号，其作用是使当前菜单项的层次上升一层。其作用是使当前菜单项的层次上升一层。第四章
13、第四章 菜单与工具栏设计菜单与工具栏设计 （2 2）上、下箭头：）上、下箭头：用来在菜单项显示区内移用来在菜单项显示区内移动菜单项的位置。把条形光标移动到某个菜单项动菜单项的位置。把条形光标移动到某个菜单项上，单击上箭头将使该菜单项上移，单击下箭头上，单击上箭头将使该菜单项上移，单击下箭头将使该菜单项下移。将使该菜单项下移。（3 3）下一个：）下一个：新建一个菜单项（与按新建一个菜单项（与按【EnterEnter】键作用相同）。键作用相同）。（4 4）插入：）插入：在当前菜单项之前插入一个新的菜在当前菜单项之前插入一个新的菜单项。单项。（5 5）删除：）删除：删除当前菜单项。删除当前菜单项。第
14、四章第四章 菜单与工具栏设计菜单与工具栏设计3菜单项显示区菜单项显示区 菜单项显示区在菜单设计窗口的下面，输入的菜单项显示区在菜单设计窗口的下面，输入的菜单项在此区域显示，不同菜单项的层次通过内菜单项在此区域显示，不同菜单项的层次通过内缩符号来表示。条形光标所在的菜单项为缩符号来表示。条形光标所在的菜单项为“当前当前菜单项菜单项”。第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1.3 任务三任务三 创建菜单的步骤创建菜单的步骤【例例4-1】设计一个具有输入、输出和显示功能的设计一个具有输入、输出和显示功能的菜单，该菜单可以把输入的一串字符显示出来。菜单，该菜单可以把输入的一串字符显示出来。
15、分析：分析：根据题意，可以分为两个主菜单项，分别根据题意，可以分为两个主菜单项，分别为为“输入信息输入信息”和和“显示信息显示信息”，它们各包括两，它们各包括两个子菜单项。个子菜单项。l l “输入信息输入信息”包括包括“输入输入”和和“退出退出”。l l “显示信息显示信息”包括包括“显示显示”和和“清除清除”。建立菜单的具体操作步骤如下：建立菜单的具体操作步骤如下：第四章第四章 菜单与工具栏设计菜单与工具栏设计（1 1）建立控件）建立控件 本例中需要输入和输出数据，因此需要建立本例中需要输入和输出数据，因此需要建立一个文本框用以输入数据，建立一个标签用以一个文本框用以输入数据，建立一个标签
16、用以输出数据，另外建立两个标签作为提示，各控输出数据，另外建立两个标签作为提示，各控件的属性设置如表件的属性设置如表4-1所示，窗体界面如图所示，窗体界面如图4-3所所示。此外，还要设置标签示。此外，还要设置标签outputoutput的背景色及的背景色及Label1Label1和和Label2Label2的显示方式，如图的显示方式，如图4-44-4所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-3 菜单控件设计菜单控件设计 第四章第四章 菜单与工具栏设计菜单与工具栏设计 图图4-4 菜单项设计菜单项设计 第四章第四章 菜单与工具栏设计菜单与工具栏设计 （2 2）设计菜单）设
17、计菜单 下面利用菜单编辑器来设计各个菜单项，在下面利用菜单编辑器来设计各个菜单项，在设计菜单控件时应提供设计菜单控件时应提供3种属性：标题、名称和种属性：标题、名称和内缩符号，一个内缩符号表示一层子菜单，没内缩符号，一个内缩符号表示一层子菜单，没有内缩符号表示主菜单项。本例中有两个主菜有内缩符号表示主菜单项。本例中有两个主菜单项，每个主菜单项有两个子菜单。其属性设单项，每个主菜单项有两个子菜单。其属性设置如表置如表4-2所示。具体操作步骤如下：所示。具体操作步骤如下：选择选择“工具工具”“”“菜单编辑器菜单编辑器”命令，命令，弹出弹出“菜单编辑器菜单编辑器”对话框。对话框。在在“标题标题”文本
18、框中输入文本框中输入“输入信息输入信息”（主菜单（主菜单1 1），在菜单项显示区中出现同样的），在菜单项显示区中出现同样的标题名称。标题名称。第四章第四章 菜单与工具栏设计菜单与工具栏设计 按按【TabTab】键（或用鼠标）把输入光标移到键（或用鼠标）把输入光标移到“名称名称”文本框。文本框。在在“名称名称”文本框中输入文本框中输入“InputInput”，此时菜此时菜单项显示区中没有变化。单项显示区中没有变化。将此菜单项的将此菜单项的EnableEnable（有效）和有效）和VisibleVisible（可可见）属性都设置为见）属性都设置为TrueTrue（本例中所有菜单项的此二本例中所有菜
19、单项的此二属性皆如此）。属性皆如此）。单击编辑区中的单击编辑区中的“下一个下一个”按钮，菜单项显示按钮，菜单项显示区中的条形光标下移，同时数据区的区中的条形光标下移，同时数据区的“标题标题”文本文本框和框和“名称名称”文本框被清空，光标回到文本框被清空，光标回到“标题标题”文文本框。本框。在在“标题标题”文本框中输入文本框中输入“输入输入”，该信息同，该信息同时在菜单项显示区中显示出来。时在菜单项显示区中显示出来。第四章第四章 菜单与工具栏设计菜单与工具栏设计 单击编辑区的右箭头，菜单显示区中的单击编辑区的右箭头，菜单显示区中的“输入输入”右移，同时其左侧出现一个内缩符号（右移，同时其左侧出现
20、一个内缩符号（.），表明），表明“输入输入”是是“输入信息输入信息”的下一级菜单。的下一级菜单。单击单击“快捷键快捷键”下拉列表框右端的下拉按钮，下拉列表框右端的下拉按钮，选择选择【Ctrl+ICtrl+I】作为作为“输入输入”菜单项的快捷键，此时，菜单项的快捷键，此时，在该菜单项右侧出现在该菜单项右侧出现Ctrl+ICtrl+I。单击编辑区中的单击编辑区中的“下一个下一个”按钮，菜单项显示区按钮，菜单项显示区的条形光标下移，左端自动出现内缩符号的条形光标下移，左端自动出现内缩符号“.”。在在“标题标题”文本框内输入文本框内输入“退出退出”，然后在，然后在“名称名称”文本框内输入文本框内输入“
21、QuitQuit”作为菜单项的名称。作为菜单项的名称。单击单击“快捷键快捷键”下拉列表框右端的下拉按钮，从中下拉列表框右端的下拉按钮，从中选出选出【Ctrl+Q】组合键作为组合键作为“退出退出”菜单项的快捷键。菜单项的快捷键。第四章第四章 菜单与工具栏设计菜单与工具栏设计 建立主菜单项建立主菜单项“显示信息显示信息”及其两个子菜单及其两个子菜单项的操作与上面所述的各步骤类似，不再重复。项的操作与上面所述的各步骤类似，不再重复。设计完成后的窗口如图设计完成后的窗口如图4-44-4所示。此时，单击右上所示。此时，单击右上角的角的“确定确定”按钮，菜单的建立工作全部结束。按钮，菜单的建立工作全部结束
22、。设计完成后，窗体的顶行显示主菜单项，单设计完成后，窗体的顶行显示主菜单项，单击某个主菜单项，即可显示下拉菜单，如图击某个主菜单项，即可显示下拉菜单，如图4-5所所示。示。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （3 3）为事件过程编写代码）为事件过程编写代码 如前所述，每个菜单项（包括主菜单项和子如前所述，每个菜单项（包括主菜单项和子菜单项）都可以接收菜单项）都可以接收Click事件。每个子菜单项事件。每个子菜单项都对应一个都对应一个Click事件过程。即程序运行后，只事件过程。即程序运行后，只要单击某个子菜单项，就可以执行事件过程所要单击某个子菜单项，就可以执行事件过程所定义的操作
23、。定义的操作。每个菜单项对应一个控件。菜单设计完成每个菜单项对应一个控件。菜单设计完成后，窗体上显示出如图后，窗体上显示出如图4-5所示的菜单项，此所示的菜单项，此时只要单击某个子菜单项，即可编写该菜单时只要单击某个子菜单项，即可编写该菜单项的过程。例如，完成菜单设计后，单击项的过程。例如，完成菜单设计后，单击“输入信息输入信息”菜单项，显示菜单项，显示“输入输入”和和“退退出出”子菜单项，如果单击子菜单项，如果单击“输入输入”子菜单项，子菜单项，则进入程序代码窗口，并显示：则进入程序代码窗口，并显示：第四章第四章 菜单与工具栏设计菜单与工具栏设计Private Sub Iput_Click(
24、)输入菜单代码输入菜单代码 Text1.Text=End SubPrivate Sub disp_Click()显示菜单代码显示菜单代码 output.Caption=Text1.TextEnd Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计Private Sub clear_Click()清除菜单代码清除菜单代码 Text1.Text=output.Caption=End Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1.4 任务四任务四 菜单控件数组菜单控件数组 在在Visual Basic中，菜单也是图形对象，即中，菜单也是图形对象，即控件，所以可以运用数组的概念。菜单控
25、件数控件，所以可以运用数组的概念。菜单控件数组的作用主要有以下两方面：组的作用主要有以下两方面：（1）用于动态地增加和删除菜单项；）用于动态地增加和删除菜单项；（2）简化了编程过程，用一段代码处理多）简化了编程过程，用一段代码处理多个菜单项。个菜单项。【例例4-2】设计一个简易的文本编辑器，具有新设计一个简易的文本编辑器，具有新建、编辑和保存一般文本文件的功能，如图建、编辑和保存一般文本文件的功能，如图4-7所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-7 简易文本编辑器简易文本编辑器 第四章第四章 菜单与工具栏设计菜单与工具栏设计建立此菜单的具体操作步骤如下：建立此菜单的
26、具体操作步骤如下：（1）建立菜单控件）建立菜单控件 由于本菜单中有文本的输入和显示操作、文件由于本菜单中有文本的输入和显示操作、文件的操作（如的操作（如“打开打开”、“保存保存”等），因此需要有等），因此需要有文本框和对话框，还应设置文本的多行属性和滚动文本框和对话框，还应设置文本的多行属性和滚动条，如图条，如图4-8所示。所示。（2）设计菜单）设计菜单 此文本编辑器的每一菜单的下拉菜单中的菜单此文本编辑器的每一菜单的下拉菜单中的菜单项是通过菜单控件数组完成的，只需指定其项是通过菜单控件数组完成的，只需指定其Index属属性值即可。打开菜单编辑器，按表性值即可。打开菜单编辑器，按表4-3所示输
27、入每一所示输入每一个菜单项的各个属性。所建立的菜单如图个菜单项的各个属性。所建立的菜单如图4-9所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-8 建立菜单控件建立菜单控件 第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-9 用菜单控件数组建立菜单用菜单控件数组建立菜单 第四章第四章 菜单与工具栏设计菜单与工具栏设计 （3）编写事件过程代码）编写事件过程代码 菜单建立好以后，还需要为每一个事件过程编菜单建立好以后，还需要为每一个事件过程编写相应的代码。下面是每一个菜单项的代码。写相应的代码。下面是每一个菜单项的代码。“文件文件”菜单的各个菜单项对应的事件代码如下：菜单的
28、各个菜单项对应的事件代码如下：Private Sub File_Click(Index As Integer)n=Index Select Case n Case 0 新建新建 Text1.Text=Form1.Caption=未命名未命名第四章第四章 菜单与工具栏设计菜单与工具栏设计 Case 1 打开子菜单打开子菜单 CommonDialog1.ShowOpen 显示显示“打开打开”对话对话框框 fname=CommonDialog1.FileName If fname Then Text1.Text=Open fname For Input As#1 b=Do Until EOF(1)L
29、ine Input#1,nextline b=b&nextline&Chr(13)&Chr(10)Loop Close#1 Text1.Text=b End If Form1.Caption=fname第四章第四章 菜单与工具栏设计菜单与工具栏设计 Case 2 保存子菜单保存子菜单 If Form1.Caption=未命名未命名 Or Form1.Caption=Then CommonDialog1.ShowSave 显示显示“另存为另存为”对话对话框框 fname=CommonDialog1.FileName Else fname=Form1.Caption End If If fname
30、 Then Open fname For Output As#1 Print#1,Text1.Text Close#1 End If第四章第四章 菜单与工具栏设计菜单与工具栏设计 Case 3 另存为子菜单另存为子菜单 CommonDialog1.ShowSave显示显示“另存为另存为”对话对话框框 fname=CommonDialog1.FileName If fname Then Open fname For Output As#1 Print#1,Text1.Text Close#1 End If Case 4 关闭子菜单关闭子菜单 Text1.Text=End End Select T
31、ext1.SetFocusEnd Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计“编辑编辑”菜单的各个菜单项对应的事件代码如下：菜单的各个菜单项对应的事件代码如下：Private Sub Edi_Click(Index As Integer)i=Index Select Case i Case 0 剪切剪切 Clipboard.SetText Text1.SelText Text1.SelText=Case 1 复制复制 Clipboard.SetText Text1.SelText Case 2 粘贴粘贴 Text1.SelText=Clipboard.GetText()Case 3
32、清除清除 Text1.SelText=End SelectEnd Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计4.1.5 任务五任务五 弹出式菜单弹出式菜单 虽然下拉式菜单能够根据程序的运行情况虽然下拉式菜单能够根据程序的运行情况动态地调整其可见性、有效性，也可以动态地动态地调整其可见性、有效性，也可以动态地增减菜单项，但其对用户的当前操作跟踪不够。增减菜单项，但其对用户的当前操作跟踪不够。而弹出式菜单能以灵活的方式为用户提供更方而弹出式菜单能以灵活的方式为用户提供更方便的操作。便的操作。弹出式菜单是独立于窗体菜单栏而显示在弹出式菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。弹出式菜
33、单在窗体内的位窗体内的浮动菜单。弹出式菜单在窗体内的位置取决于单击鼠标键（通常单击右键）时指针置取决于单击鼠标键（通常单击右键）时指针的位置，弹出式菜单也称为的位置，弹出式菜单也称为“上下文菜单上下文菜单”或或“快捷菜单快捷菜单”。第四章第四章 菜单与工具栏设计菜单与工具栏设计建立弹出式菜单的具体操作步骤如下：建立弹出式菜单的具体操作步骤如下：（1）先用菜单编辑器建立菜单。）先用菜单编辑器建立菜单。此步骤与下拉式菜单建立方法相同，区别在于必须把此步骤与下拉式菜单建立方法相同，区别在于必须把主菜单项的主菜单项的“可见（可见（Visible）”属性设置为属性设置为False。（2）用）用Popup
34、Menu方法弹出显示。方法弹出显示。PopupMenu方法用来显示弹出式菜单，其格式如下：方法用来显示弹出式菜单，其格式如下：.PopupMenu,Flags,X,Y,BoldCommand第四章第四章 菜单与工具栏设计菜单与工具栏设计说明：说明：PopupMenu方法有方法有6个参数，只有个参数，只有是必是必选的，其余都是可选的。省略选的，其余都是可选的。省略时，在当前窗体时，在当前窗体内打开弹出式菜单，如果需要在非当前窗体中打开弹出内打开弹出式菜单，如果需要在非当前窗体中打开弹出式菜单时，必须指定窗体名。式菜单时，必须指定窗体名。是在菜单编辑器中定义的主菜单项名。是在菜单编辑器中定义的主菜
35、单项名。Flags参数是一个数值或符号常量，用来指定弹出参数是一个数值或符号常量，用来指定弹出式菜单的位置及行为，其取值分为两组，如表式菜单的位置及行为，其取值分为两组，如表4-4和表和表4-5所示，一组用于指定菜单位置，另一组用于定义特殊的所示，一组用于指定菜单位置，另一组用于定义特殊的菜单行为。这两组参数可以单独使用，也可以联合使用。菜单行为。这两组参数可以单独使用，也可以联合使用。当联合使用时，每组中取一个常数，两个常数相加；若当联合使用时，每组中取一个常数，两个常数相加；若每组中取一个符号常量，则此两个常量用每组中取一个符号常量，则此两个常量用or相连。相连。第四章第四章 菜单与工具栏
36、设计菜单与工具栏设计 X、Y分别用来指定弹出式菜单在窗体上的显分别用来指定弹出式菜单在窗体上的显示位置，示位置，X为横坐标，为横坐标，Y为纵坐标，一般与为纵坐标，一般与Flags参数参数配合使用。二者省略时，弹出式菜单在鼠标光标的当配合使用。二者省略时，弹出式菜单在鼠标光标的当前位置显示。如果这几个参数都省略，则当右击弹出前位置显示。如果这几个参数都省略，则当右击弹出菜单时，鼠标光标所在位置为弹出式菜单左上角的坐菜单时，鼠标光标所在位置为弹出式菜单左上角的坐标。系统默认窗体左上角为坐标原点；如果省略标。系统默认窗体左上角为坐标原点；如果省略Flags参数，不省略参数，不省略X、Y参数，则参数，
37、则X、Y为弹出式菜单为弹出式菜单左上角的坐标；如果同时使用这几个参数，则弹出式左上角的坐标；如果同时使用这几个参数，则弹出式菜单的位置分为以下几种情况。菜单的位置分为以下几种情况。Flags=0 X、Y为弹出式菜单左上角的坐标为弹出式菜单左上角的坐标Flags=4 X、Y为弹出式菜单顶边中间的坐标为弹出式菜单顶边中间的坐标Flags=8 X、Y为弹出式菜单右上角的坐标为弹出式菜单右上角的坐标第四章第四章 菜单与工具栏设计菜单与工具栏设计 要弹出菜单，通常的做法是把要弹出菜单，通常的做法是把PopupMenu方方法放在法放在ouseDown事件中，该事件响应所有的鼠标事件中，该事件响应所有的鼠标
38、单击操作。一般情况下右击显示弹出式菜单，这可单击操作。一般情况下右击显示弹出式菜单，这可以用以用Button参数来实现。对于两个键的鼠标来说，参数来实现。对于两个键的鼠标来说，左键的左键的Button参数值为参数值为1，右键的，右键的Button参数值为参数值为2。所以可以用下面的语句实现在右击时响应所以可以用下面的语句实现在右击时响应MouseDown事件，显示弹出式菜单。事件，显示弹出式菜单。If Button=2 Then PopupMenu 菜单名菜单名第四章第四章 菜单与工具栏设计菜单与工具栏设计【例例4-3】在例在例4-1中实现弹出式菜单，在文本显示区中实现弹出式菜单，在文本显示区
39、域右击时可以设置字体格式。域右击时可以设置字体格式。其具体操作步骤如下：其具体操作步骤如下：（1）打开在例）打开在例4-1中建立的窗体，再打开菜单编中建立的窗体，再打开菜单编辑器，设置各个菜单项的属性，其属性如表辑器，设置各个菜单项的属性，其属性如表4-6所所示，用菜单编辑器设计的结果如图示，用菜单编辑器设计的结果如图4-10所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-10 建立弹出式菜单建立弹出式菜单 第四章第四章 菜单与工具栏设计菜单与工具栏设计（2）编辑标签的）编辑标签的MouseDown事件过程。事件过程。Private Sub output_MouseDown(
40、Button As Integer,Shift As Integer,X As Single,-Y As Single)If Button=2 Then PopupMenu popformat End IfEnd Sub 此过程中的条件语句用来判断所按下的是否是此过程中的条件语句用来判断所按下的是否是鼠标右键，如果是，则用鼠标右键，如果是，则用PopupMenu方法弹出菜单。方法弹出菜单。运行程序，然后在标签运行程序，然后在标签output内右击，将弹出一个内右击，将弹出一个菜单，如图菜单，如图4-11所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-11 显示弹出式菜单显示弹
41、出式菜单 第四章第四章 菜单与工具栏设计菜单与工具栏设计 （3）为每个子菜单项编写事件过程代码。）为每个子菜单项编写事件过程代码。在编写下拉式菜单过程代码时，通常是在窗体中在编写下拉式菜单过程代码时，通常是在窗体中单击主菜单项，显示子菜单，然后双击某个子菜单单击主菜单项，显示子菜单，然后双击某个子菜单项，进入代码窗口，即可编写该菜单项的事件过程项，进入代码窗口，即可编写该菜单项的事件过程代码。而弹出式菜单的主菜单项是不可见的（其代码。而弹出式菜单的主菜单项是不可见的（其Visible属性为属性为False），不能在窗体顶部显示，所以），不能在窗体顶部显示，所以不能通过双击子菜单项的方式进入代码
42、窗口，必须不能通过双击子菜单项的方式进入代码窗口，必须先进入代码窗口（选择先进入代码窗口（选择“视图视图”“代码代码”命令，命令，或按或按【F7】键，或双击窗体），然后单击键，或双击窗体），然后单击“对象对象”下拉列表框右端的下拉按钮，显示各个子菜单项，下拉列表框右端的下拉按钮，显示各个子菜单项，再单击某个子菜单项，将显示该子菜单项的事件过再单击某个子菜单项，将显示该子菜单项的事件过程代码框架，然后可在该框架内编写代码。程代码框架，然后可在该框架内编写代码。第四章第四章 菜单与工具栏设计菜单与工具栏设计各子菜单项的事件过程代码如下：各子菜单项的事件过程代码如下：Private Sub popB
43、old_Click()粗体菜单粗体菜单 output.FontBold=TrueEnd SubPrivate Sub popItalic_Click()斜体菜单斜体菜单 output.FontItalic=TrueEnd SubPrivate Sub popUndrli_Click()下划线菜单下划线菜单 output.FontUnderline=TrueEnd Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计Private Sub font20pt_Click()output.FontSize=20End SubPrivate Sub fontLs_Click()output.FontN
44、ame=隶书隶书End SubPrivate Sub Qit_Click()EndEnd Sub 运行上面的程序后，用弹出式菜单设置标签内数运行上面的程序后，用弹出式菜单设置标签内数据的属性，如图据的属性，如图4-12所示。所示。第四章第四章 菜单与工具栏设计菜单与工具栏设计图图4-12 弹出式菜单程序运行结果弹出式菜单程序运行结果 第四章第四章 菜单与工具栏设计菜单与工具栏设计4.2 工具栏设计工具栏设计 工具栏（也称为发条或者控制栏）已经成为工具栏（也称为发条或者控制栏）已经成为许多基于许多基于 Windows 应用程序的标准功能。工具应用程序的标准功能。工具栏提供了对于应用程序中最常用的
45、菜单命令的快栏提供了对于应用程序中最常用的菜单命令的快速访问。制作工具栏有两种方法：一是手工制作，速访问。制作工具栏有两种方法：一是手工制作，即利用图形框和命令按钮，比较烦琐；另一种方即利用图形框和命令按钮，比较烦琐；另一种方法通过组合使用法通过组合使用ToolBar、ImageList控件，使得控件，使得工具栏制作与菜单制作一样简单易学。工具栏制作与菜单制作一样简单易学。第四章第四章 菜单与工具栏设计菜单与工具栏设计 用手工方式制作工具栏的具体操作步骤如下：用手工方式制作工具栏的具体操作步骤如下：（1）在窗体中添加一个图片框（作为工具按钮）在窗体中添加一个图片框（作为工具按钮的容器），通过设
46、置图片框的的容器），通过设置图片框的Align属性来控制工属性来控制工具栏（图片框）在窗体中的位置。当改变窗体的大具栏（图片框）在窗体中的位置。当改变窗体的大小时，小时，Align属性值非属性值非0的图片框会自动改变大小以的图片框会自动改变大小以适应窗体的宽度或高度。适应窗体的宽度或高度。（2）选定图片框，在图片框中添加任何想在工）选定图片框，在图片框中添加任何想在工具栏中显示的控件，通常使用的控件有命令按钮、具栏中显示的控件，通常使用的控件有命令按钮、图形方式的选项按钮、复选框按钮和下拉列表框等。图形方式的选项按钮、复选框按钮和下拉列表框等。第四章第四章 菜单与工具栏设计菜单与工具栏设计 （
47、3）设置控件的属性。通常在工具按钮上通过）设置控件的属性。通常在工具按钮上通过不同的图像来表示对应的功能，还可以设置按钮的不同的图像来表示对应的功能，还可以设置按钮的ToolTipText属性为工具按钮添加工具提示。属性为工具按钮添加工具提示。图图4-13 带工具栏的简易文本编辑器带工具栏的简易文本编辑器 （4）编写代码。）编写代码。由于工具按钮通常用于提供对其他（菜单）命由于工具按钮通常用于提供对其他（菜单）命令迅速快捷地访问，所以一般都是在其令迅速快捷地访问，所以一般都是在其Click事件事件代码中调用对应的菜单命令。代码中调用对应的菜单命令。第四章第四章 菜单与工具栏设计菜单与工具栏设计
48、【例例4-4】为例为例4-2中的简易文本编辑器增加一个自中的简易文本编辑器增加一个自定义的工具栏，如图定义的工具栏，如图4-13所示。所示。在例在例4-2的基础上作如下修改。的基础上作如下修改。（1）修改应用程序用户界面。在窗体上增加）修改应用程序用户界面。在窗体上增加一个图片框一个图片框Picture1，然后在图片框中增加一个，然后在图片框中增加一个命令按钮数组命令按钮数组Command1(0)Command1(2)和复和复选框数组选框数组Check1(0)Check1(2)。（2）设置新增对象属性，如表）设置新增对象属性，如表4-7所示。所示。（3）修改及编写程序代码。）修改及编写程序代码
49、。第四章第四章 菜单与工具栏设计菜单与工具栏设计修改窗体的事件代码如下：修改窗体的事件代码如下：Private Sub Form_Resize()With Text1 Left=0 Top=Picture1.Height Height=Form1.ScaleHeight-Picture1.Height Width=Form1.ScaleWidth End WithEnd Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计编写命令按钮数组编写命令按钮数组Command1()的的Click事件代码如下：事件代码如下：Private Sub Command1_Click(index As Inte
50、ger)File_Click(index)End Sub编写复选框数组编写复选框数组Check1()的事件代码如下：的事件代码如下：Private Sub Check1_Click(index As Integer)Edi_Click(index)End Sub第四章第四章 菜单与工具栏设计菜单与工具栏设计4.2.1 任务一任务一 使用使用ToolBar控件控件 使用使用ToolBar控件和控件和ImageList控件来创建工具控件来创建工具栏非常容易且很方便。在使用这些控件前必须打栏非常容易且很方便。在使用这些控件前必须打开开“部件部件”对话框，选择对话框，选择Microsoft Windo
