《Visual Basic程序设计基础》课程教学资源：第七章 菜单与对话框

第7章菜单与对话框 71菜单编辑器 72菜单项的控制 73*菜单项的增减 74弹出式菜单 75通用对话框

1 第7章 菜单与对话框 7.1 菜单编辑器 7.2 菜单项的控制 7.3* 菜单项的增减 7.4 弹出式菜单 7.5 通用对话框

7.1菜单编辑器 菜单编辑器 ·打开菜单编辑器的方法有 标题):限存( 确定 3种: 名称): mnuFileSave 取消 (1)“工具”菜单 索引〖) 快捷键():tr1+ 菜单编辑器” 帮助上下文I0: 协调位置@):-3ne 厂复选c)F有效C)N可见显示窗口列表) (或:CrH+E)。 中」丬」忄↓」一个插入凹」删除」 (2)在“工具栏”上 新建(N) 单击“菜单编辑器” Ctrlts 按钮 退出(X) (3)用鼠标选中窗体 后,单击鼠标右键, 在弹出菜单中选择 菜单编辑器”选项 并单击。 2

2 7.1菜单编辑器 • 打开菜单编辑器的方法有 3种： – （1）“工具”菜单 /“菜单编辑器” （或:Ctrl+E)。 – （2）在“工具栏”上 单击“菜单编辑器” 按钮。 – （3）用鼠标选中窗体 后，单击鼠标右键， 在弹出菜单中选择 “菜单编辑器”选项 并单击

