（9）窗体上己有名称分别为Drive 1 Dirl File 1的驱动器列表框 目录列表框和文件列表框 且有1个名
列表,窗体,驱动器
已帮助 人
(9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在Filel中，如果双击File 1中的某个文件，则在Textl中显示该文件的内容。
请填空。
Private Sub Form_ Load()
Filel．Pattern=【13】
End Sub
Private Sub Drive 1_ Change()
Dir 1.Path＝Drive 1．Drive
End Sub
Private Sub Dirl _Change()
File 1.Path＝Dirl.Path
End Sub
Private Sub Filel_DblClick()
Dim s As String*1
If Right(Filel .Path, 1）="＼"Then
f_ name＝File 1.Path＋File l .FileName
Else
f name＝File 1．Path＋""＋File 1．FileName
End If
Open f_ name【14】As＃1
Text 1．Text=""
Do While【15】
s＝Input(1，＃1）
Text 1 ．Text＝Text 1 ．Text＋s
Loop
Close＃1
End Sub
热搜：听小骨有三块,分别为