VB菜单和窗体
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第10章 菜单和工具栏 章
10.1 10.2 10.3 面 10.4 菜单设计 创建工具栏 Windows界面样式及创建 界面样式及创建SDI程序界 界面样式及创建 程序界 创建MDI程序界面 程序界面 创建
10.1 菜单设计
10.1.1 10.1.2 10.1.3 10.1.4 10.1.5 菜单组成 菜单编辑器 下拉菜单的设计 弹出式菜单 菜单控件数组
10.1.2 菜单编辑器
2. 菜单项显示区 菜单项显示区列有当前窗体的所有菜单控件，并通过它 们所在的位置显示出对应的层次关系。可通过鼠标单 击选中某个菜单控件，此时上端的菜单控件区显示的 即为该菜单控件的对应属性。 （1）位于列表框中与左侧边框平齐的菜单控件将作为 菜单标题显示在菜单条中。 （2）前面有一个内缩符号（….）的菜单控件是前导 菜单标题的菜单项。 （3）前面有二个内缩符号（……..）的菜单控件是前导 菜单项的子菜单项，前导菜单项又称为子菜单标题。 依此类推。
10.1.2 菜单编辑器
（7）可见：设置菜单控件的Visible属性，决定 菜单控件是否可见。如果清除“可见”复选框， 则Visible属性值为False，该菜单控件不可见。 当菜单控件不可见时，菜单中的其余控件会上 移以填补空出的位置；如果控件位于菜单条上， 则菜单条上其余的控件会左移以填补相应的空 间。菜单控件不可见时，还会导致其无效；如 果菜单标题不可见，则其下的所有菜单项均无 效。
10.1.4 弹出式菜单
（4）参数x 与y定义弹出式菜单相对于指定 窗体的显示位置。若省略，则显示在鼠标 指针的当前位置。 （5）参数boldcommand用于指定在弹出式菜 单中要 以粗体显示的菜单控件的名称 。若省 略，则菜单中没有以粗体显示的菜单控件。
注意：显示弹出式菜单后， 注意：显示弹出式菜单后，用户必须从菜单中 进行选择或者取消菜单，否则调用Popupmenu 进行选择或者取消菜单，否则调用Popupmenu 方法后的代码不会执行。 方法后的代码不会执行。
10.1.4 弹出式菜单
弹出式菜单可以根据单击鼠标右键时的位置灵活改 变弹出的菜单内容，使用户操作更快捷，所以弹出式 菜单又称为快捷菜单。任何至少有一个菜单项的菜单， 都可以在运行时作为弹出式菜单来显示，弹出式菜单 的设计也是使用菜单编辑器，如果弹出式菜单不需要 显示在菜单条中，则需要将顶级菜单项设置成隐藏。 创建弹出式菜单的步骤如下： 创建弹出式菜单的步骤如下： 使用菜单编辑器设计菜单。 （1）使用菜单编辑器设计菜单。 设置顶层菜单项为隐藏， （2）设置顶层菜单项为隐藏，即不选中菜单编辑器里的 可见”选项。 “可见”选项。
10.1.4 弹出式菜单
（3）编写与弹出式菜单相关联的MouseUp( 释放鼠标 ) 或 MouseUp( 释放鼠标) MouseDown( 按 下 鼠 标 ) 事 件 过 程 。 其 中 必 须 使 用 PopupMenu方法，PopupMenu方法语法格式为： [对象名.]PopupMenu <菜单>, flags,x,y,boldcommand 对象名.]PopupMenu <菜单 菜单>, • [对象名.]表示要显示弹出式菜单的窗体名称，默认为 对象名. 当前窗体。 • 参数<菜单>是要显示的弹出式菜单名称。 <菜单> • 参数flags flags定义弹出式菜单的位置，可指明位置常数与 行为常数。位置常数和行为常数分别如表10-1-3和表 10-1-4所示。如果要同时指定这两个常数，可用逻辑 运算符or进行组合，如4 or 2。
10.1.5 菜单控件数组
• 与控件数组类似，菜单控件数组是指同一菜单上共享相同 名字与事件过程的一个或者多个菜单项。 • 菜单控件数组中的每个元素都由唯一的索引值来标识，索 引值由Index属性确定。 • Index属性值可以从菜单编辑器的“索引”文本框来指定。 • 当菜单控件数组的某个元素识别Click事件时，系统将其索 引值作为参数传递给Click事件过程。 • Click事件过程根据传进来的索引值判断出选中的是哪一个 菜单项。 • 注意：菜单控件数组中的各个元素在菜单项显示区中必须 注意： 是连续的，而且必须是在同一缩进级上。若含有分隔条， 是连续的，而且必须是在同一缩进级上。若含有分隔条， 则它也要作为数组元素包含到菜单控件数组中。 则它也要作为数组元素包含到菜单控件数组中。
10.1.2 菜单编辑器
3. 编辑区 编辑区用来对当前选中的菜单控件进行编辑。 （1）←、→：取消或产生内缩符号，从而改变菜单控件 在菜单中的层次级别。 （2）↑、↓：改变菜单控件在菜单中的位置。 （3）下一个：选中当前菜单控件的下一个菜单控件。 （4）插入：在当前菜单控件的上方加入一个新的菜单控 件。 （5）删除：删除当前选中的菜单控件。
• • • • • • • • • • • • • • • •
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) End Sub
创建弹出式菜单
创建弹出式菜单
• 按Ctrl+E键，弹出菜单编辑器。在那里面可以编辑菜单。 标题：等同于Command的Caption属性，就是用来显示 菜单上的文字。 名称：等同于Command的Nane属性,指定菜单的名称。 索引：菜单数组的下标。 复选：以复选框的样式显示菜单。 有效：Enabled 可见：Visible 先输入菜单第一项的标题"文件"和名称"file"，按你的 要求，程序运行时不显示，那么就把它的"可见"勾上。 再输入菜单第二项的标题"打开"和名称"open",因为它 是在"文件"菜单的下一级,所以按一下"→按钮" 最后输入菜单第三项的标题"保存"和名称"save",不用按 按"→按钮".确定完成菜单的编辑.
10.1.3 下拉菜单的设计
【例10-1-1】 设计一个具有算术运算（＋、－、×、÷）及清除 功能的菜单。通过键盘输入两个数，利用菜单命令计 算出它们的和、差、积、商，并显示出来。要求每个 菜单命令都有对应的快捷键。 （1）设计用户界面 （2）菜单设计：根据题意，建立两个菜单标题，分别完 成设置和计算功能。“设置”菜单中含有清除和退出 两个菜单项；“计算”菜单中含有加法、减法、乘法 和除法四个菜单项。
10.1.2 菜单编辑器
可以通过以下几种方式启动菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器”命 令。 （2）单击工具栏中的“菜单编辑器”按钮。 （3）在要建立菜单的窗体空白处右击鼠标，在 快捷菜单中选择“菜单编辑器”命令。
10.1.2 菜单编辑器
菜 单 控 件 区
编辑 菜 单 项 显 示 区
10.1.2 菜单编辑器
（4）快捷键：设置快捷访问键，使用户在不打开菜单的 情况下就可以通过键盘操作实现同样的功能。 （5）复选：设置菜单控件的Checked属性，决定是否在 菜单控件前面出现复选标记（√），以便表示菜单控 件的开／关状态。 （6）有效：设置菜单控件的Enabled属性，决定菜单控 件是否可用。如果清除“有效”复选框，则Enabled属 性值为False，此时相应的菜单控件将变成无效，以灰 色显示。它既不能响应Click事件，也无法用快捷键访 问。如果某一菜单标题无效，则其下的所有菜单项都 将无效。
10.2 创建工具栏
10.2.1 10.2.2 ImageList控件 ImageList控件 ToolBar控件 ToolBar控件
返回目录
10.2.1 ImageList控件
要 在 窗 口 中 加 入 工 具 栏 ， 需 要 用 到 ToolBar 控 件 和 ImageList控件。通常情况下，这两个控件并没有显示在工具 箱中，需要用户手动将它们添加到工具箱中。方法如下： （1）从“工程”菜单中选取“部件”命令，打开“部件”对话 框。 （2） 在 “ 部件 ” 对话 框的 “ 控件 ” 选 项卡 中 ， 选 中 “ Microsoft Windows Common Controls 6.0” ， 使它前面的复选框中出现 “√”，如图10-2-1所示。 （3）单击“确定”按钮，此时一些常用控件就被加入到工具 箱中，其中包括ToolBar控件和ImageList控件。 ToolBar控件和 控件和ImageList控件 控件。
10.1.3 下拉菜单的设计
（3）编写Click事件过程：如果希望单击某个菜单项就 可以执行对应的操作，需要编写菜单控件的Click事件 过程，这是除分隔条以外其它菜单控件唯一可以识别 的动作。当用户单击菜单标题时，通常是将其下的菜 单项显示出来，所以可以不必为菜单标题的Click事件 过程编写代码。 首先，关闭菜单编辑器，在窗体上显示所创建的 菜单。从窗体上选择一个菜单控件，将在代码编辑器 中显示相应的Click事件过程，等待输入程序代码。
10.1.2 菜单编辑器
1. 菜单控件区 菜单控件区用来设置菜单控件的属性。 （1）标题：设置菜单控件的Caption属性，其值是显示 在菜单中的文本。如果要在菜单中加入一条分隔线， 则只需输入减号（-）即可；如果要为菜单控件指定访 问键，则在作为访问键的字符前面加一个“&”字符。 程序运行时该字符下端会出现下划线，使用Alt+字符 即可打开菜单或执行相应的菜单命令。 （2）名称：设置菜单控件的Name属性，在程序代码中用 于访问该菜单控件。建议使用mnu作为前缀来标识是菜 单控件。 （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
返回目录
Biblioteka Baidu
10.1.1 菜单组成
在Windows环境下，菜单分为下拉式菜单和弹出式菜单。 下拉式菜单的菜单条显示在窗体标题栏的下面，它含有一 个或者多个菜单标题。当单击某一菜单标题时，将打开一个 含有菜单项的列表。菜单项也可以是子菜单标题，当单击子 菜单标题时，将显示其下的子菜单项。分隔条用于将菜单项 按功能分组。 弹出式菜单又称为“上下文菜单”或“快捷菜单”，是 一种可以显示在窗体任何位置并独立于菜单栏的浮动式菜单。 一般通过在某一区域单击鼠标右键的方式激活特定的弹出式 菜单。鼠标单击的区域不同，弹出的菜单内容一般也不同。
创建弹出式菜单
• 调出菜单. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file • ‘1为左键 为右键 PopupMenu <菜单 …弹出菜单 为左键,2为右键 菜单> 弹出菜单 为左键 菜单 End Sub • 点击代码窗口中控件下拉列表,选择save 或 open 可以对 它们进行事件的编程
10.1 10.2 10.3 面 10.4 菜单设计 创建工具栏 Windows界面样式及创建 界面样式及创建SDI程序界 界面样式及创建 程序界 创建MDI程序界面 程序界面 创建
10.1 菜单设计
10.1.1 10.1.2 10.1.3 10.1.4 10.1.5 菜单组成 菜单编辑器 下拉菜单的设计 弹出式菜单 菜单控件数组
10.1.2 菜单编辑器
2. 菜单项显示区 菜单项显示区列有当前窗体的所有菜单控件，并通过它 们所在的位置显示出对应的层次关系。可通过鼠标单 击选中某个菜单控件，此时上端的菜单控件区显示的 即为该菜单控件的对应属性。 （1）位于列表框中与左侧边框平齐的菜单控件将作为 菜单标题显示在菜单条中。 （2）前面有一个内缩符号（….）的菜单控件是前导 菜单标题的菜单项。 （3）前面有二个内缩符号（……..）的菜单控件是前导 菜单项的子菜单项，前导菜单项又称为子菜单标题。 依此类推。
10.1.2 菜单编辑器
（7）可见：设置菜单控件的Visible属性，决定 菜单控件是否可见。如果清除“可见”复选框， 则Visible属性值为False，该菜单控件不可见。 当菜单控件不可见时，菜单中的其余控件会上 移以填补空出的位置；如果控件位于菜单条上， 则菜单条上其余的控件会左移以填补相应的空 间。菜单控件不可见时，还会导致其无效；如 果菜单标题不可见，则其下的所有菜单项均无 效。
10.1.4 弹出式菜单
（4）参数x 与y定义弹出式菜单相对于指定 窗体的显示位置。若省略，则显示在鼠标 指针的当前位置。 （5）参数boldcommand用于指定在弹出式菜 单中要 以粗体显示的菜单控件的名称 。若省 略，则菜单中没有以粗体显示的菜单控件。
注意：显示弹出式菜单后， 注意：显示弹出式菜单后，用户必须从菜单中 进行选择或者取消菜单，否则调用Popupmenu 进行选择或者取消菜单，否则调用Popupmenu 方法后的代码不会执行。 方法后的代码不会执行。
10.1.4 弹出式菜单
弹出式菜单可以根据单击鼠标右键时的位置灵活改 变弹出的菜单内容，使用户操作更快捷，所以弹出式 菜单又称为快捷菜单。任何至少有一个菜单项的菜单， 都可以在运行时作为弹出式菜单来显示，弹出式菜单 的设计也是使用菜单编辑器，如果弹出式菜单不需要 显示在菜单条中，则需要将顶级菜单项设置成隐藏。 创建弹出式菜单的步骤如下： 创建弹出式菜单的步骤如下： 使用菜单编辑器设计菜单。 （1）使用菜单编辑器设计菜单。 设置顶层菜单项为隐藏， （2）设置顶层菜单项为隐藏，即不选中菜单编辑器里的 可见”选项。 “可见”选项。
10.1.4 弹出式菜单
（3）编写与弹出式菜单相关联的MouseUp( 释放鼠标 ) 或 MouseUp( 释放鼠标) MouseDown( 按 下 鼠 标 ) 事 件 过 程 。 其 中 必 须 使 用 PopupMenu方法，PopupMenu方法语法格式为： [对象名.]PopupMenu <菜单>, flags,x,y,boldcommand 对象名.]PopupMenu <菜单 菜单>, • [对象名.]表示要显示弹出式菜单的窗体名称，默认为 对象名. 当前窗体。 • 参数<菜单>是要显示的弹出式菜单名称。 <菜单> • 参数flags flags定义弹出式菜单的位置，可指明位置常数与 行为常数。位置常数和行为常数分别如表10-1-3和表 10-1-4所示。如果要同时指定这两个常数，可用逻辑 运算符or进行组合，如4 or 2。
10.1.5 菜单控件数组
• 与控件数组类似，菜单控件数组是指同一菜单上共享相同 名字与事件过程的一个或者多个菜单项。 • 菜单控件数组中的每个元素都由唯一的索引值来标识，索 引值由Index属性确定。 • Index属性值可以从菜单编辑器的“索引”文本框来指定。 • 当菜单控件数组的某个元素识别Click事件时，系统将其索 引值作为参数传递给Click事件过程。 • Click事件过程根据传进来的索引值判断出选中的是哪一个 菜单项。 • 注意：菜单控件数组中的各个元素在菜单项显示区中必须 注意： 是连续的，而且必须是在同一缩进级上。若含有分隔条， 是连续的，而且必须是在同一缩进级上。若含有分隔条， 则它也要作为数组元素包含到菜单控件数组中。 则它也要作为数组元素包含到菜单控件数组中。
10.1.2 菜单编辑器
3. 编辑区 编辑区用来对当前选中的菜单控件进行编辑。 （1）←、→：取消或产生内缩符号，从而改变菜单控件 在菜单中的层次级别。 （2）↑、↓：改变菜单控件在菜单中的位置。 （3）下一个：选中当前菜单控件的下一个菜单控件。 （4）插入：在当前菜单控件的上方加入一个新的菜单控 件。 （5）删除：删除当前选中的菜单控件。
• • • • • • • • • • • • • • • •
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) End Sub
创建弹出式菜单
创建弹出式菜单
• 按Ctrl+E键，弹出菜单编辑器。在那里面可以编辑菜单。 标题：等同于Command的Caption属性，就是用来显示 菜单上的文字。 名称：等同于Command的Nane属性,指定菜单的名称。 索引：菜单数组的下标。 复选：以复选框的样式显示菜单。 有效：Enabled 可见：Visible 先输入菜单第一项的标题"文件"和名称"file"，按你的 要求，程序运行时不显示，那么就把它的"可见"勾上。 再输入菜单第二项的标题"打开"和名称"open",因为它 是在"文件"菜单的下一级,所以按一下"→按钮" 最后输入菜单第三项的标题"保存"和名称"save",不用按 按"→按钮".确定完成菜单的编辑.
10.1.3 下拉菜单的设计
【例10-1-1】 设计一个具有算术运算（＋、－、×、÷）及清除 功能的菜单。通过键盘输入两个数，利用菜单命令计 算出它们的和、差、积、商，并显示出来。要求每个 菜单命令都有对应的快捷键。 （1）设计用户界面 （2）菜单设计：根据题意，建立两个菜单标题，分别完 成设置和计算功能。“设置”菜单中含有清除和退出 两个菜单项；“计算”菜单中含有加法、减法、乘法 和除法四个菜单项。
10.1.2 菜单编辑器
可以通过以下几种方式启动菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器”命 令。 （2）单击工具栏中的“菜单编辑器”按钮。 （3）在要建立菜单的窗体空白处右击鼠标，在 快捷菜单中选择“菜单编辑器”命令。
10.1.2 菜单编辑器
菜 单 控 件 区
编辑 菜 单 项 显 示 区
10.1.2 菜单编辑器
（4）快捷键：设置快捷访问键，使用户在不打开菜单的 情况下就可以通过键盘操作实现同样的功能。 （5）复选：设置菜单控件的Checked属性，决定是否在 菜单控件前面出现复选标记（√），以便表示菜单控 件的开／关状态。 （6）有效：设置菜单控件的Enabled属性，决定菜单控 件是否可用。如果清除“有效”复选框，则Enabled属 性值为False，此时相应的菜单控件将变成无效，以灰 色显示。它既不能响应Click事件，也无法用快捷键访 问。如果某一菜单标题无效，则其下的所有菜单项都 将无效。
10.2 创建工具栏
10.2.1 10.2.2 ImageList控件 ImageList控件 ToolBar控件 ToolBar控件
返回目录
10.2.1 ImageList控件
要 在 窗 口 中 加 入 工 具 栏 ， 需 要 用 到 ToolBar 控 件 和 ImageList控件。通常情况下，这两个控件并没有显示在工具 箱中，需要用户手动将它们添加到工具箱中。方法如下： （1）从“工程”菜单中选取“部件”命令，打开“部件”对话 框。 （2） 在 “ 部件 ” 对话 框的 “ 控件 ” 选 项卡 中 ， 选 中 “ Microsoft Windows Common Controls 6.0” ， 使它前面的复选框中出现 “√”，如图10-2-1所示。 （3）单击“确定”按钮，此时一些常用控件就被加入到工具 箱中，其中包括ToolBar控件和ImageList控件。 ToolBar控件和 控件和ImageList控件 控件。
10.1.3 下拉菜单的设计
（3）编写Click事件过程：如果希望单击某个菜单项就 可以执行对应的操作，需要编写菜单控件的Click事件 过程，这是除分隔条以外其它菜单控件唯一可以识别 的动作。当用户单击菜单标题时，通常是将其下的菜 单项显示出来，所以可以不必为菜单标题的Click事件 过程编写代码。 首先，关闭菜单编辑器，在窗体上显示所创建的 菜单。从窗体上选择一个菜单控件，将在代码编辑器 中显示相应的Click事件过程，等待输入程序代码。
10.1.2 菜单编辑器
1. 菜单控件区 菜单控件区用来设置菜单控件的属性。 （1）标题：设置菜单控件的Caption属性，其值是显示 在菜单中的文本。如果要在菜单中加入一条分隔线， 则只需输入减号（-）即可；如果要为菜单控件指定访 问键，则在作为访问键的字符前面加一个“&”字符。 程序运行时该字符下端会出现下划线，使用Alt+字符 即可打开菜单或执行相应的菜单命令。 （2）名称：设置菜单控件的Name属性，在程序代码中用 于访问该菜单控件。建议使用mnu作为前缀来标识是菜 单控件。 （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
返回目录
Biblioteka Baidu
10.1.1 菜单组成
在Windows环境下，菜单分为下拉式菜单和弹出式菜单。 下拉式菜单的菜单条显示在窗体标题栏的下面，它含有一 个或者多个菜单标题。当单击某一菜单标题时，将打开一个 含有菜单项的列表。菜单项也可以是子菜单标题，当单击子 菜单标题时，将显示其下的子菜单项。分隔条用于将菜单项 按功能分组。 弹出式菜单又称为“上下文菜单”或“快捷菜单”，是 一种可以显示在窗体任何位置并独立于菜单栏的浮动式菜单。 一般通过在某一区域单击鼠标右键的方式激活特定的弹出式 菜单。鼠标单击的区域不同，弹出的菜单内容一般也不同。
创建弹出式菜单
• 调出菜单. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file • ‘1为左键 为右键 PopupMenu <菜单 …弹出菜单 为左键,2为右键 菜单> 弹出菜单 为左键 菜单 End Sub • 点击代码窗口中控件下拉列表,选择save 或 open 可以对 它们进行事件的编程