首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件
admin
2016-06-23
61
问题
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”,如图所示。请编写适当的程序,使得这三个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将在Label2中显示选中的文件名。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图3.28所示。 [*] 程序中用到的控件及属性见表3.39和表3.40。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub Dir1_Change() File1.Path=Dir1.Path’使目录列表框Dir1与文件列表框File1同步 End Sub Private Sub Drive1 Change() Dir1.Path=Drive1.Drive’使驱动列表框Drive1与目录列表框Dir1同步 End Sub Private Sub File1 Click() Label2=File1.FileName显示File1中的文件名 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/sSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
复选框的Value属性为0时,表示
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
执行语句Open"C:\StuData.dat"ForlnputAs#2后,系统
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx<6
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置并改正错误。
在下列关于二叉树的叙述中,正确的一项是
在Visual:Basic的立即窗口内输入以下语句:X=65<CR>PrintChr$(x)<CR>在窗口中显示的结果是
双击窗体中的对象后,VisualBasic将显示的窗口是
随机试题
女性,35岁,急性阑尾炎穿孔、阑尾切除术后第5天,发热、腹痛,腹泻每天3次,稀水便,腹壁切口未见明显红肿。最可能的并发症是
A.胸骨中段B.胸骨上1/3段C.胸骨下1/3段D.胸骨上1/2段E.胸骨下1/2段胸外按压的部位
治疗霍乱首选抗菌药物为( )。
下列哪味药长于清肺火及上焦实热
有关对城市道路工程冬期施工的说法中,正确的是()。
下列经济指标中,构成财务现金流量的基本要素的有()。
甲公司系增值税一般纳税人,采用公允价值模式计量投资性房地产。有关资料如下:资料一:2×18年12月1日甲公司与A公司签订协议,将自用的办公楼出租给A公司,租期为3年,每年不含税租金为1000万元,于每年年末收取,2×19年1月1日为租赁期开始日,2×2
从所给四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
监狱工作人员甲多次指使被关押的罪犯殴打其他被监管人,造成被殴打的人伤残。甲的行为构成()
Personalityistoalargeextentinherent——A-typeparentsusuallybringaboutA-typeoff-spring.Buttheenvironmentmustalsoh
最新回复
(
0
)