第10章 对 话 框 知识要点 学习任务 消息对话框的功能、用法及使用技巧 输入对话框的功能、用法及使用技巧 通用对话框控件的功能、用法及使用技巧 自定义对话框的功能、用法及使用技巧 学习任务 了解对话框的分类及各类对话框的功能 理解消息对话框和输入对话框的语法及各参数的含义，通用对话框控件的各种属性、方法和事件的功能及含义 掌握各类对话框的创建方法及技巧

10.1 对话框的分类 模态对话框 非模态对话框 创建对话框的方法 对话框可分为模态对话框和非模态对话框两种类型。 10.1 对话框的分类 对话框可分为模态对话框和非模态对话框两种类型。 模态对话框 显示重要信息的对话框一般都是模态对话框 在继续执行应用程序的其他操作之前，必须先被关闭（隐藏或卸载），或对它的提示做出响应 非模态对话框 允许在关闭对话框之前对应用程序的其他部分做出响应或操作 只是用来显示频繁使用的命令与信息 创建对话框的方法 使用MsgBox函数来创建消息对话框 使用InputBox函数来创建输入对话框 通过CommonDialog控件来创建各种通用对话框 通过窗体来创建自定义对话框

10.2 输入对话框 基本功能：用来在应用程序运行时提示输入相关信息 10.2 输入对话框 基本功能：用来在应用程序运行时提示输入相关信息 语法： InputBox(prompt,[,title][,default][,xpos][,ypos] [,helpfile,context]) 【例 10.1】 Dim Msg,Title,Default,Myapoint '定义相关变量 Msg="请输入您的判断结果（Y/N）：" '设置提示信息 Title="判断结果输入框" '设置标题 Default="Y" '设置缺省值 Myapoint=InputBox(Msg,Title,Default,100,100) '在100,100位置显示对话框，并显示输入提示信息、标题及缺省值 MyValue=InputBox(Msg,Title, , , ,"h.hlp",10) '使用帮助文件及上下文，"帮助"按钮将会自动出现

10.3 消息对话框 基本功能：用来在应用程序中显示信息 10.3 消息对话框 基本功能：用来在应用程序中显示信息 语法：MsgBox(prompt,[,buttons] [,title] [,helpfile,context]) 【例 10.2】 Dim Msg,Style,Title,Response,Str1 '声名相关变量 Msg="继续吗?" '定义信息 Style=vbYesNo+vbCritical+vbDefaultButton2'定义按钮 Title="操作提示对话框" '定义标题 Response=MsgBox(Msg,Style,Title) '显示消息框 If Response=vbYes Then '用户按下"是"按钮 MsgBox"继续执行完毕！" '执行某操作 Else '用户按下"否"按钮 MsgBox"不执行操作！" '执行某操作 End If

10.4 通用对话框（CommonDialog）控件（一） 基本功能：用于创建具有标准界面和使用方法的公共对话框，利用这些对话框可以完成文件的打开和保存、打印机选项的设置、颜色和字体的选择等操作 使用方法 在工具箱中加入通用对话框（CommonDialog）控件 在窗体中加入通用对话框控件 设置通用对话框控件的属性 通过“属性”窗口直接设置 通过“属性页”对话框中进行设置 通过程序代码进行设置

10.4 通用对话框（CommonDialog）控件（二） 用通用对话框控件生成各种对话框（一） “打开”对话框：通过ShowOpen方法可以显示“打开”对话框 常用属性（一） DialogTitle属性：返回或设置显示在对话框标题栏中的文本 （语法：commondialog1.DialogTitle[=string]） FileName属性：设置缺省的文件名，并返回最后被选中的文件名称 （语法：commondialog1.FileName[=string]） InitDir属性：设置缺省的文件目录，并返回最后被选中的文件目录 （语法：commondialog1.InitDir[=string]） Filter属性：设置文件过滤器（格式：描述｜通配符） FilterIndex属性：设置缺省的文件过滤器 （语法：commondialog1.FilterIndex[=number]） Flags属性：设置对话框的选项 （语法：commondialog1.Flags[=value]）

