首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上添加一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为l的标签。将窗体的标题设置为“文件
在名称为Forml的窗体上添加一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为l的标签。将窗体的标题设置为“文件
admin
2020-04-08
22
问题
在名称为Forml的窗体上添加一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为l的标签。将窗体的标题设置为“文件系统控件”,如图所示。请编写适当的程序,使得这三个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将在Label2中显示选中的文件名。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
【操作步骤】 步骤I:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图4.28所示。 [*] 程序中用到的控件及属性见表4.39和表4.40。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Dirl_Change() Filel.Path=Dirl.Path’使目录列表框Dirl与文件列表框Filel同步 End Sub Private Sub Drivel ()_Change Dirl.Path=Drivel.Drive′使驱动列表框Drive 1与目录列表框Dirl同步 End Sub Private Sub Filel—C1ick() Label2=Filel.FileName′显示Filel中的文件名 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】在编写代码时,“l”(L)和1比较相似,注意不要混淆。
解析
在实际应用中,驱动器列表框、目录列表框和文件列表框通常需要同步操作,这可以通过Path属性的改变引发Change事件来实现。
转载请注明原文地址:https://kaotiyun.com/show/ANTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12一kNe
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpen
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
随机试题
防范是社会治安综合治理的首要环节。()
能够经阴道自然分娩的胎方位是
患儿,男,7岁,下前牙长出“双排牙”,经检查,前排牙松动I度,后排牙位于牙列舌侧。最可能的诊断是
肺气肿时,心脏浊音界的改变多为
具有行气、消积功效的药物是
小茴香的功效为
隔室的设置与铠装型一样,但隔室的隔板用绝缘材料,结构紧凑是什么金属封闭开关设备特点?()
诉讼代理人是代理当事人进行民事诉讼活动的人,下列能够作为诉讼代理人的包括()。
已知比邻全体学生的某项测验分数为正态分布,σ2=16,从总体中抽取16名被试,求出了他们的平均分数为38分,则总体平均数0.95的置信界限是()
打开数据库的命令是()。
最新回复
(
0
)