Question

<vb> 如何使用filelistbox显示和textbox来显示txt文档？

Answer 1

在窗体控件中放置一个FileListBox控件和一个TextBox控件，将FileListBox的Pattern属性改为“*.txt”，将TextBox的MultiLine属性改为True。
将以下语句复制到代码中
Option
Explicit
Private
Sub
File1_Click()
Dim
tFileName
As
String,
tFileNumber
As
Integer,
tLoad
As
String,
tText
As
String
tFileName
=
Replace(File1.Path
&
"\"
&
File1.FileName,
"\\",
"\")
tFileNumber
=
FreeFile
Open
tFileName
For
Input
As
#tFileNumber
Do
While
Not
EOF(tFileNumber)
Line
Input
#tFileNumber,
tLoad
tText
=
tText
&
tLoad
&
vbCrLf
DoEvents
Loop
Close
#tFileNumber
Text1.Text
=
tText
End
Sub
运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。
然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。:)