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

admin2020-07-22  54

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

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

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

答案C

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

最新回复(0)