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

admin2019-06-20  25

问题 设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:
    Private Sub Command1_Click()
    CD1.DialogTitle="打开文件"
    CD1.InitDir="C:"
    CD1.Filter=|所有文件|*.*|Word文档|*.doc*文本文件|*.txt"
    CD1.FileName=""
    CD1.Action=1
    If CD1.FileName=""Then
    Print"未打开文件"
    Else
    Print"要打开文件"&CD1.FileName
    End If
    End Sub

但实际显示的对话框中列出了C:\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是(    )。

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

答案C

解析 在通用对话框控件中,Filter属性指定了在对话框中显示的文件类型,该属性可以设置多个文件类型,每种文件类型由文件描述和文件通配符与扩展名组成,并由“|”隔开。FilterIndex属性用来指定默认的过滤器,Filter属性中设置了多个过滤器后,每个过滤器的对应的值按从左到右顺序是l、2…,FilterIndex属性默认为1,即第一个过滤器,因此程序中会显示c:\下的所有文件。应该在通话框打开之前(CD1.Action=1之前)添加CD1.FilterIndex=3,即使默认过滤器为第3个过滤器。
转载请注明原文地址:https://kaotiyun.com/show/mgUp777K
0

随机试题
最新回复(0)