首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体form1上有一个驱动器列表控件Drivel,一个目录列表控件Dirl,一个文件列表控件File1,一个富文本控件Richtexbox1。要求程序运行以后,用户可以利用。Drivel选择不同驱动器,同时Dirl中显示当前选中的驱动器的目录,用户利用D
在窗体form1上有一个驱动器列表控件Drivel,一个目录列表控件Dirl,一个文件列表控件File1,一个富文本控件Richtexbox1。要求程序运行以后,用户可以利用。Drivel选择不同驱动器,同时Dirl中显示当前选中的驱动器的目录,用户利用D
admin
2009-02-13
59
问题
在窗体form1上有一个驱动器列表控件Drivel,一个目录列表控件Dirl,一个文件列表控件File1,一个富文本控件Richtexbox1。要求程序运行以后,用户可以利用。Drivel选择不同驱动器,同时Dirl中显示当前选中的驱动器的目录,用户利用Dirl选择文件所在的文件夹,在Filel控件中将显示当前选中的文件夹下的文件,用户选中其中某个文件(假设为文本文件),则该文件的内容显示在控件Richtexboxl中。补充相应的语句,使之完成所述的功能。
Private Sub Dirl_Change()
【 】
End Sub
Private Sub Drive1_Change()
【 】
End Sub
Private Sub Filel _Click()
Dim fname AS String
If【 】Then
fname=Filel.Path & Filel.FileName
Else
fname=Filel.Path& "\" & Filel.FileName
End If
RichTextBox1.LoadFile(fname)
End Sub
选项
答案
File1.Path=Dir1.Path , Dirl.Path=Drive1.Drive , Right $(Dir1.Path,1)="\")
解析
先看空【 】处,要使得文件列表控件与目录列表控件同步(也就是当目录列表控件中目录改变时,文件列表控件中应该始终显示当前选中的目录下的文件),应该使用语句File1.Path=Dir1.Path;接下来,在空【 】处为了使得目录列表控件与驱动器列表控件保持同步,应该使用的语句为Dirl.Path=Drive1.Drive;在空【 】处,是要使当前选中的文件的内容显示在富文本控件中,需要注意的是,在使用富文本控件 Rich TextBox1 的LoadFile方法时,参数应该是包括路径和文件名的filename值。
转载请注明原文地址:https://kaotiyun.com/show/w72p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设计程序时,应采纳的原则之一是
char类型的取值范围是
执行下面的赋值语句后,a的值为【】。a=Float.valueOf("134")floatValue();
下列命令中,以下哪个命令能为远程对象生成stub和skeleton
下列程序中,若从键盘中输入的是大写字母c,则程序输出的结果是importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){
下列关于正则表达式的说法,不正确的是
下面哪个是合法的标识符?
线程控制方法中,yield()的作用是()。
下列代码中if(x>0){System.out.println("first");}elseif(x>-3)(System.out.println("second");}else{System.out.println("third");}要
在Java语言中,类按照程序设计所需要的常用方法和接口封装成【】。
随机试题
态度会对下列哪种行为产生影响()
Televisionhasopenedwindowsineverybody’slife.Youngmenwillneveragaingotowarastheydidin1914.Millionsofpeople
国家基本药物的遴选原则是
请根据以下案例,回答以下问题小王大学毕业,即将踏入工作岗位,但她对我国的养老保险制度一无所知,觉得自己还很年轻,刚参加工作,不知道是否也应该早日对以后的退休养老进行规划,于是向理财规划师就我们的养老保险制度进行了咨询。社会养老保险是在法定范围内的老年
特定对象以资产认购而取得上市公司股份的实际控制权,则该股份自发行结束之日()个月内不得转让。
中央银行的货币政策工具主要有()。
桃花:花蕊
pyramidscheme
Whycouldn’tBettyjointhedancingparty?
Atsometimeinyourlifeyoumayhaveastrongdesiretodosomethingstrangeorterrible.However,chancesarethatyoudo
最新回复
(
0
)