⑤"过滤器索引"-FilterIndex "过滤器索引" 用途:当为对话框指定了一个以上的过滤器时,用于确定哪个过滤器作 为缺省过滤器.第一个过滤器索引值为1,第二个为2,依此类推.
9.2 对话框
9.2.1 通用对话框
"打开"对话框属性值: ⑥ "标志"-Flags 标志" 用途:用于确定对话框的一些特性,如是否允许同时选择多个文件等. 缺省扩展名" ⑦ "缺省扩展名"-DefaultExt 缺省扩展名 用途:当对话框用于保存文件时,如果文件没有指定扩展名,则使用该 属性指定的缺省扩展名,如:*.txt,*.doc *.txt, .doc等 ⑧ "文件最大长度"-MaxFile Size 文件最大长度" 文件最大长度 用途:用于指定文件的最大长度,单位为字节; ⑨ "取消引发错误"-CancelError 取消引发错误" 用途:用于确定运行时在对话框中按"取消"时是否出错.选择该项, 相 当于CancelError CancelError设为true true,按"取消"出错,否则,不出错. CancelError true
指定菜单行为:
值 0 2 位置常量 vbPopMenuLeftButton vbPopMenuRightButton 说明 缺省值,弹出式菜单中的命令只接受鼠标左键单击 缺省值,弹出式菜单中的命令只接受鼠标右键单击
若要同时指定菜单位置和行为,则将两个参数值用or or连接:0 or 2 0 or
9.1 菜单
9.1 菜单
9.1.2 弹出式菜单
Flags取值表: Flags
值 0 4 8 位置常量 vbPopMenuLeftAlign vbPopMenuCenterAlign vbPopMenuCenterRight 说明 缺省值,弹出式菜单的左上角位于坐标(x,y)处 弹出式菜单的上边框的中央位于坐标(x,y)处 弹出式菜单的右上角位于坐标(x,y)处
9.2.1 通用对话框
VB系统提供的基于Windows Windows的通用对话框: VB Windows ● "打开"对话框(Open Open) Open ● "另存为"对话框(Save Save) Save ● "颜色"对话框(Color Color) Color ● "字体"对话框(Font Font) Font ● "打印机"对话框(Printer Printer) Printer ● "帮助"对话框(Help Help) Help
9.1 菜单
9.1 下拉式菜单 [9-2]设计一个应用程序 通过菜单完成两个整数的加减运算. 设计一个应用程序, 例[9-2]设计一个应用程序,通过菜单完成两个整数的加减运算
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.2 对话框
9.2.1 通用对话框
(1)"打开"对话框 程序运行后,将Action Action属性值设置为1或调用ShowOpen ShowOpen方法,即可弹出 Action ShowOpen "打开"对话框. 在"打开"对话框中,可指定要打开文件的路径,文件名和文件类型.
DialogTitle FileName Flags DefaultExt MaxFile Size InitDir Filter CancelError FilterIndex
9.1.2 弹出式菜单
x,y:指定显示弹出式菜单的x坐标和y坐标,省略时为鼠标的当前坐标; x,y DefaultMenu:指定弹出式菜单中要显示为黑体的菜单控件的名称,省略 DefaultMenu 时,则弹出式菜单没有以黑体字出现的菜单项; 在显示弹出式菜单时,一般把PopupMenu PopupMenu方法放在MouseDown MouseDown事件中,该事件 PopupMenu MouseDown 响应所有的鼠标单击事件. 通过鼠标右键打开弹出式菜单,可以用Button Button参数 Button 来判断,左键的Button Button参数为1,右键的Button Button参数为2. Button 1 Button 2 例[9-4]在上例的基础上将"运算" 菜单作为弹出式菜单显示. 例[9-5]设计一个弹出式菜单
9.1 菜单
9.1.2 弹出式菜单
弹出式菜单独立于菜单栏,直接显示在窗体上; 弹出式菜单通常是单击鼠标右键打开,又称为"右键菜单"或&##34;菜单编辑器"中,对最高一级菜单的"可见"属性设置为"False", 然后 调用PopupMenu PopupMenu方法将其作为快捷菜单显示出来,格式: PopupMenu 对象名].PopMenu 菜单名,[flags],[X],[Y], [对象名].PopMenu 菜单名,[flags],[X],[Y],[DefaultMenu] 其中: 对象名:可选项,默认为当前窗体; 菜单名:必选项,要显示的弹出式菜单名,是在菜单编辑器中定义的 主菜单标题,该主菜单标题至少含有一个子菜单; flags:可选项,是一个数值或符号常量,用于指定弹出式菜单的位置 和行为;
9.1 菜单
9.1 下拉式菜单
动态菜单的设计 动态菜单是指菜单项或菜单命令在程序的运行过程中有增有减; 可设计一个菜单控件数组,即同一菜单上享有相同的名称和事件过程的 一组菜单项(命令)的集合,通过菜单控件数组的下标来访问该数组中的 某一个具体菜单项或菜单命令. 使用load load方法在菜单控件数组中增加一个新的菜单项(命令),也可以 load 用Unload Unload方法从菜单控件数组中删除一个菜单项. Unload
9.1 菜单
9.1 下拉式菜单 "菜单编辑器"编辑区: "→":每单击一次该按钮,产生"….",称为内缩号,用来确定菜单项的 层 次,每单击一次,菜单项下移一个等级; "←":把选定的菜单上移一个等级; ← "↑":把选定的菜单在同级菜单内向上(前)移动一个位置; ↑ "↓":把选定的菜单在同级菜单内向下(后)移动一个位置; ↓ "下一个":开始一个新的菜单项(命令); "插入":在当前的菜单项前插入一个新的菜单项; "删除":删除当前的菜单项' "菜单编辑器显示区": 该区域显示了所创建的菜单,并通过"…."指明了它们的层次.
9.2 对话框
9.2.1 通用对话框
1,添加通用对话框控件 方法:系统菜单"工程"->"部件",选择"Microsoft Common Dialog Microsoft 6.0" Control 6.0
通用对话框控件
注:通用对话框在程序运行后不可见,故在设计时可将其放置在窗体的任何 地方
9.2 对话框
Visual Basic程序设计教程
第九章 菜单