10.4 通用对话框（CommonDialog）控件（三） 用通用对话框控件生成各种对话框（二） 常用属性（二） MaxFileSize属性：设置将要被打开的文件名的最大尺寸 （语法：commondialog1.MaxFileSize[=number]） 【例10.7】将以下代码放入某一对象的Click事件中，将显示 “打开”对话框，并在“文件名”信息框中显示所选的文件名。 Dim SF As String '定义用于存放文件名的变量 CommonDialog1.Flags=&H10&Or&H4& ‘设置Flags属性，使对话框含有“帮助(H) ”按钮并隐去"以只读方式打开"复选框 CommonDialog1.Filter="所有文件(*.*)|*.*|文本文件(*.txt)|*.txt| 批处理文件(*.bat)|*.bat" '设置过滤器 CommonDialog1.FilterIndex=2 '指定缺省的过滤器为"文本文件(*.txt)" CommonDialog1.ShowOpen '使用ShowOpen方法显示"打开"对话框 SF=CommonDialog1.filename '用变量SF保存选定要打开的文件的名字

10.4 通用对话框（CommonDialog）控件（四） 用通用对话框控件生成各种对话框（三） “另存为”对话框：通过ShowSave方法可以显示“另存为”对话框 【例10.8】将以下代码放入某一对象的Click事件中，将显示“另存为”对话框，然后在“文件名”信息框中显示选定的文件的名字。 Dim OF As String '定义用于存放文件名的变量 CommonDialog1.Flags= &H10&Or&H4& '设置对话框含有"帮助(H) "按钮，并且隐去"以只读方式打开"复选框 CommonDialog1.Filter="所有文件(*.*)|*.*|文本文件(*.txt)|*.txt| 批处理文件(*.bat)|*.bat" '设置过滤器 CommonDialog1.DefaultExt="txt“ '设置缺省文件扩展名为.txt CommonDialog1.FilterIndex=1 '指定缺省的过滤器为"所有文件(*.*)" CommonDialog1.ShowSave ‘显示“另存为”对话框 OF=CommonDialog1.filename '用变量OF保存选定文件的名字

10.4 通用对话框（CommonDialog）控件（五） 用通用对话框控件生成各种对话框（四） “打印”对话框：通过ShowPrinter方法可以显示“打印”对话框 常用属性（一） Copies属性：设置并保存要打印的份数 （语法：commondialog1.Copies[=number]） FormPage和ToPage属性：设置要打印的起始和终止页号 （语法：commondialog1.FromPage[=number] commondialog1.ToPage[=number]） hDC属性：设置与打印机有关的上下文文件号（ID） （语法：commondialog1. hDC） PrinterDefault属性：设置是否可以在“打印”对话框中改变打印机的缺省设置（语法：commondialog1.PrinterDefault[=boolean]） Max和Min属性：设置可打印的最大页号和最小页号 （语法：commondialog1.Max[=number] commondialog1.Min[=number]）

10.4 通用对话框（CommonDialog）控件（六） 用通用对话框控件生成各种对话框（五） “打印”对话框 常用属性（二） FilterIndex属性：设置缺省的文件过滤器 （语法：commondialog1.FilterIndex[=number]） Flags属性：设置对话框的选项 （语法：commondialog1.Flags[=value]） 【例10.10】将以下代码放入某对象的Click事件中，将显示 “打印”对话框。 Dim BeginPage,EndPage,NumCopies '定义用于存放打印起始页号、打印结束页号、打印份数的变量 CommonDialog1.Min=1 '设置可打印的最小页号 CommonDialog1.Max=16 '设置可打印的最大页号 CommonDialog1.ShowPrinter '显示"打印"对话框 BeginPage=CommonDialog1.FromPage '从该对话框取得要打印的起始页号的值 EndPage=CommonDialog1.ToPage '从该对话框取得要打印的结束页号的值 NumCopies=CommonDialog1.Copies '从该对话框取得打印份数的值

10.4 通用对话框（CommonDialog）控件（七） 用通用对话框控件生成各种对话框（六） “字体”对话框：通过Showfont方法可以显示“字体”对话框 常用属性（一） Flags属性：设置对话框的选项 （语法：commondialog1.Flags[=value]） Color属性：保存被选定的颜色属性 （语法：commondialog1.Color[=number]） FontName属性：返回被选定的字体的名称 （语法：commondialog1.FontName[=font]） FontSize属性：返回被选定的字体的大小 （语法：commondialog1.FontSize[=number]） FontBold、FontItalic属性：确定是否选择粗体、斜体

