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

admin2019-03-14  28

问题   在设窗体上有一个通用对话框控件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.FileName="文本文件"

答案C

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

最新回复(0)