VB菜单和窗体

（5）复选：设置菜单控件的Checked属性，决定是否在菜单 控件前面出现复选标记（√），以便表示菜单控件的开／ 关状态。
（6）有效：设置菜单控件的Enabled属性，决定菜单控件是 否可用。如果清除“有效”复选框，则Enabled属性值为 False，此时相应的菜单控件将变成无效，以灰色显示。 它既不能响应Click事件，也无法用快捷键访问。如果某 一菜单标题无效，则其下的所有菜单项都将无效。
• [对象名.]表示要显示弹出式菜单的窗体名称，默认为当 前窗体。
• 参数<菜单>是要显示的弹出式菜单名称。 • 参数flags定义弹出式菜单的位置，可指明位置常数与行
为常数。位置常数和行为常数分别如表10-1-3和表10-1-4 所示。如果要同时指定这两个常数，可用逻辑运算符or进 行组合，如4 or 2。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
2. 菜单项显示区
菜单项显示区列有当前窗体的所有菜单控件，并通过它们 所在的位置显示出对应的层次关系。可通过鼠标单击选中 某个菜单控件，此时上端的菜单控件区显示的即为该菜单 控件的对应属性。
（1）位于列表框中与左侧边框平齐的菜单控件将作为菜 单标题显示在菜单条中。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.4 弹出式菜单
（4）参数x 与y定义弹出式菜单相对于指定
窗体的显示位置。若省略，则显示在鼠标 指针的当前位置。
（5）参数boldcommand用于指定在弹出式 菜单中要以粗体显示的菜单控件的名称。若 省略，则菜单中没有以粗体显示的菜单控 件。
• E金nd 品Sub质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.3 下拉菜单的设计
（3）编写Click事件过程：如果希望单击某个菜单项就可以 执行对应的操作，需要编写菜单控件的Click事件过程， 这是除分隔条以外其它菜单控件唯一可以识别的动作。当 用户单击菜单标题时，通常是将其下的菜单项显示出来， 所以可以不必为菜单标题的Click事件过程编写代码。 首先，关闭菜单编辑器，在窗体上显示所创建的菜单 。从窗体上选择一个菜单控件，将在代码编辑器中显示相 应的Click事件过程，等待输入程序代码。
（2）名称：设置菜单控件的Name属性，在程序代码中用于 访问该菜单控件。建议使用mnu作为前缀来标识是菜单控 件。
（3）索引：设置菜单控件数组中各元素的下标。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
（4）快捷键：设置快捷访问键，使用户在不打开菜单的情 况下就可以通过键盘操作实现同样的功能。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.4 弹出式菜单
弹出式菜单可以根据单击鼠标右键时的位置灵活改变 弹出的菜单内容，使用户操作更快捷，所以弹出式菜单又 称为快捷菜单。任何至少有一个菜单项的菜单，都可以在 运行时作为弹出式菜单来显示，弹出式菜单的设计也是使 用菜单编辑器，如果弹出式菜单不需要显示在菜单条中， 则需要将顶级菜单项设置成隐藏。创建弹出式菜单的步骤 如下： （1）使用菜单编辑器设计菜单。 （2）设置顶层菜单项为隐藏，即不选中菜单编辑器里的“ 可见”选项。
注意：显示弹出式菜单后，用户必须从菜单中
进行选择或者取消菜单，否则调用Popupmenu
方法后的代码不会执行。
金品质•高追求 我们让你更放心！
返回Βιβλιοθήκη ◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.5 菜单控件数组
• 与控件数组类似，菜单控件数组是指同一菜单上共享相同名字 与事件过程的一个或者多个菜单项。
可以通过以下几种方式启动菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器”命令。 （2）单击工具栏中的“菜单编辑器”按钮。 （3）在要建立菜单的窗体空白处右击鼠标，在快捷
菜单中选择“菜单编辑器”命令。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
◆语文•选修\中国小说欣赏•(配人教版)◆
第10章 菜单和工具栏
10.1 菜单设计 10.2 创建工具栏 10.3 Windows界面样式及创建SDI程序界
面 10.4 创建MDI程序界面
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1 菜单设计
10.1.1 10.1.2 10.1.3 10.1.4 10.1.5
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
创建弹出式菜单
• 调出菜单. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file
弹出式菜单又称为“上下文菜单”或“快捷菜单”，是 一种可以显示在窗体任何位置并独立于菜单栏的浮动式菜单 。一般通过在某一区域单击鼠标右键的方式激活特定的弹出 式菜单。鼠标单击的区域不同，弹出的菜单内容一般也不同 。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
【例10-1-1】
设计一个具有算术运算（＋、－、×、÷）及清除 功能的菜单。通过键盘输入两个数，利用菜单命令计 算出它们的和、差、积、商，并显示出来。要求每个 菜单命令都有对应的快捷键。
（1）设计用户界面
（2）菜单设计：根据题意，建立两个菜单标题，分别完 成设置和计算功能。“设置”菜单中含有清除和退出 两个菜单项；“计算”菜单中含有加法、减法、乘法 和除法四个菜单项。
菜单组成 菜单编辑器 下拉菜单的设计 弹出式菜单 菜单控件数组
金品质•高追求 我们让你更放心！
返回目录
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.1 菜单组成
在Windows环境下，菜单分为下拉式菜单和弹出式菜单 。
下拉式菜单的菜单条显示在窗体标题栏的下面，它含有 一个或者多个菜单标题。当单击某一菜单标题时，将打开一 个含有菜单项的列表。菜单项也可以是子菜单标题，当单击 子菜单标题时，将显示其下的子菜单项。分隔条用于将菜单 项按功能分组。
• ‘1为左键,2为右键 PopupMenu <菜单> …弹出菜单 End Sub
• 点击代码窗口中控件下拉列表,选择save 或 open 可以 对它们进行事件的编程
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.4 弹出式菜单
（ 3 ） 编 写 与 弹 出 式 菜 单 相 关 联 的 MouseUp( 释 放 鼠 标 ) 或 MouseDown( 按 下 鼠 标 ) 事 件 过 程 。 其 中 必 须 使 用 PopupMenu方法，PopupMenu方法语法格式为： [对象名.]PopupMenu <菜单>, flags,x,y,boldcommand
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
（7）可见：设置菜单控件的Visible属性，决定菜 单控件是否可见。如果清除“可见”复选框，则 Visible属性值为False，该菜单控件不可见。当菜 单控件不可见时，菜单中的其余控件会上移以填 补空出的位置；如果控件位于菜单条上，则菜单 条上其余的控件会左移以填补相应的空间。菜单 控件不可见时，还会导致其无效；如果菜单标题 不可见，则其下的所有菜单项均无效。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
• Private Sub cheng_Click() • Label1.Caption = cheng.Caption • Text3.Text = Val(Text1.Text) * Val(Text2.Text) • End Sub • Private Sub chu_Click() • Label1.Caption = chu.Caption • Text3.Text = Val(Text1.Text) / Val(Text2.Text) • End Sub • Private Sub jia_Click() • Label1.Caption = jia.Caption • Text3.Text = Val(Text1.Text) + Val(Text2.Text) • End Sub • Private Sub jian_Click() • Label1.Caption = jian.Caption • Text3.Text = Val(Text1.Text) - Val(Text2.Text)
菜单中的层次级别。 （2）↑、↓：改变菜单控件在菜单中的位置。 （3）下一个：选中当前菜单控件的下一个菜单控件。 （4）插入：在当前菜单控件的上方加入一个新的菜单控件
。 （5）删除：删除当前选中的菜单控件。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.3 下拉菜单的设计
项。 • 注意：菜单控件数组中的各个元素在菜单项显示区中必须是连
续的，而且必须是在同一缩进级上。若含有分隔条，则它也要 作为数组元素包含到菜单控件数组中。
金品质•高追求 我们让你更放心！
返回