VB 第八章 菜单和通用对话框

Visual Basic 程序设计教程
第二十讲 菜 单
内蒙古科技大学工程训练中心 韩 艳

9.1 菜单
菜单的种类：下拉式菜单、弹出式菜单 9.1 下拉式菜单 1、下拉式菜单结构 结构 ： 主菜单栏、各级子菜单； 子菜单又分为：菜单命令或选项、子菜单标题和分隔条；
菜单命令或选项：可以直接执行； 子菜单标题：可以再拉出一级菜单； 分隔条：用于对于子菜单项进行分组； 2、设计下拉式菜单 进入菜单编辑器： ⑴执行”工具“菜单的”菜单编辑器“按钮； ⑵直接执行热键（快捷键） Ctrl+E； ⑶单击”工具栏“上的”菜单编辑器”； ⑷在要建立菜单的窗体上单击鼠标右键，打开快捷菜单，执行“菜单
9.2 对话框
9.2.1 通用对话框 2、通用对话框的属性
在窗体上添加通用对话框后，可在属性窗口中单击“自定义”的按钮或 者 用鼠标右键单击对话框控件，打开“属性”选项。 3、通用对话框的使用 通过设臵不同的Action属性值（只能在程序中设臵）或调用不同的方法 来决定对话框的类型 显示的对话框 方法 Action属性值
工程训练中心

9.1 菜单
9.1.1 下拉式菜单
动态菜单的设计
例[9-3]才菜单中动态添加“乘法”和“除法”操作。 解题思路：当单击窗体时，调用load方法，利用控件数组appendcal为菜单 增加两个子菜单；当双击窗体时，调用unload方法将新增的两个子菜单删除。 Appendcal_click事件是新增的两个菜单的共用事件，当作乘法操作时，参 数index的值为1，作除法时为2。
工程训练中心

9.2 对话框
9.2.1 通用对话框 “打开”对话框属性值：
④“过滤器”－Filter 用途：用于指定在对话框的文件类型列表框中所要显示的文件类型。 如：选择过滤器为*.txt，，表示显示所有的文本文件。 通常给每个过滤器一个描述，使用管道符号”|”将过滤器描述和过滤 器隔开；如：下列代码用于设臵一个过滤器，其允许打开“文本文件 (*.txt)、或含有位图和JPG图形的文件(*.bmp;*.jpg): 文本文件(*.txt) | *.txt | 图形文件(*.bmp;*.jpg) | *.bmp;*.jpg 描述 过滤器 描述 过滤器
工程训练中心

9.1 菜单
9.1 下拉式菜单
“菜单编辑器”编辑区：
“→”：每单击一次该按钮，产生”….”,称为内缩号，用来确定菜单项的 层 次，每单击一次，菜单项下移一个等级； “←”：把选定的菜单上移一个等级； “↑“：把选定的菜单在同级菜单内向上（前）移动一个位臵； “→”：把选定的菜单在同级菜单内向下（后）移动一个位臵； “下一个”：开始一个新的菜单项（命令）； “插入”：在当前的菜单项前插入一个新的菜单项； “删除”：删除当前的菜单项‘ “菜单编辑器显示区”： 该区域显示了所创建的菜单，并通过“….”指明了它们的层次。
工程训练中心

9.1 菜单
9.1.2 弹出式菜单
弹出式菜单独立于菜单栏，直接显示在窗体上；
弹出式菜单通常是单击鼠标右键打开，又称为”右键菜单“或”快捷菜单“； 创建方法： 在”菜单编辑器“中，对最高一级菜单的”可见“属性设臵为”False“， 然后 调用PopupMenu方法将其作为快捷菜单显示出来。 格式： [对象名].PopMenu 菜单名，[flags]，[X]，[Y]，[DefaultMenu] 其中： 对象名：可选项，默认为当前窗体； 菜单名：必选项，要显示的弹出式菜单名，是在菜单编辑器中定义的 主菜单标题，该主菜单标题至少含有一个子菜单； flags：可选项，是一个数值或符号常量，用于指定弹出式菜单的位臵 和行为；
有效
可见 显示窗口列表
逻辑型数据
逻辑型数据 逻辑型数据
指定该菜单项是否可操作
设置是否将该菜单项显示在菜单上 在多重文档（MDI)程序中指定该控件是否包含一个打开MDI 子窗体列表
工程训练中心

9.1 菜单
9.1 下拉式菜单
“菜单编辑器”属性区：
说明： ⑴“名称”属性是菜单项的必要属性，必须给定； ⑵在输入菜单标题时在某个字母前输入一个&符号。该字母就成了热 键，在窗体上显示时该字母带有下划线，操作时用Alt+该字母就激活 菜单或执行该菜单命令； ⑶分隔符：在菜单的标题栏输入“－”号，则菜单显示时形成一个分隔 符
工程训练中心

