第10章菜单与工具栏

第10章菜单与工具栏10.1 使用菜单如果应用程序要为用户提供一组命令，菜单提供一种方便的给命令分组的方法，并使用户容易访问这些命令。

10.1.1 下拉式菜单下拉式菜单的组成情况如图所示。

菜单栏——在窗体的标题栏下面，并包含一个或多个菜单标题。

菜单标题——菜单显示的名称（如“文件”），也称为主菜单。

当单击一个菜单标题时，包含菜单项目的列表就被拉下来。

菜单项——即可菜单命令，可以包括命令（如“新建”和“退出”）、分隔条、和子菜单标题。

◇用户看到的每个菜单项和在“菜单编辑器”中定义的一个菜单控件对应。

◇菜单控件是一个对象，与其它对象一样，它具有定义它的外观与行为的属性。

在设计或运行时可以设置 Caption 属性、Enabled 和 Visible 属性、Checked 属性以及其它属性。

◇菜单控件只包含一个事件，即 Click 事件，当用鼠标或键盘选中该菜单控件时，将调用该事件。

1．菜单的设计——菜单编辑器在VB中用菜单编辑器可以方便地创建新的菜单和菜单栏、在已有的菜单上增加新命令、用自己的命令来替换已有的菜单命令、以及修改和删除已有的菜单和菜单栏。

⑴进入菜单编辑器的途径◆从“工具”菜单上，选取“菜单编辑器”；◆或者在“工具栏”上单击“菜单编辑器”按钮；◆或者在窗体上单击右键，在随后弹出的快捷菜单中选择“菜单编辑器”命令；◆还可以按热键“Ctrl+E”，都会出现如上图所示的窗口，菜单设计将通过这个窗口来完成。

⑵菜单控属性的设置大多数菜单控件属性可用菜单编辑器设置，所有的菜单属性在“属性”窗口中也都是可用的。

其中在菜单设计中最主要的属性是：Name——名称，这是代码中用来引用菜单控件的名字。

Caption——标题，这是出现在控件上的文本。

⑷在菜单编辑器中创建菜单控件的步骤：①选取该窗体。

②从“工具”菜单中，选取“菜单编辑器”，或者在“工具栏”上单击“菜单编辑器”按钮进入菜单编辑器。

③在“标题”文本框中，为第一个菜单标题键入希望在菜单栏上显示的文本。

如果希望某一字符成为该菜单项的访问键，也可以在该字符前面加上一个(&)字符。

在菜单中，这一字符会自动加上一条下划线，操作时同时按Alt键和带有下划线的字母可选择这个菜单项。

菜单标题文本显示在菜单控件列表框中。

④在“名称”文本框中，键入将用来在代码中引用该菜单控件的名字。

⑤单击向左或向右箭头按钮（→，←），可以改变该控件的缩进级（菜单级）。

⑥如果需要的话，还可以设置控件的其他属性。

这一工作可以在菜单编辑器做或以后在“属性”窗口中做。

⑦选取下一个(Next)就可以再建一个菜单项(控件)。

或者: 单击插入(Insert)可以在现有的控件之间增加一个菜单项(控件)⑧也可以单击向上与向下的箭头按钮，在现有菜单控件之中移动控件。

如果窗体所有的菜单控件都已创建，选取“确定”可关闭菜单编辑器。

创建的菜单标题将显示在窗体上。

在设计时，单击一个菜单标题可下拉其相应的菜单项。

⑸在菜单编辑器中创建分隔符条的步骤①如果想在一现有菜单中增加一个分隔符条，选取“插入”，在想要分隔开来的菜单项之间插入一个菜单控件。

②如有必要，单击右箭头按钮使新菜单项缩进到与它要隔开的菜单项同级。

③在“标题”文本框中键入一个连字符”-“。

④设置“名称”属性。

注意：虽然分隔符条是当作菜单控件来创建的，它们却不能响应 Click 事件，而且也不能被选取。

⑹菜单设计中的一些编辑操作在菜单设计过程中，经常需要对菜单控件进行一些编辑操作或设置其它一些属性。

①快捷键(Shortcut)下拉列表：在此列表框中列出了很多快捷键供用户为相应的菜单项选择一个快捷键,选择之后快捷键会显示在菜单标题的右边。

当然也可以不选择快捷键。

②删除(Delete)按钮：删除选定的菜单项。

③复选(Checked)检查框：为选择的菜单项标记“√”，表示该菜单项是一个选项。

④有效(Enabled)检查框：决定该菜单项是否为可选(有效)项。

⑤可见(Visible)检查框：决定该菜单项是否可见。

2．菜单设计示例(p210-1.vbp)编写完成加、减、乘、除运算的程序。

⑴建立控件在窗体上安放6个控件，其属性如下表：⑵设计菜单进入菜单编辑器完成菜单设计，各菜单项的属性如下表：当完成所有菜单设计的输入工作后，菜单设计窗口如左图所示，这时选择“确定”命令，就完成了整个菜单的建立工作。

菜单运行情况如下图所示。

