vb怎么把从一个txt文本中导入数据，并在libstbox中显示出来

显示全部楼层 · 2012-1-12 09:25:45

Private Sub Command1_Click()
Dim MyString As String
Open "c:\test.txt" For Input As #1
Do While Not EOF(1)
DoEvents
Line Input #1, MyString
List1.AddItem MyString
Loop
Close #1End Sub...

千问 · 2012-1-12 09:25:45

你没说清楚.我写了一个把text1.text 的内容加入到listbox的代码,你自己可以研究下.Private Sub Command1_Click()
List1.AddItem (Text1.Text)End Sub...

千问 · 2012-1-12 09:25:45

fn=freefileopen app.path & "\111.txt" for input #fnwrite #fn,Tempstrclose #fnform1.listbox1.additem tempstr...