设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框 Private Sub Command1_Click() CDl.DialogTitle=“打开文件” CDl.InitDir=“C:\” CDl.Filter=“所有文件

admin2010-04-10  28

问题 设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框
Private Sub Command1_Click()
CDl.DialogTitle=“打开文件”
CDl.InitDir=“C:\”
CDl.Filter=“所有文件I**Iword文档I*docI文本文件I*txt”
CDl.FileName=“”
CDl.Action=1
If CD1.FileName=””Then
Print“未打开文件”
Else
Print“要打开文件”&CDI.FileName
End If
End Sub
但实际显示的对话框中列出了C:\下的所有文件和文件夹,“文件类型”一栏中显示的足“所有文件”。下面的修改方案中正确的是

选项 A、把CDl.Action=1改为CDl.Action=2
B、把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C、在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
D、把CD1.FileName=“”改为CD1.FileName=“文本文件”

答案C

解析 FilterIndex是文件对话框的(过滤器索引)属性,用Filtez属性设置多个过滤器后,每个过滤器都有一个值,第一个过滤器的值为1,第二个过滤器的值为2,……,用FiherIndex属性可以设置或返回默认显示的过滤器,即用户在“文件类型”列表框中选取且显示在文件类型框中的文件类型,题中默认为“1”,即“所有文件”,改成“3”以后便是“文本文件”了。故答案C)正确。题中Action属性设用于打开指定种类的对话框,CD1.Action=1为“打开文件”对话框,而cDl.Action=2为打开“另存为”对话框,所以答案A)错误。如果按照答案B)的方法去做,结果是在“文本类型”后边的文本框显示“文本文件”,但是上边罗列出的还是所有文件。没有过滤“.txf”文件。选项D的结果是在“文件名”后边的文本框中显示:“文本文件”。
转载请注明原文地址:https://kaotiyun.com/show/KQmp777K
0

最新回复(0)