菜单的组成部分示例 Form1 文件( 打开( Ctrl+o 另存为(A)…Ct+5 每个菜单项还有 看不见的 主菜单: Caption=“文件(&F)”,访问键=“F”(可用Alt+打开 “文件”菜单); 子菜单1: Caption=“打开(&O”,访问键=“O“(其主菜单已 打开时可用),快捷键=”Ctrl+0”(其主菜单未打开时用); 子菜单2: Caption="-",代表分隔线; 子菜单3: Caption="另存为(&A)…",访问键="A",快捷键 ''Ctrl+S

3 主菜单：Caption=“文件(&F) ”，访问键 =“F”（可用Alt+F打开 “文件”菜单）； 子菜单1：Caption=“打开(&O) ”，访问键＝“O“（其主菜单已 打开时可用）,快捷键＝”Ctrl＋O”（其主菜单未打开时用）； 子菜单2：Caption="-"，代表分隔线； 子菜单3：Caption="另存为(&A)…"，访问键＝"A",快捷键＝ "Ctrl＋S". 菜单的组成部分示例 每个菜单项还有一 个看不见的名称

菜单项的本质 每一个菜单项实际上是一个特殊的控件(与标 签比较相似)。 因此,每一个菜单项由一些属性来描述它的特 性,这些属性是:Name、 Caption、 Enabled Visible、 Checked,等。 每一个菜单项有事件,但只包含一个事件,即 Click事件,当用鼠标或键盘选中该菜单控件时 将调用该事件过程。 菜单项没有方法

4 • 每一个菜单项实际上是一个特殊的控件（与标 签比较相似）。 • 因此，每一个菜单项由一些属性来描述它的特 性，这些属性是：Name、Caption、Enabled 、 Visible、Checked，等。 • 每一个菜单项有事件，但只包含一个事件，即 Click事件，当用鼠标或键盘选中该菜单控件时， 将调用该事件过程。 • 菜单项没有方法。 菜单项的本质

菜单项的属性取值类型与含义 表7-1菜单控件的主要属性 属性名 属性值 属性的含义 Name 字符串 代码中用来引用菜单控件的名字 Caption文本 是出在控件上的文本 Index 整型 在创建菜单控件数组时作为索引 CheckedTrue/ False菜单上有否复选项标志 EnabledTrue/ False决定菜单项有效否(失效变灰) Ⅴ isible Boolean 决定菜单项可见否

5 菜单项的属性取值类型与含义 表7-1 菜单控件的主要属性 属性名 属性值 属性的含义 Name 字符串 代码中用来引用菜单控件的名字 Caption 文本 是出在控件上的文本 Index 整型 在创建菜单控件数组时作为索引 Checked True / False 菜单上有否复选项标志 Enabled True / False 决定菜单项有效否（失效变灰） Visible Boolean 决定菜单项可见否

7.1.3创建菜单 补例7-a:创建下图所示菜单。 Form1 ×各菜单项的命名如下 格式(Q “格式”: mnuFormat; 隶书 L)Ctrl+ “隶书”: mnuFont; √倾斜(ct+I 加粗(B)ctrH+B 分隔线: mudir 倾斜”: mnultalic “加粗”: mnubold 补例7-b:在补例7-a界面增加文本框,文本框中的字 符格式由格式菜单控制

6 7.1.3 创建菜单 补例 7-a: 创建下图所示菜单。 各菜单项的命名如下： “格式”：mnuFormat； “隶书”：mnuFont; 分隔线：mnuDiv “倾斜”： mnuItalic “加粗”： mnuBold 补例 7-b: 在补例 7-a界面增加文本框，文本框中的字 符格式由格式菜单控制

7.3*菜单项的增减 在程序中,菜单项的增减是通过菜单控 件数组来实现的。 菜单控件数组就是具有相同名称的若干 菜单项的集合,这些菜单项共享同一事 件过程

7 7.3* 菜单项的增减 • 在程序中，菜单项的增减是通过菜单控 件数组来实现的。 • 菜单控件数组就是具有相同名称的若干 菜单项的集合，这些菜单项共享同一事 件过程

创建菜单控件数组的方法 创建菜单控件数组是通过对名称、标题 和索引属性的设置来完成的 (1)打开菜单编辑器,输入一个菜单项。 (2)将该菜单项“索引”项属性设置为0, 然后加入名称相同、索引项相邻的菜单项。 例7-3菜单项的增减演示

8 创建菜单控件数组的方法 创建菜单控件数组是通过对名称、标题 和索引属性的设置来完成的 （1）打开菜单编辑器，输入一个菜单项。 （2）将该菜单项“索引”项属性设置为0， 然后加入名称相同、索引项相邻的菜单项。 例7-3 菜单项的增减演示

7.4弹出式菜单 弹出式菜是独立于菜单栏而显示在窗体上的浮动菜单;一般 要求在按下鼠标右键时出现。 创建弹出式菜单:在“菜单编辑器”中,不选中“可见” 复选框(Ⅴ isible= False); 显示弹出式菜单 Object. PopupMenu MenuNamel, flags, xly, boldcommandll PopupMenu:关键词,弹出菜单的方法名; Object:要出现弹出菜单的当前对象名称; MenuName:被弹出的菜单项的名称。 flags:参见表75 位置坐标 Boldcommand:需要用粗体显示的菜单项名称 例7-4在例7-3基础上设计一个弹出式菜单,当右击窗体时弹出

9 7.4 弹出式菜单 • 弹出式菜是独立于菜单栏而显示在窗体上的浮动菜单；一般 要求在按下鼠标右键时出现。 • 创建弹出式菜单： 在“菜单编辑器” 中，不选中“可见” 复选框（Visible＝False）； • 显示弹出式菜单： [Object.] PopupMenu MenuName[,flags[,x[,y[,boldcommand]]]] PopupMenu: 关键词，弹出菜单的方法名； Object: 要出现弹出菜单的当前对象名称； MenuName：被弹出的菜单项的名称。 flags ：参见表7-5 x,y ：位置坐标 Boldcommand：需要用粗体显示的菜单项名称 例7-4 在例7-3基础上设计一个弹出式菜单，当右击窗体时弹出

7.5通用对话框 ActiveX控件 Commondilalog为通用对话框,用户可以 利用它创建六类对话框:打开文件、保存文件、设置 字体、设置颜色、设置打印机、帮助 将通用对话控件添加到工程的方法: 选择菜单命令“工程/部件 Microsoft Common Dialog Control6.0(SP6)”,将通用对话框加载到工具箱中 设计时,通用对话框在窗体上显示成一个图标,其大 小不能改变,在程序运行时它不可见。控件加载后, 打开其属性窗口或单击F4键,则弹出属性页

10 7.5 通用对话框 • ActiveX控件CommonDilalog为通用对话框，用户可以 利用它创建六类对话框：打开文件、保存文件、设置 字体、设置颜色、设置打印机、帮助。 • 将通用对话控件添加到工程的方法： 选择菜单命令“工程/部件/Microsoft Common Dialog Control 6.0 (SP6)”，将通用对话框加载到工具箱中。 • 设计时，通用对话框在窗体上显示成一个图标，其大 小不能改变，在程序运行时它不可见。控件加载后， 打开其属性窗口或单击F4键，则弹出属性页