2011年度计算机等级考试二级VB复习指导(52)

会计考友

　在应用程序中，常常需要执行打开或保存文件等操作，因此，也就常常需要调用【打开】对话框与【保存】对话框。　　【打开】对话框与【保存】对话框很相似，大多数属性都是共同的，这里一同介绍。
　　对话框控件的【属性】窗口中所列的DefaultExt、Filter等属性是针对【打开】。
5 a5 k- s. l' `　　对话框与【保存】对话框而言的，表5.8中列出了这些属性的含义。
3 Z2 r0 ?# I( U0 H! w
0 p9 V4 J% u) L; q; K6 ]　　设置Filter属性的格式为：
　　描述符1|过滤符1|描述符2|过滤符2|……
# B: h8 r! g5 N- X　　描述符是将要显示在对话框【文件类型】下拉列表中的文字说明，这是用户所看到的，可以随意指定。过滤符是由通配符和实际的文件扩展名组成的，如*.*表示所有文件，*.txt表示文本文件，*doc表示Word文档文件。过滤符是系统用于区分各种文件类型的。描述符与过滤符一一对应，缺一不可。
% u4 O; ^$ L$ E8 I　　如果Filter属性的设置为：
8 E  [  X1 H  q5 \8 F1 @7 l　　Word文档|*.doc|文本文件|*.txt|位图文件|*.bmpl|则在对话框中只显示扩展名为doc,txt和bmp的文件。

会计考友

在设置过滤器属性时，如有多个文件类型，则按序排号为1,2,3……，如FilterIndex=2,则在对话框的【文件类型】框中缺省显示的是描述符2。
　　Flags属性的值也可以是表6.9中两项或多项的相加。例如，Flags=7则表示对话框同时具备Flags=2和Flags=4的特性。
　　也可以通过对话框控件的属性页来设置对话框的属性。将鼠标移动到对话框控件上，单击右键，在弹出的快捷菜单中执行【属性】命令，则弹出如图6.9所示的【属性页】对话框。
3 \9 M7 h! O' _7 g$ j' n　　【属性页】对话框中的各选项与对话框控件【属性】窗口中的属性是相对应的，如【文件名称】选项对应FileName属性。通过【属性】窗口设置属性与通过属性页窗口设置属性是完全等同的。
　　还可以在程序运行阶段在代码中为各属性赋值，如下列语句将对话框的初始路径设置为：
) Y: q, T3 E5 h- D　　c:\windows:
　　CommandDialogl.InitDir=“c:\windows”
6 K1 u* j. J: D( O; o" }
% J$ m/ A# v6 ^　　实例6.4【打开】与【保存】对话框的使用
) H- K* V" V  d8 D! ]　　在该程序中，用户可以调用【打开】与【保存】对话框，并能获取用户打开或保存文件的路径以及名称。
　　可以使用两个通用对话框控释，分别调用【打一开】对话框与【保存】对话框。通过它们的属性页，可以分别设置它们的属性，如对话框的初始路径、文件类型等。也可以使用一个通用对话框控件来调用各对话框。为了使【打开】与【保存】对话框的属性设置不同，应该在程序运行阶段在代码中为各属性赋值。本例只使用一个通用对话框控件。
　　在窗体中放置两个标签控件、两个文本框控件、两个按钮控件和，一个通用对话框控件，其中各控件的属性设置如表6.10所示。

会计考友

Private Sub ComOpen_Click()
   CommonDialog1.DialogTitle=“打开文件”
   CommonDialog1.InitDir=“c:\windows”
   CommonDialog1.Filter=“图像文件|*.bmp|文本文件|*.txt|”
   CommonDialog1.FilterIndex=2
" ~, X: g/ z0 U   CommonDialog1.Flags=528
   CommonDialog1.Action=1
   TexOpen.Text=CommonDialog1.FileName
End Sub
　
; E8 h4 P9 F9 s2 v5 {( R
/ |: ~/ X" O8 z5 c- L1 ?　　在该段代码中，前5行代码设置对话框的属性，从中可以看出，对话框的标题为“打开文件”，初始路径为c:\windows 。能显示后缀为bmp和txt的文件，在【文件类型】栏中缺省显示的是“文本文件”，Flags=528表明它同时具有Flags=17和Flags=512的特性，在对话框中显示一个【帮助】按钮，并且允许用户同时选中多个文件。
) p* r) R# I/ G# Y+ [$ K) w0 I　　同样，将下列代码添加到ComOpen_Click事件过程中：
  Private Sub ComSave_Click()
   CommonDialog1.DialogTitle=“保存文件”
3 S+ r1 U1 h+ ^& c" V   CommonDialog1.InitDir=“f:\document”
   CommonDialog1.Filter=“word文档|*.doc|”
* w/ ]* q2 ]/ B0 n: F0 {/ }7 o   CommonDialog1.Flags=7
   CommonDialog1.Action=2
# I' }% ~6 @, |* T2 Q   TexOpen.Text=CommonDialog1.FileName
End Sub
. I- O5 ]* X7 ~* S# J! W　　

　　运行该程序，单击【打开】按钮，则弹出【打开文件】对话框，从中选择一个或多个文件，单击【确定】按钮后，【打开】文本框中将显示用户选择的文件名，若用户选择多个文件，则所选文件的文件名都显示在文本框中。单击【保存】按钮，则打开【保存文件】对话框，在【文件名】文本框中输入文件名，单击【保存】按钮后，在【保存】文本框中将显示用户保存的文件名。如果用户输入的文件名己经存在，则弹出消息框，提示用户此文件己经存在。