重拾VB66：有关菜单

来自MSDN-2001-OCT: Visual Tools and Languages/Visual Studio 6.0 Documentation/Visual Basic Documentation/Using Visual Basic/Programmer’s Guide/Part 2: What Can You Do With Visual Basic/Creating a User Interface/Using Menus in Your Application

一、用菜单编辑器创建菜单

（1）从“工具”菜单上，选取“菜单编辑器”。- 或者 -在“工具栏”上单击“菜单编辑器”按钮。

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

（3）菜单控件列表框（位于菜单编辑器的下部）列出当前窗体的所有菜单控件。当在标题文本框中键入一个菜单项时，该项也会出现在菜单控件列表框中。从列表框中选取一个已存在的菜单控件可以编辑该控件的属性。

（4）菜单控件在菜单控件列表框中的位置决定了该控件是菜单标题、菜单项、子菜单标题，还是子菜单项：

位于列表框中左侧平齐的菜单控件作为菜单标题显示在菜单栏中。

列表框中被缩进过的菜单控件，当单击其前导的菜单标题时才会在该菜单上显示。

一个缩进过的菜单控件，如果后面还紧跟着再次缩进的一些菜单控件，它就成为一个子菜单的标题。在子菜单标题以下缩进的各个菜单控件，就成为该子菜单的菜单项。

一个以连字符 (-) 作为它的 Caption 属性的菜单控件，作为一个分隔符条出现。分隔符条可把菜单项划分成若干个逻辑组。

注意 如果菜单控件是一个菜单标题、带有子菜单项、被复选或无效、或者有一个快捷键，那么它就不能作为分隔符条。

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

二、访问键、快捷键、菜单命名约定

（1）访问键允许按下 ALT 键并打入一个指定字符来打开一个菜单。一旦菜单打开，通过按下所赋值的字符（访问键）可选取控件。例如，按下 ALT + E 键可打开“编辑”菜单，再按 P 键可选取“粘贴”菜单项。在菜单控件的标题中，一个指定的访问键表现为一个带下划线的字母。指定的方法是：在其“标题”框中，在要作为访问键字符的前面直接键入一个 (&) 字符。

注意 菜单中不能使用重复的访问键。如果多个菜单项使用同一个访问键，则该键将不起作用。例如，如果 C 同时是“剪切”和“复制”的访问键，那么，当选取“编辑”菜单且键入 C 时，则“复制”命令将被选，但只有按下 ENTER 键以后，应用程序才会执行该命令。而“剪切”命令根本不会执行。

访问字符应当是菜单标题的第一个字母，除非别的字符更易记；两个菜单标题不能用同一个访问字符。

（2）快捷键按下时会立刻运行一个菜单项。可以为频繁使用的菜单项指定一个快捷键，它提供一种键盘单步的访问方法，而不是按住 ALT 键、再按菜单标题访问字符，然后再按菜单项访问字符的三步方法。

（3）如果命令在完成之前还需要附加信息，则在其名称后面应当有一个省略号（…），比如显示一个对话框的命令（“另存为…”,“首选项…”）。

（4）菜单命名约定：大多数命名约定规则都建议用前缀来标识对象（即，对菜单控件用 mnu），其后紧跟顶层菜单的名称（如 File）。对于子菜单，其后再紧跟该子菜单的标题（如 mnuFileOpen）。

三、可增长的菜单

（1）菜单控件数组就是在同一菜单上共享相同名称和事件过程的菜单项目的集合。菜单控件数组使用于：

在运行时要创建一个新菜单项，它必须是控件数组中的成员。如 MDI Notepad 示例，它就用一个菜单控件数组来存储新近打开的文件清单。

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

（2）每个菜单控件数组元素都由唯一的索引值来标识，该值在菜单编辑器上“Index 属性框”中指定。当一个控件数组成员识别一个事件时，Visual Basic 将其 Index 属性值作为一个附加的参数传递给事件过程。事件过程必须包含有核对 Index 属性值的代码，因而可以判断出正在使用的是哪一个控件。

