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 下拉菜单的设计
项。 • 注意：菜单控件数组中的各个元素在菜单项显示区中必须是连
续的，而且必须是在同一缩进级上。若含有分隔条，则它也要 作为数组元素包含到菜单控件数组中。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
• Private Sub js_Click(Index As Integer) • Select Case Index • Case 1 • Label1.Caption = js(Index).Caption • Text3.Text = Val(Text1.Text) + Val(Text2.Text) • Case 2 • Label1.Caption = js(Index).Caption • Text3.Text = Val(Text1.Text) - Val(Text2.Text) • Case 3 • Label1.Caption = js(Index).Caption • Text3.Text = Val(Text1.Text) * Val(Text2.Text) • Case 4 • Label1.Caption = js(Index).Caption • Text3.Text = Val(Text1.Text) / Val(Text2.Text) • End Select • End Sub
（2）前面有一个内缩符号（….）的菜单控件是前导菜单 标题的菜单项。
（3）前面有二个内缩符号（……..）的菜单控件是前导菜 单项的子菜单项，前导菜单项又称为子菜单标题。依此类 推。
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
3. 编辑区 编辑区用来对当前选中的菜单控件进行编辑。 （1）←、→：取消或产生内缩符号，从而改变菜单控件在
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
创建弹出式菜单
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
创建弹出式菜单
• 按Ctrl+E键，弹出菜单编辑器。在那里面可以编辑菜单。 标题：等同于Command的Caption属性，就是用来显示菜 单上的文字。 名称：等同于Command的Nane属性,指定菜单的名称。 索引：菜单数组的下标。 复选：以复选框的样式显示菜单。 有效：Enabled 可见：Visible 先输入菜单第一项的标题"文件"和名称"file"，按你的要求 ，程序运行时不显示，那么就把它的"可见"勾上。 再输入菜单第二项的标题"打开"和名称"open",因为它是在 "文件"菜单的下一级,所以按一下"→按钮" 最后输入菜单第三项的标题"保存"和名称"save",不用按按 "→按钮".确定完成菜单的编辑.
菜 单 控 件 区
编辑区 菜 单 项 显 示 区
金品质•高追求 我们让你更放心！
返回
◆语文•选修\中国小说欣赏•(配人教版)◆
10.1.2 菜单编辑器
1. 菜单控件区
菜单控件区用来设置菜单控件的属性。
（1）标题：设置菜单控件的Caption属性，其值是显示在菜 单中的文本。如果要在菜单中加入一条分隔线，则只需输 入减号（-）即可；如果要为菜单控件指定访问键，则在 作为访问键的字符前面加一个“&”字符。程序运行时该字 符下端会出现下划线，使用Alt+字符即可打开菜单或执行 相应的菜单命令。
• 菜单控件数组中的每个元素都由唯一的索引值来标识，索引值 由Index属性确定。
• Index属性值可以从菜单编辑器的“索引”文本框来指定。 • 当菜单控件数组的某个元素识别Click事件时，系统将其索引值
作为参数传递给Click事件过程。 • Click事件过程根据传进来的索引值判断出选中的是哪一个菜单