⑶编写事件过程在窗体上分别点击菜单项，为各菜单项编写相应的事件过程：Private Sub Add_Click() ‘加法事件过程x = Val(txtNo1.Text) + Val(txtNo2.Text)lblDisplayResult.Caption = Str(x)End SubPrivate Sub Sub_Click()‘减法事件过程x = Val(txtNo1.Text) - Val(txtNo2.Text)lblDisplayResult.Caption = Str(x)End SubPrivate Sub Div_Click() ‘除法事件过程x = Val(txtNo1.Text) / Val(txtNo2.Text)lblDisplayResult.Caption = Str(x)End SubPrivate Sub Mul_Click() ‘乘法事件过程x = Val(txtNo1.Text) * Val(txtNo2.Text)lblDisplayResult.Caption = Str(x)End SubPrivate Sub Clean_Click()‘清除事件过程txtNo1.Text = ""txtNo2.Text = ""lblDisplayResult.Caption = ""txtNo1.SetFocus ‘控制权转移到txtNo1文本框上End SubPrivate Sub Quit_Click() ‘结束事件过程EndEnd Sub3. 菜单控件数组菜单控件数组就是在同一菜单上共享相同名称和事件过程的菜单项目的集合。

菜单控件数组使用于：∙在运行时要创建一个新菜单项，它必须是控件数组中的成员。

∙简化代码，因为通用代码块可以被所有菜单项使用。

每个菜单控件数组元素都由唯一的索引值来标识，该值在菜单编辑器上“Index 属性框”中指定。

当一个控件数组成员识别一个事件时，Visual Basic 将其Index 属性值作为一个附加的参数传递给事件过程。

事件过程必须包含有核对Index 属性值的代码，因而可以判断出正在使用的是哪一个控件。

菜单编辑器中创建菜单控件数组的步骤：⑴选取窗体。

⑵从“工具”菜单中，选取“菜单编辑器”。

或在“工具栏”上单击“菜单编辑器”按钮。

⑶在“标题”文本框中，键入想出现在菜单栏中的第一个菜单标题的文本。

菜单标题文本显示在菜单控件列表框中。

⑷在“名称”文本框中，键入将在代码中用来引用菜单控件的名称(不能与下面的菜单控件数组同名)。

保持“索引”框是空的。

⑸在下一个缩进级，通过设定“标题”和“名称”来创建将成为数组中第一个元素的菜单项。

⑹将数组中第一个元素的“索引”设置为0。

⑺在第一个的同一缩进级上创建第二个菜单项。

⑻将第二个元素的“名称”设置成与第一个元素相同，且把它的“索引”设置为1。

⑼对于数组中的后续元素重复步骤⑸–⑻。

注意：菜单控件数组的各元素在菜单控件列表框中必须是连续的，而且必须在同一缩进级上。

创建菜单控件数组时，要把在菜单中出现的分隔符条也包括进去。

[例10-2]（p213-1.vbp）文本编辑器。

对[例9-2]进行修改。

⑴将公共对话框控件移至窗体上，删去图片框及上面的按钮⑵打开菜单编辑器，按P213表10-4设置菜单项，注意Index的设置，这里建立了两个菜单项数组。

⑶菜单项数组File的Click的事件过程可直接用[例9-2]的事件过程。

编写菜单项数组Edi的Click事件过程：Private Sub Edi_Click(Index As Integer)Select Case IndexCase 0 '剪切Clipboard.SetText txtNoteEdit.SelText ‘将文本框中的文本放入系统剪贴板txtNoteEdit.SelText = ""Case 1 '复制Clipboard.SetText txtNoteEdit.SelTextCase 2 '粘贴txtNoteEdit.SelText = Clipboard.GetText()‘把系统剪贴板中的内容赋值给文本框Case 3 '删除txtNoteEdit.SelText = ""End SelectEnd Sub4．菜单项的可用与不可用利用菜单项的Visible属性，可以控制菜单项可用或不可用。

[例10-3](p214-1.vbp)对上例进行改进，当选中文本时，编辑操作可用，否则不能用。

在上例基础上增加一个主菜单项Edit的Click事件过程：P rivate Sub Edit_Click()Edi(0).Enabled = IIf(txtNoteEdit.SelLength = 0, False, True)Edi(1).Enabled = IIf(txtNoteEdit.SelLength = 0, False, True)Edi(3).Enabled = IIf(txtNoteEdit.SelLength = 0, False, True)End Sub10.1.2 弹出菜单弹出式菜单——即快捷菜单，是独立于菜单栏而显示在窗体上的浮动菜单。

在弹出式菜单上显示的项目取决于按下鼠标右键时指针所处的位置；因而，弹出式菜单也被称为上下文菜单。

在 Microsoft Windows 98 /2000中，可以通过单击鼠标右键来激活上下文菜单。

在运行时，至少含有一个菜单项的任何菜单都可以作为弹出式菜单被显示。

为了显示弹出式菜单，可使用PopupMenu 方法。

这个方法使用的语法格式如下：object：可选的。

一个对象表达式，其值为列表中的一个对象。

如果省略 object，则带有焦点的 Form 对象缺省为 object。

menuname：必需的。

要显示的弹出式菜单名。

指定的菜单必须含有至少一个子菜单。

也可以是菜单控件数组的上层菜单名flags：可选的。

一个数值或常数，用以指定弹出式菜单的位置和行为。

x:可选的。

指定显示弹出式菜单的 x 坐标。

如果该参数省略，则使用鼠标的坐标。

y:可选的。

指定显示弹出式菜单的 y 坐标。

如果该参数省略，则使用鼠标的坐标。