2015年计算机等级考试二级VB复习指导（52）
发布时间：2011/1/12 10:51:17 来源：城市学习网 编辑：ziteng
在应用程序中，常常需要执行打开或保存文件等操作，因此，也就常常需要调用【打开】对话框与【保存】对话框。
【打开】对话框与【保存】对话框很相似，大多数属性都是共同的，这里一同介绍。
对话框控件的【属性】窗口中所列的DefaultExt、Filter等属性是针对【打开】。
对话框与【保存】对话框而言的，表5.8中列出了这些属性的含义。
设置Filter属性的格式为：
描述符1|过滤符1|描述符2|过滤符2|……
描述符是将要显示在对话框【文件类型】下拉列表中的文字说明，这是用户所看到的，可以随意指定。过滤符是由通配符和实际的文件扩展名组成的，如*.*表示所有文件，*.txt表示文本文件，*doc表示Word文档文件。过滤符是系统用于区分各种文件类型的。描述符与过滤符一一对应，缺一不可。
如果Filter属性的设置为：
Word文档|*.doc|文本文件|*.txt|位图文件|*.bmpl|则在对话框中只显示扩展名为doc,txt和bmp的文件。 [NextPage] 在设置过滤器属性时，如有多个文件类型，则按序排号为1,2,3……，如FilterIndex=2,则在对话框的【文件类型】框中缺省显示的是描述符2。
Flags属性的值也可以是表6.9中两项或多项的相加。例如，Flags=7则表示对话框同时具备Flags=2和Flags=4的特性。
也可以通过对话框控件的属性页来设置对话框的属性。将鼠标移动到对话框控件上，单击右键，在弹出的快捷菜单中执行【属性】命令，则弹出如图6.9所示的【属性页】对话框。
【属性页】对话框中的各选项与对话框控件【属性】窗口中的属性是相对应的，如【文件名称】选项对应FileName属性。通过【属性】窗口设置属性与通过属性页窗口设置属性是完全等同的。
还可以在程序运行阶段在代码中为各属性赋值，如下列语句将对话框的初始路径设置为：
c:\windows:
CommandDialogl.InitDir=“c:\windows”
实例6.4【打开】与【保存】对话框的使用
在该程序中，用户可以调用【打开】与【保存】对话框，并能获取用户打开或保存文件的路径以及名称。
可以使用两个通用对话框控释，分别调用【打一开】对话框与【保存】对话框。通过它们的属性页，可以分别设置它们的属性，如对话框的初始路径、文件类型等。也可以使用一个通用对话框控件来调用各对话框。为了使【打开】与【保存】对话框的属性设置不同，应该在程序运行阶段在代码中为各属性赋值。本例只使用一个通用对话框控件。
在窗体中放置两个标签控件、两个文本框控件、两个按钮控件和，一个通用对话框控件，其中各控件的属性设置如表6.10所示。 [NextPage] Private Sub ComOpen_Click()
CommonDialog1.DialogTitle=“打开文件”
CommonDialog1.InitDir=“c:\windows”
CommonDialog1.Filter=“图像文件|*.bmp|文本文件|*.txt|”
CommonDialog1.FilterIndex=2
CommonDialog1.Flags=528
CommonDialog1.Action=1
TexOpen.Text=CommonDialog1.FileName
End Sub
在该段代码中，前5行代码设置对话框的属性，从中可以看出，对话框的标题为“打开文件”，初始路径为c:\windows 。能显示后缀为bmp和txt的文件，在【文件类型】栏中缺省显示的是“文本文件”，Flags=528表明它同时具有Flags=17和Flags=512的特性，在对话框中显示一个【帮助】按钮，并且允许用户同时选中多个文件。
同样，将下列代码添加到ComOpen_Click事件过程中：
Private Sub ComSave_Click()
CommonDialog1.DialogTitle=“保存文件”
CommonDialog1.InitDir=“f:\document”
CommonDialog1.Filter=“word文档|*.doc|”
CommonDialog1.Flags=7
CommonDialog1.Action=2
TexOpen.Text=CommonDialog1.FileName
End Sub
运行该程序，单击【打开】按钮，则弹出【打开文件】对话框，从中选择一个或多个文件，单击【确定】按钮后，【打开】文本框中将显示用户选择的文件名，若用户选择多个文件，则所选文件的文件名都显示在文本框中。单击【保存】按钮，则打开【保存文件】对话框，在【文件名】文本框中输入文件名，单击【保存】按钮后，在【保存】文本框中将显示用户保存的文件名。如果用户输入的文件名己经存在，则弹出消息框，提示用户此文件己经存在。
