首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框: Private Sub Command1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:"
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框: Private Sub Command1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:"
admin
2019-06-20
43
问题
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:
Private Sub Command1_Click()
CD1.DialogTitle="打开文件"
CD1.InitDir="C:"
CD1.Filter="所有文件|*.*|word文档|*.doc|文本文件|*.txt"
CD1.FileNalne=""
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.Fiker="后面字符串中的"所有文件"改为"文本文件"
C、在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
D、把CD1.FileName=""改为CD1.FileName="文本文件"
答案
C
解析
在通用对话框控件中,Filter属性指定了在对话框中显示的文件类型,该属性可以设置多个文件类型,每种文件类型由文件描述和文件通配符与扩展名组成,并由“I”隔开。FilterIndex属性用来指定默认的过滤器,Filter属性中设置了多个过滤器后,每个过滤器的对应的值按从左到右顺序是l、2…,FilterIndex属性默认为1,即第一个过滤器,因此程序中会显示C:\下的所有文件。应该在通话框打开之前(CD1.Action=1之前)添加CD1.FilterIndex=3,即使默认过滤器为第3个过滤器。
转载请注明原文地址:https://jikaoti.com/ti/NPN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据流图中带有箭头的线段表示的是
在标准模块中,将a定义为全局整型变量的语句是
VB中,若没有显式声明变量的数据类型,则默认的类型是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsStringC=UC
定时器的Interval属性的值是一个整数,它表示的是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
假定有以下循环结构DoUntil条件表达式循环体Loop则以下正确的描述是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
在考生文件夹下有一个数据库文件“samp1.accdb”。在数据库文件中已经建立了一个表对象“学生基本情况”。根据以下操作要求,完成各种操作。(1)将“学生基本情况”表名称改为“tStud”。(2)设置“身份ID”字段为主键;并设置“身
随机试题
小柴胡汤中,君药是小柴胡汤中,臣药是
患儿,男,1岁。诊断为室间隔缺损8个月。3天前出现发热,咳嗽,近1天来,咳嗽、呼吸急促,三凹症明显,尿少,急诊入院。查体:T38℃、P160次/分,R55次/分,肝肋下5cm。诊断室间隔缺损合并心力衰竭。服用强心苷时,可观察到循环系统的中毒反应有
院内感染所致肺炎中,主要病原体是()。
后张法预应力筋张拉时,要求混凝土弹性模量应不低于28d弹性模量的()。
证券经纪商禁止发生下列()行为。
据企业破产法律制度的规定,下列债务中,债权人应在人民法院确定的期限内进行债权申报的有()。
现代教学设计有哪些基本特征?
你有工作能力但得不到领导的认可怎么办?
春山暖日和风∶阑干楼阁帘栊
Tight-lippedeldersusedtosay,"It’snotwhatyouwantinthisworld,butwhatyouget."Psychologyteachesthatyoudogetw
最新回复
(
0
)