内蒙古科技大学实践训练中心
9.1 菜单
菜单的种类:下拉式菜单,弹出式菜单 9.1 下拉式菜单 1,下拉式菜单结构 结构 : 主菜单栏,子菜单栏; 子菜单又分为:菜单命令或选项,子菜单标题和分隔条; 菜单命令或选项:可以直接执行; 子菜单标题:可以再拉出一级菜单; 分隔条:用于对于子菜单项进行分组; 2,设计下拉式菜单 进入菜单编辑器: ⑴执行"工具"菜单的"菜单编辑器"按钮; ⑵直接执行热键(快捷键) Ctrl+E Ctrl+E; ⑶单击"工具栏"上的"菜单编辑器"; ⑷在要建立菜单的窗体上单击鼠标右键,打开快捷菜单,执行"菜单 编 辑器";
9.1 菜单
9.1 下拉式菜单 "菜单编辑器"属性区:
属性名 标题(Caption) 名称(Name) 索引 快捷键 复选 有效 可见 显示窗口列表 属性值 字符型数据 字符型数据 整型数据 字符型数据 逻辑型数据 逻辑型数据 逻辑型数据 逻辑型数据 说明 指定菜单项或菜单命令显示的字符串 指定菜单控件的名称 指定一个数字来确定菜单项或菜单命令在菜单控件数 组中的序号,该序号与各菜单控件的位置无关 指定菜单命令的快捷键 指定是否允许在菜单项的左边设置复选标记 指定该菜单项是否可操作 设置是否将该菜单项显示在菜单上 在多重文档(MDI)程序中指定该控件是否包含一个打 开MDI子窗体列表
9.2 对话框
VB系统提供的对话框: VB系统提供的对话框: 系统提供的对话框 预定义对话框:即由InputBox MsgBox InputBox或MsgBox InputBox MsgBox函数创建的对话框; 通用对话框:用CommonDialog CommonDialog控件创建,如"打开对话框","字体" CommonDialog 对话 框等 ; 用户自定义对话框:用户根据自己的需要在窗体上添加各种控件来构成 自己需要的对话框;
9.2 对话框
9.2.1 通用对话框 "打开"对话框属性值:
①"对话框标题"-DialogTitle 对话框标题" 对话框标题 用途:用于设置对话框的标题; ② "文件名称"-FileName 文件名称" 文件名称 用途:用于设置打开对话框显示的初始文件名.若在对话框中选择了 一个文件并单击"打开"或"保存"按钮,则选择的文件(包 含路径) 即为FileName FileName属性的值; FileName ③"初始化路径"-InitDir "初始化路径" 用途:用于指定打开对话框的初始路径,若没有指定该属性,则使用 当前路径;