《《Visual+Basic语言程序设计基础（第3版）》第10章+对话框》由会员分享，可在线阅读，更多相关《《Visual+Basic语言程序设计基础（第3版）》第10章+对话框（17页珍藏版）》请在金锄头文库上搜索。
1、,第10章 对 话 框,知识要点,学习任务,消息对话框的功能、用法及使用技巧,输入对话框的功能、用法及使用技巧,通用对话框控件的功能、用法及使用技巧,自定义对话框的功能、用法及使用技巧,了解对话框的分类及各类对话框的功能,理解消息对话框和输入对话框的语法及各参数的含义，通用对话框控件的各种属性、方法和事件的功能及含义,掌握各类对话框的创建方法及技巧,对话框可分为模态对话框和非模态对话框两种类型。,模态对话框,显示重要信息的对话框一般都是模态对话框,在继续执行应用程序的其他操作之前，必须先被关闭（隐藏或卸载），或对它的提示做出响应,非模态对话框,允许在关闭对话框之前对应用程序的其他部分做出响应或
2、操作,只是用来显示频繁使用的命令与信息,创建对话框的方法,使用,MsgBox,函数来创建消息对话框,使用,InputBox,函数来创建输入对话框,通过,CommonDialog,控件来创建各种通用对话框,通过窗体来创建自定义对话框,10.1,对话框的分类,基本功能：,用来在应用程序运行时提示输入相关信息,语法：,InputBox,(prompt,title,default,xpos,ypos,helpfile,context,),【例 10.1】,Dim,Msg,Title,Default,Myapoint,定义相关变量,Msg=,请输入您的判断结果（,Y/N,）：,设置提示信息,Title=
3、,判断结果输入框,设置标题,Default=Y,设置缺省值,Myapoint=InputBox,(Msg,Title,Default,100,100),在,100,100,位置显示对话框，并显示输入提示信息、标题及缺省值,MyValue=InputBox,(,Msg,Title,h.hlp,10),使用帮助文件及上下文，帮助按钮将会自动出现,10.2,输入对话框,基本功能：,用来在应用程序中显示信息,语法：,MsgBox,(prompt,buttons,title,helpfile,context,),【例 10.2】,Dim Msg,Style,Title,Response,Str1,声名相
4、关变量,Msg=,继续吗,?,定义信息,Style=vbYesNo+vbCritical+vbDefaultButton2,定义按钮,Title=,操作提示对话框,定义标题,Response=MsgBox,(,Msg,Style,Title,),显示消息框,If,Response=vbYes,Then,用户按下,是,按钮,MsgBox,继续执行完毕！,执行某操作,Else ,用户按下,否,按钮,MsgBox,不执行操作！,执行某操作,End If,10.3,消息对话框,基本功能：,用于创建具有标准界面和使用方法的公共对话框，利用这些对话框可以完成文件的打开和保存、打印机选项的设置、颜色和字体的
5、选择等操作,使用方法,在工具箱中加入通用对话框（,CommonDialog,）,控件,在窗体中加入通用对话框控件,设置通用对话框控件的属性,通过“属性”窗口直接设置,通过“属性页”对话框中进行设置,通过程序代码进行设置,10.4,通用对话框（,CommonDialog,）,控件（一）,用通用对话框控件生成各种对话框,（一）,“打开”对话框：,通过,ShowOpen,方法可以显示“打开”对话框,常用属性（一）,DialogTitle,属性：,返回或设置显示在对话框标题栏中的文本,（语法：,commondialog1.DialogTitle=string,）,FileName,属性：,设置缺省的文
6、件名，并返回最后被选中的文件名称,（语法：,commondialog1.FileName=string,）,InitDir,属性：,设置缺省的文件目录，并返回最后被选中的文件目录,（语法：,commondialog1.InitDir=string,）,Filter,属性：,设置文件过滤器（格式：,描述通配符,）,FilterIndex,属性：,设置缺省的文件过滤器,（语法：,commondialog1.FilterIndex=number,）,Flags,属性：,设置对话框的选项,（语法：,commondialog1.Flags=value,）,10.4,通用对话框（,CommonDialog
7、,）,控件（二）,用通用对话框控件生成各种对话框,（二）,常用属性（二）,MaxFileSize,属性：,设置将要被打开的文件名的最大尺寸,（语法：,commondialog1.MaxFileSize=number,）,【,例10.7】,将以下代码放入某一对象的,Click,事件中，将显示“打开”对话框，并在“文件名”信息框中显示所选的文件名。,Dim SF As String,定义用于存放文件名的变量,CommonDialog1.Flags=&H10&Or&H4&,设置,Flags,属性，使对话框含有,“,帮助,(,H)”,按钮并隐去,以只读方式打开,复选框,CommonDialog1.Fi
8、lter=,所有文件,(*.*)|*.*|,文本文件,(*.,txt)|*.txt|,批处理文件,(*.,bat)|*.bat,设置过滤器,CommonDialog1.FilterIndex=2 ,指定缺省的过滤器为,文本文件,(*.,txt),CommonDialog1.ShowOpen ,使用,ShowOpen,方法显示,打开,对话框,SF=CommonDialog1.filename ,用变量,SF,保存选定要打开的文件的名字,10.4,通用对话框（,CommonDialog,）,控件（三）,用通用对话框控件生成各种对话框,（三）,“另存为”对话框：,通过,ShowSave,方法可以显示
9、“另存为”对话框,【例10.8】,将以下代码放入某一对象的,Click,事件中，将显示“另存为”对话框，然后在“文件名”信息框中显示选定的文件的名字。,Dim OF As String ,定义用于存放文件名的变量,CommonDialog1.Flags=&H10&Or&H4&,设置对话框含有帮助(,H),按钮，并且隐去以只读方式打开复选框,CommonDialog1.Filter=,所有文件(*.*)|*.*|文本文件(*.,txt)|*.txt|,批处理文件(*.,bat)|*.bat,设置过滤器,CommonDialog1.DefaultExt=txt“,设置缺省文件扩展名为.,txt,C
10、ommonDialog1.FilterIndex=1 ,指定缺省的过滤器为所有文件(*.*),CommonDialog1.ShowSave ,显示“另存为”对话框,OF=CommonDialog1.filename ,用变量,OF,保存选定文件的名字,10.4,通用对话框（,CommonDialog,）,控件（四）,用通用对话框控件生成各种对话框,（四）,“打印”对话框：,通过,Show,Printer,方法可以显示“打印”对话框,常用属性（一）,Copies,属性：,设置并保存要打印的份数,（语法：,commondialog1.Copies,=number,）,FormPage,和,ToPa
11、ge,属性：,设置要打印的起始和终止页号,（语法：,commondialog1.FromPage,=number,commondialog1.ToPage,=number,）,hDC,属性：,设置与打印机有关的上下文文件号（,ID）,（语法：,commondialog1.,hDC,）,PrinterDefault,属性：,设置是否可以在“打印”对话框中改变打印机的缺省设置（语法：,commondialog1.PrinterDefault,=boolean,）,Max,和,Min,属性：,设置可打印的最大页号和最小页号,（语法：,commondialog1.Max,=number,commond
12、ialog1.Min,=number,）,10.4,通用对话框（,CommonDialog,）,控件（五）,用通用对话框控件生成各种对话框,（五）,“打印”对话框,常用属性（二）,FilterIndex,属性：,设置缺省的文件过滤器,（语法：,commondialog1.FilterIndex,=number,）,Flags,属性：,设置对话框的选项,（语法：,commondialog1.Flags,=value,）,【例10.10】,将以下代码放入某对象的,Click,事件中，将显示“打印”对话框。,Dim,BeginPage,EndPage,NumCopies,定义用于存放打印起始页号、打
13、印结束页号、打印份数的变量,CommonDialog1.Min=1,设置可打印的最小页号,CommonDialog1.Max=16,设置可打印的最大页号,CommonDialog1.ShowPrinter,显示打印对话框,BeginPage=CommonDialog1.FromPage,从该对话框取得要打印的起始页号的值,EndPage=CommonDialog1.ToPage,从该对话框取得要打印的结束页号的值,NumCopies=CommonDialog1.Copies ,从该对话框取得打印份数的值,10.4,通用对话框（,CommonDialog,）,控件（六）,用通用对话框控件生成各种
14、对话框,（六）,“字体”对话框：,通过,Show,font,方法可以显示“字体,”,对话框,常用属性（一,）,Flags,属性：,设置对话框的选项,（语法：,commondialog1.Flags,=value,）,Color,属性：,保存被选定的颜色属性,（语法：,commondialog1.Color,=number,）,FontName,属性：,返回被选定的字体的名称,（语法：,commondialog1.FontName,=font,）,FontSize,属性：,返回被选定的字体的大小,（语法：,commondialog1.FontSize,=number,）,FontBold、Fon
15、tItalic,属性：,确定是否选择粗体、斜体,10.4,通用对话框（,CommonDialog,）,控件（七,）,用通用对话框控件生成各种对话框,（七）,“字体”对话框,常用属性（二,）,FontUnderline、FontStrikethru,属性：,确定是否选择下划线、删除线,【例10.11】,将以下代码放入某一对象的,Click,事件中，将显示“字体”对话框,CommonDialog1.Flags=cdlCFEffectsOrcdlCFBoth,为了显示字体对话框，首先设置,Flags,属性,CommonDialog1.ShowFont ,显示字体对话框,Text1.Font.Name
16、=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,）,控件（八,）,用通用对话框控件生成各种对话框,（八）,“颜色”对话框：,通过,Show,Color,方法可以显示“字体,”,对话框,常用属性（一,）,Color,属性：,用于设置默认的颜色，并在运行时获取所选择的颜色,Flags,属性：,设置对话框的选项,（语法：,commondialog1.Flags,=value,）,【例10.12】,将以下代码
