2. 计算机
  3. 在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用D

在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用D

admin2009-02-13  72
问题 在窗体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://www.kaotiyun.com/show/w72p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)