VB菜单和通用对话框

1、VB菜单和通用对话框 VB菜单和通用对话框 菜单的种类：下拉式菜单、弹出式菜单 9.1 9.1 下拉式菜单下拉式菜单 1 1、下拉式菜单结构、下拉式菜单结构 结构结构 ： 主菜单栏、各级子菜单； 子菜单又分为：菜单命令或选项、子菜单标题和分隔条； 菜单命令或选项：可以直接执行； 子菜单标题：可以再拉出一级菜单； 分隔条：用于对于子菜单项进行分组； 2 2、设计下拉式菜单、设计下拉式菜单 进入菜单编辑器： 执行”工具“菜单的”菜单编辑器“按钮； 直接执行热键（快捷键） Ctrl+ECtrl+E； 单击”工具栏“上的”菜单编辑器”； 在要建立菜单的窗体上单击鼠标右键，打开快捷菜单，执行“菜单 编

2、辑器”； VB菜单和通用对话框 9.1 9.1 下拉式菜单下拉式菜单 “菜单编辑器”属性区： 属性名属性值说明 标题(Caption)字符型数据指定菜单项或菜单命令显示的字符串 名称(Name)字符型数据指定菜单控件的名称 索引整型数据指定一个数字来确定菜单项或菜单命令在菜单控件数组中的 序号，该序号与各菜单控件的位置无关 快捷键字符型数据指定菜单命令的快捷键 复选逻辑型数据指定是否允许在菜单项的左边设置复选标记 有效逻辑型数据指定该菜单项是否可操作 可见逻辑型数据设置是否将该菜单项显示在菜单上 显示窗口列表逻辑型数据在多重文档（MDI)程序中指定该控件是否包含一个打开MDI 子窗体列表 VB

3、菜单和通用对话框 9.1 9.1 下拉式菜单下拉式菜单 “菜单编辑器”属性区： 说明： “名称名称”属性是菜单项的必要属性，必须给定； 在输入菜单标题时在某个字母前输入一个.bmp;* *.jpg.jpg): : 文本文件文本文件( (* *.txt) | .txt) | * *.txt | .txt | 图形文件图形文件( (* *.bmp;.bmp;* *.jpg) | .jpg) | * *.bmp;.bmp;* *.jpg.jpg 描述描述过滤器过滤器描述描述过滤器过滤器 “过滤器索引过滤器索引”FilterIndexFilterIndex 用途：当为对话框指定了一个以上的过滤器时，用

4、于确定哪个过滤器作 为缺省过滤器。第一个过滤器索引值为第一个过滤器索引值为1 1，第二个为，第二个为2 2，依此类推。 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 “打开”对话框属性值： “标志标志”FlagsFlags 用途：用于确定对话框的一些特性，如是否允许同时选择多个文件等。 “缺省扩展名缺省扩展名” DefaultExtDefaultExt 用途：当对话框用于保存文件时，如果文件没有指定扩展名，则使用该 属性指定的缺省扩展名，如：* *.txt.txt，* *.doc.doc等 “文件最大长度文件最大长度”MaxMax 用途：用于指定文件的最大长度，单位为字节

5、； “取消引发错误取消引发错误” CancelErrorCancelError 用途：用于确定运行时在对话框中按”取消“时是否出错。选择该项， 相 当于CancelErrorCancelError设为truetrue，按”取消“出错，否则，不出错。 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 例例9-69-6在窗体上画一个名称为在窗体上画一个名称为command1command1的命令按钮，标题为的命令按钮，标题为”打开文件打开文件“， 再画一个名称为再画一个名称为CD1CD1的通用对话框。程序运行后，若单击命令按钮，则弹出打开的通用对话框。程序运行后，若单击命令按钮，

6、则弹出打开 文件对话框，并按下列要求设置属性和代码：文件对话框，并按下列要求设置属性和代码： 设置适当属性，使对话框的标题为设置适当属性，使对话框的标题为”打开文件打开文件“，初始目录为，初始目录为c c盘根目录；盘根目录； 设置适当属性，使对话框的设置适当属性，使对话框的”文件类型文件类型“下拉式组合框中有二行：下拉式组合框中有二行：”WordWord 文文 档档“、”所有文件所有文件“，默认的是，默认的是”所有文件所有文件“； 编写命令按钮的事件过程，使得单击按钮可以弹出编写命令按钮的事件过程，使得单击按钮可以弹出”打开文件打开文件“对话框对话框； 思路： 首先，条件、是在对话框属性窗口上

7、配置参数，可在对话框属性窗口 内填写”对话框标题“、”初始化路径“的相应内容； 其次，过滤器的内容为：WordWord文档文档| |* *.doc|.doc|所有文件所有文件| |* *. .* *；且根据题意， 过滤器索引值设为2 2； 另，条件是指编写代码，调用通用对话框，可采用如下程序代码： cd1.action=1cd1.action=1 或者 cd1.showopencd1.showopen 均可 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 2 2、”另存为另存为“对话框对话框 调用方法：调用方法：在程序运行后，ActionAction2 2或调用ShowSa

8、veShowSave方法； 属性：属性：与”打开“对话框基本一致； ”另存为“对话框可以指定文件要保存的路径、文件名和文件类型； 例例9-89-8编写一个程序，用编写一个程序，用”另存为另存为“对话框将一个文本框的内容写入一个文对话框将一个文本框的内容写入一个文 本文件里本文件里。 解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件；其中 对话框的属性可在其属性窗口中配置，也可在程序中用命令配置； 配置对话框属性 cd1.Filter = 文本文件|*.txt|所有文件|*.* 对话框的过滤器 cd1. = *.txt 对话框的文件名 cd1.DefaultExt = txt 对话框

