第12章 对话框程序设计

《第12章 对话框程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic语言程序设计第12章对话框程序设计第12章对话框程序设计12.1概述12.2文件对话框12.3其他对话框212.1概述对话框(DialogBox)是一种特殊的窗口(窗体)，它通过显示和获取信息与用户进行交流。尽管对话框有自己的特性，但从结构上来说，对话框与窗体是类似的。12.1.1对话框的分类与特点12.1.2自定义对话框12.1.3通用对话框控件312.1.1对话框的分类与特点1对话框的分类VisualBasic中的对话框分为3种类型：预定义对话框：输入框和信息框自定义对话框：用户根据需

2、要自行建立通用对话框：使用通用对话框控件创建412.1.1对话框的分类与特点2对话框的特点(1)在一般情况下，边框是固定的。(2)退出对话框时，必须单击其中的某个按钮，不能通过单击对话框外部的某个地方关闭对话框。(3)不能有最大化和最小化按钮。(4)对话框不是应用程序的主要工作区，只是临时使用，使用后就关闭。(5)对话框中控件的属性可以在设计阶段设置，但在有些情况下，必须在运行时(即在代码中)设置控件的属性。512.1.2自定义对话框当设计窗体时，将窗体的某些外观属性改变，即可看成是一个对话框。比如：Contr

3、olBox——False（取消控制框）MaxButton——False（去掉最大化按钮）MinButton——False（去掉最小化按钮）BorderStyle——3-FixedDialog（边框固定）普通窗体外观对话框外观612.1.3通用对话框控件(1)执行“工程”菜单中的“部件”命令，打开“部件”对话框。(2)在对话框中选择“控件”选项卡，然后在控件列表框中选择“MicrosoftCommonDialogControl6.0”，确定。通用对话框控件712.1.3通用对话框控件通用对话框的Action属性和

4、Show方法可以让通用对话框控件显示为不同的对话框。例：CommonDialog1.action=1CommonDialog1.ShowOpen作用一样，都是显示“打开”对话框812.2文件对话框文件对话框文件对话框分为两种，即打开(Open)文件对话框和保存(SaveAs)文件对话框。打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件。12.2.1文件对话框的结构12.2.2文件按对话框的属性12.2.3文件对话框举例912.2.1文件对话框的结构

5、从结构上来说，“打开”和“保存”对话框是类似的。和Windows其他应用程序的打开和另存为对话框一样。1012.2.2文件对话框的属性(1)DefaultEXT属性设置对话框中默认文件类型，即扩展名。(2)DialogTitle属性该属性用来设置对话框的标题。(3)FileName属性用来设置或返回要打开或保存的文件的路径及文件名。(4)FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。1112.2.2文件对话框的属性(5)Filter属性用来指定在对话框中显示的文件类型。(6)Filte

6、rIndex属性用来指定默认的过滤器，其设置值为一整数。(7)Flags属性为文件对话框设置选择开关，用来控制对话框的外观。(8)InitDir属性用来指定对话框中显示的起始目录。1212.2.2文件对话框的属性(9)MaxFileSize属性设定FileName属性的最大长度。(10)CancelError属性如果该属性被设置为True，则当单击Cancel(取消)按钮关闭一个对话框时，将显示出错信息，如果设置为False(默认)，则不显示出错信息。11)HelpCommand属性指定Help的类型。1312

7、.2.2文件对话框的属性(12)HelpContext属性用来确定HelpID的内容，与HelpCommand属性一起使用，指定显示的Help主题。(13)HelpFile和HelpKey属性分别用来指定Help应用程序的Help文件名和Help主题能够识别的名字。通用对话框类似于计时器，在设计应用程序时，可以把它放在窗体中的任何位置，其大小不能改变，程序运行时不出现在窗体上。1412.2.3文件对话框举例例：在窗体上的按钮控件编写如下代码：PrivateSubCommand1_Click()CommonDia

8、log1.FileName=""CommonDialog1.Flags=vbOFNFileMustExistCommonDialog1.Filter="AllFiles

9、*.*

10、(*.exe)

11、*.exe

12、(*.TXT)

13、*.TXT"CommonDialog1.FilterIndex=3CommonDialog1.DialogTitle="OpenFile(*.EXE)"CommonD