（3）创建方法：

在“标题”文本框中，键入想出现在菜单栏中的第一个菜单标题的文本。 菜单标题文本显示在菜单控件列表框中。在“名称”文本框中，键入将在代码中用来引用菜单控件的名称。保持“索引”框是空的。

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

在第一个的同一缩进级上创建第二个菜单项。将第二个元素的“名称”设置成与第一个元素相同，且把它的“索引”设置为 1。对于数组中的后续元素重复步骤 5– 8。

重点 菜单控件数组的各元素在菜单控件列表框中必须是连续的，而且必须在同一缩进级上。创建菜单控件数组时，要把在菜单中出现的分隔符条也包括进去。

（4）运行时菜单可以增长。

运行时为了创建控件必须使用控件数组。因为设计时 mnuRecentFile 菜单控件的 Index 属性进行了赋值，它自动地成为控件数组的一个元素－即使还没有创建其它元素。

当创建 mnuRecentFile(0) 时，实际上创建了一个在运行时不可见的分隔符条。当运行时用户第一次存储一个文件时，这个分隔符条就会变得可见，且第一个文件名被加到该菜单上。运行时每存储一个文件，则会再装入一个菜单控件到该数组中，从而使该菜单增长。

运行时所创建的控件可以使用 Hide 方法或者设置该控件的 Visible 属性为 False 来隐藏。如果要从内存中删除一个控件数组中的控件，请使用 Unload 语句。

（5）在 MDI 窗体或者 MDI 子窗体上的任何菜单控件，只要将其 WindowList 属性设置为 True，都可以用于显示打开子窗体的清单。在运行时，Visual Basic 自动管理与显示标题清单，并在当前正有焦点的标题旁边显示一个复选标志。另外，在窗口清单的上方自动放置一个分隔符条。

四、弹出式菜单

（1）为了显示弹出式菜单，可使用 PopupMenu 方法。例如：当用户用鼠标右键单击一个窗体时，以下的代码显示一个名为 mnuFile 的菜单。可用 MouseUp 或者 MouseDown 事件来检测何时单击了鼠标右键，虽然标准用法是使用 MouseUp 事件：

Private Sub Form_MouseUp (Button As Integer, Shift As _
Integer, X As Single, Y As Single)
If Button = 2 Then ' 检查是否单击了鼠标右键。
PopupMenu mnuFile ' 把文件菜单显示为一个弹出式菜单。
End If
End Sub

直到菜单中被选取一项或者取消这个菜单时，调用 PopupMenu 方法后面的代码才会运行。

注意 每次只能显示一个弹出式菜单。在已显示一个弹出式菜单的情况下，对后面的调用 PopupMenu 方法将不予理睬。在一个菜单控件正活动的任何时刻，调用 PopupMenu 方法均不会被理睬。

（2）常常会想用一个弹出式菜单来访问那些在菜单栏中不常用的选项。为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（保证在菜单编辑器里的“Visible”复选框没有被选上）。当 Visual Basic 显示一个弹出式菜单时，指定的顶级菜单的 Visible 属性会被忽略。

（3）在 PopupMenu 方法中使用 flags 参数可以进一步定义弹出式菜单的位置与性能。想要指定一个标志，从每组中选取一个常数，再用 Or 操作符将它们连起来。

使用 boldcommand 参数来指定在显示的弹出式菜单中想以粗体字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。

五、菜单的属性

（1）所有的菜单控件都具有 Enabled 属性，当这个属性设为 False 时，菜单命令无效使它不响应动作。

（2）使用 Checked 属性，可以把一个复选标志放置在菜单上

（3）在菜单编辑器中，通过选取被标记为 Visible 的复选框，可以设置菜单控件的 Visible 属性的初值。在运行时，要使一个菜单控件可见或不可见，可以从代码中设置其 Visible 属性。注意 使菜单控件不可见也产生使之无效的作用，因为该控件通过菜单、访问键或者快捷键都再无法访问。如果菜单标题不可见，则该菜单上所有控件均无效。