首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly
admin
2012-03-22
32
问题
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1FilterIndex=1 CommonDialog1ShowOpen MsgBox CommonDialog1FileName End Sub 程序运行后,单击命令按钮,将显示—个“打开”对话框,此时在“文件类型”框中显示的是
选项
A、All Files(*.*)
B、Text Files(*.txt)
C、Batch Files(*.bat)
D、All Files(*.*)|Text Files(*.txt)
答案
A
解析
通用对话框控件CommonDialog1的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型,供用户在对话框“文件类型”的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成,每对字符串用管道符“|”隔开,在管道符“|”前面的部分称为描述,后面的部分一般为通配符文件扩展名,称为“过滤器”。如“*.txt”等,各对字符串间也用管道符隔开。其格式如下:
[窗体.]对话框名.Filter="描述符1|过滤器1|描述符2|过滤器2……"
如果省略窗体,则为当前窗体。本题执行语句后,可以在文件类型栏内通过下拉列表选择要显示的文件类型,而最初默认显示的文件类型(过滤器)可以由FilterIndex属性来指定,该属性是一个整数。用Filter属性设置多个过滤器后,每个过滤器都有一个值,第一个过滤器的值为1,第二个过滤器的值为2……用FilterIndex属性可以指定作为默认显示的过滤器,本题中的值是1,所以显示All Files(*.*)。
转载请注明原文地址:https://kaotiyun.com/show/sThp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是______。
编写如下事件过程:PrivateSubForm_Click()k=2Ifk>=1ThenA=3Ifk>=2ThenA=2Ifk>=3ThenA=1PrintAEn
下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 PrivateSubCommand1_Click() DimnumXAsInteger numX=Val
下列数组定义语句错误的是
以下Prime过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数;如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整
在面向对象的程序设计中,类描述的是具有相似性质的一组【】。
任何控件都有的属性是
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是______。
下列有关数据库的描述,正确的是
在一棵二叉树上第6层的结点个数最多是【】个。
随机试题
税务机关实施特别纳税调查,应当重点关注的企业有()。
关于公平分担损失,下列表述正确的是()。
下述哪项辅助检查手段可发现局限黏膜的早期食管癌
《处方管理办法》适用于
()模块是会计核算软件的核心模块。
下列物质在水溶液中能大量共存的是()。
炎热的夏季,很多人都喜欢喝饮料来解渴。关于饮料,下列说法正确的是()。
下列哪一种结构属于文件的逻辑结构?()
下列叙述中不正确的是
ThecountriesthathavelefttheUnitedStatesbehindinmathandscienceeducationhaveonethingincommon:Theyofferthesam
最新回复
(
0
)