10.4 通用对话框（CommonDialog）控件（八） 用通用对话框控件生成各种对话框（七） “字体”对话框 常用属性（二） FontUnderline、FontStrikethru属性：确定是否选择下划线、删除线 【例10.11】将以下代码放入某一对象的Click事件中，将显示“字体”对话框 CommonDialog1.Flags=cdlCFEffectsOrcdlCFBoth '为了显示"字体"对话框，首先设置Flags属性 CommonDialog1.ShowFont '显示"字体"对话框 Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color '将文本框的字体设置为选择的字体

10.4 通用对话框（CommonDialog）控件（九） 用通用对话框控件生成各种对话框（八） “颜色”对话框：通过ShowColor方法可以显示“字体”对话框 常用属性（一） Color属性：用于设置默认的颜色，并在运行时获取所选择的颜色 Flags属性：设置对话框的选项 （语法：commondialog1.Flags[=value]） 【例10.12】将以下代码放入某一对象的Click事件中，将显示 “颜色”对话框，并设置窗体的背景色（BackColor）为选定的颜色。 CommonDialog1.Flags=cdlCCRGBInit ‘设置Flags属性，从而为对话框设置默认的颜色值 CommonDialog1.ShowColor '显示"颜色"对话框 Form1.BackColor=CommonDialog1.Color '设置窗体的背景颜色为选定的颜色

10.4 通用对话框（CommonDialog）控件（十） 用通用对话框控件生成各种对话框（九） “帮助”对话框：通过Showhelp方法可以显示“字体”对话框 常用属性（一） HelpCommand属性：设置联机帮助的类型 （语法：commondialog1.HelpCommand[=value]） HelpKey属性：设置帮助主题的关键字 （语法：commondialog1.HelpKey[=string]） HelpFile属性：设置要显示的帮助文件 （语法：commondialog1.HelpFile[=filename]） HelpContext属性：设置或者返回所需帮助主题的上下文文件号（ID） （语法：commondialog1.Help Context[=string]） 【例10.13】将以下代码放入某一对象的Click事件中，将显示“帮助”对话框，该对话框中显示了指定的帮助文件。 CommonDialog1.HelpFile = "C:\WINDOWS\HELP\MPLAYER2.HLP" '设置帮助文件驱动器名、目录名及名称 CommonDialog1.HelpCommand=cdlHelpContents '显示Visual Basic帮助目录主题 CommonDialog1.ShowHelp '显示“帮助”对话框

10.5 自定义对话框 创建用作自定义对话框的窗体 设置自定义对话框 自定义对话框的加载、显示、隐藏和卸载 从“工程”菜单中选取“添加窗体” 10.5 自定义对话框 创建用作自定义对话框的窗体 从“工程”菜单中选取“添加窗体” 在工具栏上单击“添加窗体”按钮 设置自定义对话框 设置对话框的标题 设置对话框的属性 添加和放置命令按钮 设置缺省按钮、取消按钮和焦点 使对话框上的控件无效 自定义对话框的加载、显示、隐藏和卸载 将对话框装入内存但不显示 装入并显示模态对话框 装入并显示非模态对话框 显示已装入内存的对话框 从视窗中隐藏对话框 从视窗中隐藏对话框，并将其从内存中卸载

思考与练习 填空题 对话框可分为 对话框和 对话框两种类型。其中 对话框最常用。 对话框可分为 对话框和 对话框两种类型。其中 对话框最常用。 MsgBox函数的返回值中，VBOk表示单击了 按钮，VBCancel表示单击了 按钮，VBAbort表示单击了 按钮，VBRetry表示单击了 按钮，VBIgnore表示单击了 按钮，VBYes表示单击了 按钮，VBNo表示单击了 按钮。 针对通用对话框（CommonDialog）控件，使用 方法可以显示“打开”对话框，使用 方法可以显示“另存为”对话框，使用 方法可以显示“打印”对话框，使用 方法可以显示“字体”对话框，使用 方法可以显示“颜色”对话框，使用 方法可以显示“帮助”对话框。 自定义对话框中通常不包括 、 、 与 按钮、 以及 。

思考与练习 简答题 简要说明模态对话框与非模态对话框的区别，并分别举例说明。 如何在工具箱中加入通用对话框（CommonDialog）控件？ 如何设置自定义对话框？