9.1 菜单
9.1.2 弹出式菜单
例[9-4]在上例的基础上将”运算“菜单作为弹出式菜单显示。
工程训练中心

9.1 菜单
9.1.2 弹出式菜单
例[9-5]设计一个弹出式菜单
工程训练中心

9.2 对话框
VB系统提供的对话框： 预定义对话框：即由InputBox或MsgBox函数创建的对话框； 通用对话框：用CommonDialog控件创建，如“打开对话框”、“字体” 对话 框等 ； 用户自定义对话框：用户根据自己的需要在窗体上添加各种控件来构成 自己需要的对话框；
Private Sub add_Click() Label1.Caption = "+" Label3.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub sub_Click() Label1.Caption = "-" Label3.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub
工程训练中心

9.1 菜单
9.1.2 弹出式菜单
Flags取值表： Flags参数由每组值选取一个数字相加而成。
值 位置常量 说明
0
vbPopMenuLeftAlign
vbPopMenuCenterAlign
缺省值，弹出式菜单的左上角位于坐标(x,y)处
弹出式菜单的上边框的中央位于坐标(x,y)处 弹出式菜单的右上角位于坐标(x,y)处
9.2 对话框
9.2.1 通用对话框
1、添加通用对话框控件 方法：系统菜单“工程”－>“部件”， 选择“Microsoft Common Dialog Control 6.0”
通用对话框控件
注：通用对话框在程序运行后不可见，故在设计时可将其放臵在窗体的任何 地方
工程训练中心

工程训练中心

9.1 菜单
9.1 下拉式菜单 例[9-1]利用菜单命令，控制标签的显示和隐藏 Private Sub m_11_Click() Label1.Visible = True End Sub
Private Sub m_menu1_Click() Label1.Visible = False End Sub
9.2.1 通用对话框
VB系统提供的基于Windows的通用对话框： ● “打开”对话框（Open） ● “另存为”对话框（Save） ● “颜色”对话框（Color） ● “字体”对话框（Font） ● “打印机”对话框（Printer） ● “帮助”对话框（Help）
工程训练中心

DialogTitle FileName Flags DefaultExt MaxFile Size InitDir Filter CancelError FilterIndex
工程训练中心

9.2 对话框
9.2.1 通用对话框 “打开”对话框属性值：
①“对话框标题”－DialogTitle 用途：用于设臵对话框的标题； ② “文件名称”－FileName 用途：用于设臵打开对话框显示的初始文件名。若在对话框中选择了 一个文件并单击“打开”或“保存”按钮，则选择的文件（包 含路径） 即为FileName属性的值； ③“初始化路径”－InitDir 用途：用于指定打开对话框的初始路径，若没有指定该属性，则使用 当前路径；
指定菜单位臵：
4 8
vbPopMenuCenterRight
值 0
位置常量 vbPopMenuLeftButton
说明 缺省值，弹出式菜单中的命令只接受鼠标左键单击
指定菜单行为：
2
vbPopMenuRightButton
缺省值，弹出式菜单中的命令可接受鼠标左、右键 单击
工程训练中心

9.1 菜单
9.1.2 弹出式菜单
x,y：指定显示弹出式菜单的x坐标和y坐标，省略时为鼠标的当前坐标；
DefaultMenu：指定弹出式菜单中要显示为黑体的菜单控件的名称，省略 时，则弹出式菜单没有以黑体字出现的菜单项； 在显示弹出式菜单时，一般把PopupMenu方法放在MouseDown事件中，该事件 响应所有的鼠标单击事件。 通过鼠标右键打开弹出式菜单，可以用Button参数 来判断，左键的Button参数为1，右键的Button参数为2。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu 菜单项名 End Sub
工程训练中心

9.1 菜单
9.1 下拉式菜单
动态菜单的设计
动态菜单是指菜单项或菜单命令在程序的运行过程中有增有减； 可设计一个菜单控件数组，即同一菜单上享有相同的名称和事件过程的 一组菜单项（命令）的集合，通过菜单控件数组的下标来访问该数组中的 某一个具体菜单项或菜单命令。 使用load方法在菜单控件数组中增加一个新的菜单项（命令），也可以 用Unload方法从菜单控件数组中删除一个菜单项。
⑤“过滤器索引”－FilterIndex 用途：当为对话框指定了一个以上的过滤器时，用于确定哪个过滤器作 为缺省过滤器。第一个过滤器索引值为1，第二个为2，依此类推。