9、的默认文件扩展名 cd1.Action = 1 调用另存为对话框 将文本框内的内容写入文本文件 Open cd1. For Output As #1 Print #1, Text1.Text Close #1 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 3 3、”颜色颜色“对话框对话框 调用方法：调用方法：在程序运行后，ActionAction3 3或调用ShowColorShowColor方法； 属性：属性：除对话框的基本属性外还有”colorcolor“与“flagsflags”两个属性值； 常数值描述 cdlCCFullOpen&H2显示全部对话框，包括定 义和自

10、定义颜色部分 cdlCCShowHelpButton&H8使对话框显示帮助按钮 cdlCCPreventFullOpen&H4使定义自定义颜色命令按 钮无效并防止定义自定义 颜色 cdlCCRGBInit&H1为对话框设置初始颜色 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 3 3、”颜色颜色“对话框对话框 例例9-99-9编写一个应用程序，用编写一个应用程序，用”颜色颜色“对话框设置一个文本框的背景颜色对话框设置一个文本框的背景颜色。 解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件； 对于文本框的背景色（backcolorbackcolor）的设置可采用

11、如下命令： Text1.Backcolor=CommonDialog1.Color 例例9-9_19-9_1”颜色颜色“对话框对话框flagsflags的属性实例的属性实例 解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件； 设置颜色对话框的flags的属性值为”cdlCCFullOpen” VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 4 4、”字体字体“对话框对话框 调用方法：调用方法：ActionAction4 4 或者调用showfontshowfont方法； 属性值：属性值： 属性名属性值说明 FlagscdlCFEffects(&H100)在字体对

12、话框中显示删除线和下划线复 选框以及颜色组合框 该属性必须在激活该属性必须在激活 字体对话框之前进字体对话框之前进 行设置行设置 cdlFSscreenFonts(&H1)显示屏幕字体 cdlFPrintFonts(&H2)显示打印机字体 cdlCFBoth(&H3)显示打印机字体和屏幕字体 FontName字符型数据用户所选的字体名称 FontSize整型数据用户所选的字体大小 FontBold逻辑性数据用户所选的字体是否加粗 FontItalic逻辑性数据用户所选的字体是否斜体 FontUnderLine逻辑性数据用户所选的字体是否加下划线 FontStrikethra逻辑性数据用户所选的

13、字体是否加删除线 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 4 4、”字体字体“对话框对话框 例例9-109-10编写一个程序，用编写一个程序，用“字体字体”对话框设置一个文本框的字体对话框设置一个文本框的字体。 解题思路：在程序中，首先要设置对话框的flagsflags属性，然后设置文本框的 字体属性，如：fontnamefontname、fontsizefontsize等相应属性，如： Text1.Fontname=CommonDialog1.FontnameText1.Fontname=CommonDialog1.Fontname等； cd1.Flags = c

14、dlCFBoth Or cdlCFEffects 安装字体 cd1.ShowFont 根据用户在字体对话框中的选择来设置文本框字体 Text1.FontName = cd1.FontName Text1.FontBold = cd1.FontBold Text1.FontSize = cd1.FontSize Text1.FontItalic = cd1.FontItalic Text1.FontStrikethru = cd1.FontStrikethru Text1.FontUnderline = cd1.FontUnderline Text1.ForeColor = cd1.Color

15、VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 5 5、”打印机打印机“对话框对话框 调用方法：调用方法：ActionAction5 5 或者调用showprintershowprinter方法； 属性值：属性值： 属性名说明 Copies指定打印份数 FromPage指定打印起始页号 ToPage指定打印终止页号 例例9-11 9-11 编写一个程序，用编写一个程序，用“打印机打印机”对话框打印一个文本框内容对话框打印一个文本框内容。 解题思路：打印份数要由FORNEXT循环程序加以控制。 VB菜单和通用对话框 9.2.1 9.2.1 通用对话框通用对话框 6 6、”帮助

16、帮助“对话框对话框 调用方法：调用方法：ActionAction6 6 或者调用showhelpshowhelp方法； 属性值属性值： 属性名说明 HelpCommand用于返回设置所需在线帮助类型 HelpFile用于指定Help的路径及文件名 HelpKey用于指定要显示的帮助内容的关键字 注：帮助对话框不是用来制作应用程序的帮助文件的 ，它仅仅是将已制好的帮 助文件从磁盘中提取出来，并与帮助对话框所提供的界面联接，达到显示并检 索帮助信息的目的。 VB菜单和通用对话框 9.2.2 9.2.2 自定义对话框自定义对话框 所谓“自定义对话框”就是用户自己设计的一个窗口，窗口上放置一些用 于交

17、互信息的控件。 一般自定义对话框的属性设置： 属性名属性值说明 BorderStyle1防止对话框在运行时被改变大小 ControlBoxFalse取消控制菜单 MaxButtonFalse取消最大化按钮 MinButtonFalse取消最小化按钮 注：“自定义对话框”一般情况下都设有“确定”和“取消”按钮，其他控件 可根据需要而定。 VB菜单和通用对话框 9.2.2 9.2.2 自定义对话框自定义对话框 “自定义对话框”的调用： 一般情况下，调用ShowShow方法即可，但由于调用ShowShow方法时，参数不同，因 而调用后的“自定义对话框”的状态有所不同： 将自定义窗体作为模式对话框显示将自定义窗体作为模式对话框显示 模式对话框必须先关闭对话框，