Question

VB读取当前目录所有TXT文件并分别按文件名存放在LIST1里，单击路径读取到TEXT1里

Answer 1

Private Sub Form_Load()
Dim a
a = Dir(App.Path & "\", vbHidden + vbDirectory)
Do While a <> ""
If GetAttr(App.Path & "\" & a) <> vbDirectory Then
If Right(a, 3) = "txt" Then List1.AddItem a
End If
a = Dir
Loop
End Sub
 
Private Sub List1_Click()
Dim strTxt$, s$
strTxt = "": s = "": Text1.Text = ""
Open App.Path & "\" & List1.Text For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
s = s & strTxt & vbCrLf
Loop
Close #1
Text1.Text = s
End Sub

这个代码是可以的。但是你要把Text1的MultiLine属性设为true,否则你只能看到显示的是一行

如果你要显示的类容太多，你可以吧 Text的 ScrollBars 属性设为 3 - Both  就是上下左右都有滚动条

这两个属性是只读的。只有的属性栏里面设置。不能通过代码来设置的。

Answer 2

Private Sub Form_Load()
Dim a
a = Dir(App.Path & "\", vbHidden + vbDirectory)
Do While a <> ""
If GetAttr(App.Path & "\" & a) <> vbDirectory Then
If Right(a, 3) = "txt" Then List1.AddItem a
End If
a = Dir
Loop
End Sub

Private Sub List1_Click()
Dim strTxt$, s$
strTxt = "": s = "": Text1.Text = ""
Open App.Path & "\" & List1.Text For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
s = s & strTxt & vbCrLf
Loop
Close #1
Text1.Text = s
End Sub

追问

只能读取一行啊

追答

把文本框的MultiLine属性设为true试试

Answer 3

so easy

你是要解决思路
还是要 exe程序
还是要 源代码

追问

代码