在窗体form1上有一个驱动器列表控件Drivel 一个目录列表控件Dirl 一个文件列表控件Fil

大学专科 已帮助: 时间:2023-07-21 17:25:49

在窗体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
请帮忙给出正确答案和分析,谢谢!

难度:⭐⭐⭐

题库:大学专科,电子信息,计算机类

标签:驱动器,控件,文件

参考解答

用户头像

482***263

2023-07-21 17:25:49

正确答案:File1.Path=Dir1.Path Dirl.Path=Drive1.Drive Right $(Dir1.Path1)='\')
先看空【】处,要使得文件列表控件与目录列表控件同步(也就是当目录列表控件中目录改变时,文件列表控件中应该始终显示当前选中的目录下的文件),应该使用语句File1.Path=Dir1.Path;接下来,在空【】处为了使得目录列表控件与驱动器列表控件保持同步,应该使用的语句为Dirl.Path=Drive1.Drive;在空【】处,是要使当前选中的文件的内容显示在富文本控件中,需要注意的是,在使用富文本控件RichTextBox1的LoadFile方法时,参数应该是包括路径和文件名的filename值。

上一篇 【 】和软件开发方式及技木的落后是诱发软件危机的根本原因。请帮忙给出正确答案和分析 谢谢!

下一篇 表达式Fix(-465)+Int(-515)的值是【 】。请帮忙给出正确答案和分析 谢谢!

相似问题