首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Commandl的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码: ①设置适当属性,使对话框的标题为“打开
在名称为Forml的窗体上添加一个名称为Commandl的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码: ①设置适当属性,使对话框的标题为“打开
admin
2020-04-08
54
问题
在名称为Forml的窗体上添加一个名称为Commandl的命令按钮,标题为“打开文件”,再添加一个名称为CD1的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:
①设置适当属性,使对话框的标题为“打开文件”;
②设置适当属性,使对话框的“文件类型”下拉式组合框中有两项可供选择:“文本文件”、“所有文件”(如图所示),默认的类型是“所有文件”;
③编写命令按钮的事件过程,使得单击按钮可以弹出“打开文件”对话框。
要求:程序中不得使用变量,事件过程中只能写入一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为Bjtl.vbp,窗体文件名保存为sjt1.frm。
选项
答案
【操作步骤】 步骤1:新建一个窗体,按照要求建立控件并设置其属性,如图4.21所示。程序中用到的控件及属性见表4.13。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 PriVate Sub Command1_Click() CD1.ShowOpen′显示打开文件对话框 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】对话框的属性设置不仅可以在属性窗口中设置,也可以在属性页对话框中设置。打开“属性页”对话框的方法是在窗体上的通用对话框控件上单击鼠标右键,在弹出的快捷菜单中选择“属性”命令。通用对话框控件“属性页”对话框中有5个选项卡,因此要注意对不同类型的对话框设置属性,就要选择不同的选项卡。
解析
通用对话框是一种ActiveX控件,在一般情况下,启动Visual Basic后,在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中,其操作步骤如下:执行“工程”菜单中的“部件”命令,打开“部件”对话框,在对话框中,选择“控件”选项卡,然后在控件列表框中,选择“MicrosoftCommon Dialog Contml 6.0”,再单击“确定”按钮,通用对话框立即被加到工具箱中。通用对话框的属性可以在属性窗口中直接设置。
转载请注明原文地址:https://kaotiyun.com/show/aATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是()。
计算z的值,当x大于等于y时,z=x;否则z=y。下列语句中错误的是()。
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是()。
层次型、网状型和关系型数据库划分原则是( )。
对关系S和R进行集合运算,结果中既包含S中的所有元组也包含R中的所有元组,这样的集合运算称为()。
线性表常采用的两种存储结构是()。
在软件生产过程中,需求信息的来源是()。
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
随机试题
A.以激素调节为主B.以神经调节为主C.以代谢物反馈调节为主D.受靶腺激素和下丘脑调节肽双重调节雌激素分泌
下列关于使用隔离衣的方法哪项不正确()
气瘤的临床特点是:
A、脱壳B、松片C、黏冲D、顶裂E、裂片片剂表面不光、不平或有凹痕的现象,称为
财政部规定的38项具体会计准则及其应用指南属于会计法律制度中的()。
下列有关诉讼时效的表述中,正确的是()。
以反映和体现被考评者的品质特征的指标为主体构成的考评体系是()。
在平面直角坐标系中,不等式组表示的平面区域是().
()比较系统地初步总结了“大跃进”以来经济建设工作的基本经验教训。
Intelligenceusedtobeseenasafixedentity,somefacultyofthemindthatweallpossessandwhichdeterminesinsomewayst
最新回复
(
0
)