《VB 第八章 菜单和通用对话框》由会员分享，可在线阅读，更多相关《VB 第八章 菜单和通用对话框（32页珍藏版）》请在金锄头文库上搜索。
1、第二十讲 菜 单Visual Basic 程序设计教程内蒙古科技大学工程训练中心 韩 艳9.1 9.1 菜单菜单菜单的种类：下拉式菜单、弹出式菜单 9.1 下拉式菜单1、下拉式菜单结构结构 ： 主菜单栏、各级子菜单；子菜单又分为：菜单命令或选项、子菜单标题和分隔条；菜单命令或选项：可以直接执行；子菜单标题：可以再拉出一级菜单；分隔条：用于对于子菜单项进行分组；2、设计下拉式菜单 进入菜单编辑器：执行”工具“菜单的”菜单编辑器“按钮；直接执行热键（快捷键） Ctrl+E；单击”工具栏“上的”菜单编辑器”；在要建立菜单的窗体上单击鼠标右键，打开快捷菜单，执行“菜单编辑器”； 工程训练中心9.1 9
2、.1 菜单菜单9.1 下拉式菜单“菜单编辑器”属性区： 属性名属性值说明标题(Caption)字符型数据指定菜单项或菜单命令显示的字符串名称(Name)字符型数据指定菜单控件的名称索引整型数据指定一个数字来确定菜单项或菜单命令在菜单控件数组中的 序号，该序号与各菜单控件的位置无关 快捷键字符型数据指定菜单命令的快捷键复选逻辑型数据指定是否允许在菜单项的左边设置复选标记有效逻辑型数据指定该菜单项是否可操作可见逻辑型数据设置是否将该菜单项显示在菜单上显示窗口列表逻辑型数据在多重文档（MDI)程序中指定该控件是否包含一个打开MDI 子窗体列表工程训练中心9.1 9.1 菜单菜单9.1 下拉式菜单“菜
3、单编辑器”属性区： 说明：“名称”属性是菜单项的必要属性，必须给定；在输入菜单标题时在某个字母前输入一个*.jpg):文本文件(*.txt) | *.txt | 图形文件(*.bmp;*.jpg) | *.bmp;*.jpg 描述过滤器描述过滤器“过滤器索引”FilterIndex用途：当为对话框指定了一个以上的过滤器时，用于确定哪个过滤器作 为缺省过滤器。第一个过滤器索引值为1，第二个为2，依此类推。工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框“打开”对话框属性值： “标志”Flags用途：用于确定对话框的一些特性，如是否允许同时选择多个文件等。 “缺省扩展名” Defau
4、ltExt用途：当对话框用于保存文件时，如果文件没有指定扩展名，则使用该属性指定的缺省扩展名，如：*.txt，*.doc等 “文件最大长度”MaxFile Size用途：用于指定文件的最大长度，单位为字节； “取消引发错误” CancelError用途：用于确定运行时在对话框中按”取消“时是否出错。选择该项，相当于CancelError设为true，按”取消“出错，否则，不出错。 工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框例9-6在窗体上画一个名称为command1的命令按钮，标题为”打开文件“，再画一个名称为CD1的通用对话框。程序运行后，若单击命令按钮，则弹出打 开文件
5、对话框，并按下列要求设置属性和代码：设置适当属性，使对话框的标题为”打开文件“，初始目录为c盘根目录；设置适当属性，使对话框的”文件类型“下拉式组合框中有二行：”Word文档“、”所有文件“，默认的是”所有文件“；编写命令按钮的事件过程，使得单击按钮可以弹出”打开文件“对话框；思路：首先，条件、是在对话框属性窗口上配置参数，可在对话框属性窗口内填写”对话框标题“、”初始化路径“的相应内容； 其次，过滤器的内容为：Word文档|*.doc|所有文件|*.*；且根据题意，过滤器索引值设为2；另，条件是指编写代码，调用通用对话框，可采用如下程序代码：cd1.action=1 或者 cd1.showo
6、pen 均可工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框2、”另存为“对话框调用方法：在程序运行后，Action2或调用ShowSave方法；属性：与”打开“对话框基本一致；”另存为“对话框可以指定文件要保存的路径、文件名和文件类型；例9-8编写一个程序，用”另存为“对话框将一个文本框的内容写入一个文本文件里。解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件；其中对话框的属性可在其属性窗口中配置，也可在程序中用命令配置；配置对话框属性cd1.Filter = “文本文件|*.txt|所有文件|*.*“ 对话框的过滤器cd1.FileName = “*.txt“ 对
7、话框的文件名cd1.DefaultExt = “txt“ 对话框的默认文件扩展名cd1.Action = 1 调用另存为对话框将文本框内的内容写入文本文件Open cd1.FileName For Output As #1Print #1, Text1.TextClose #1工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框3、”颜色“对话框调用方法：在程序运行后，Action3或调用ShowColor方法；属性：除对话框的基本属性外还有”color“与“flags”两个属性值； 常数值描述cdlCCFullOpen&H2显示全部对话框，包括定 义和自定义颜色部分 cdlCCSh
8、owHelpButton&H8使对话框显示帮助按钮cdlCCPreventFullOpen&H4使定义自定义颜色命令按 钮无效并防止定义自定义 颜色 cdlCCRGBInit&H1为对话框设置初始颜色工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框3、”颜色“对话框例9-9编写一个应用程序，用”颜色“对话框设置一个文本框的背景颜色。解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件；对于文本框的背景色（backcolor）的设置可采用如下命令：Text1.Backcolor=CommonDialog1.Color例9-9_1”颜色“对话框flags的属性实例解题思路：首
9、先在窗体上画一个文本框、命令按钮和通用对话框控件；设置颜色对话框的flags的属性值为”cdlCCFullOpen”工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框4、”字体“对话框调用方法：Action4 或者调用showfont方法；属性值： 属性名属性值说明FlagscdlCFEffects(&H100)在字体对话框中显示删除线和下划线复 选框以及颜色组合框该属性必须在激活 字体对话框之前进 行设置cdlFSscreenFonts(&H1)显示屏幕字体cdlFPrintFonts(&H2)显示打印机字体cdlCFBoth(&H3)显示打印机字体和屏幕字体FontName字符
10、型数据用户所选的字体名称FontSize整型数据用户所选的字体大小FontBold逻辑性数据用户所选的字体是否加粗FontItalic逻辑性数据用户所选的字体是否斜体FontUnderLine逻辑性数据用户所选的字体是否加下划线FontStrikethra逻辑性数据用户所选的字体是否加删除线工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框4、”字体“对话框例9-10编写一个程序，用“字体”对话框设置一个文本框的字体。解题思路：在程序中，首先要设置对话框的flags属性，然后设置文本框的 字体属性，如：fontname、fontsize等相应属性，如： Text1.Fontname
11、=CommonDialog1.Fontname等；cd1.Flags = cdlCFBoth Or cdlCFEffects 安装字体cd1.ShowFont根据用户在字体对话框中的选择来设置文本框字体Text1.FontName = cd1.FontNameText1.FontBold = cd1.FontBoldText1.FontSize = cd1.FontSizeText1.FontItalic = cd1.FontItalicText1.FontStrikethru = cd1.FontStrikethruText1.FontUnderline = cd1.FontUnderlin
12、eText1.ForeColor = cd1.Color工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框5、”打印机“对话框调用方法：Action5 或者调用showprinter方法；属性值： 属性名说明Copies指定打印份数FromPage指定打印起始页号ToPage指定打印终止页号例9-11 编写一个程序，用“打印机”对话框打印一个文本框内容。 解题思路：打印份数要由FORNEXT循环程序加以控制。 工程训练中心9.2 9.2 对话框对话框9.2.1 通用对话框6、”帮助“对话框调用方法：Action6 或者调用showhelp方法；属性值： 属性名说明HelpComma
13、nd用于返回设置所需在线帮助类型HelpFile用于指定Help的路径及文件名HelpKey用于指定要显示的帮助内容的关键字注：帮助对话框不是用来制作应用程序的帮助文件的 ，它仅仅是将已制好的帮 助文件从磁盘中提取出来，并与帮助对话框所提供的界面联接，达到显示并检 索帮助信息的目的。工程训练中心9.2 9.2 对话框对话框9.2.2 自定义对话框所谓“自定义对话框”就是用户自己设计的一个窗口，窗口上放置一些用 于交互信息的控件。一般自定义对话框的属性设置：属性名属性值说明BorderStyle1防止对话框在运行时被改变大小ControlBoxFalse取消控制菜单MaxButtonFalse取
14、消最大化按钮MinButtonFalse取消最小化按钮注：“自定义对话框”一般情况下都设有“确定”和“取消”按钮，其他控件可根据需 要而定。工程训练中心9.2 9.2 对话框对话框9.2.2 自定义对话框“自定义对话框”的调用：一般情况下，调用Show方法即可，但由于调用Show方法时，参数不同，因而调用后的“自定义对话框”的状态有所不同：将自定义窗体作为模式对话框显示模式对话框必须先关闭对话框，才能继续操作其他窗体。如“字体”对话框调用格式： 自定义对话框窗体名.Show vbModal或 自定义对话框窗体名.Show 1 将自定义对话框作为无模式对话框显示无模式对话框允许不关闭对话框，在对
15、话框和其他窗体间间移动焦点。如“查找”对话框。调用格式：自定义对话框窗体.Show vbModaless或 自定义对话框窗体.Show 0 工程训练中心9.3 9.3 综合应用举例综合应用举例例9-12 在窗体上画一个文本框，把它的Mutiline属性设为True，通过菜单命 令向文本框中输入信息并对文本框中的文本格式化。 解题思路：首先在窗体上画文本框，并设置相应的属性值；再设置菜单及其菜单项；最后，编写各子菜单项的相应的程序语句。 例9-13 编写一个简单的文本编辑程序。文本内容是在打开对话对话框中所选 择的文件名。 解题思路：本题是对通用对话框的综合使用，针对各对话框的特点，设置其属性值。 工程训练中心
