Question

VB 如何将文本文件内容读取到listbox?

VB 如何将文本文件内容读取到listbox?

代码怎么写的?

刚学VB
文本文件啊,朋友

Answer 1

Private Sub Form_Load()
Dim appdisk As String
Dim aa As String
Dim i As Integer

appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
fname = appdisk & "test.txt"

Open fname For Input As #1
Do Until EOF(1)
Line Input #1, aa
List1.AddItem aa, i
i = i + 1
Loop
Close #1

End Sub

Answer 2

list1.text = text1.text