Open App.Path & "你要的文本名.txt" For Append As #1
Print #1, text1.text '完成你的text的录入文本功能 Close #1
If Len(Dir(App.Path + "\你要的文本名.txt")) > 0 Then
Open App.Path + "\你要的文本名.txt" For Input As #1
i = 0
Do Until EOF(1)
i = i + 1
Line Input #1, newline
If i > 10 Then
Exit Do
End If
dlt = Trim(dlt) + Trim(newline)
' newline就是你从文本框中读到的数据.
再把newline只的值付给别listview 可以
dim itemx as item
Set itemx = ListView1.ListItems.add(Text:= )
itemx.ListSubItems方法得到
依上面的方法细想一下就可以做出来的!
VB也是多少年前学的了,有点忘了,好像应该要用到文件那部分的知识,你可以上CSDN上看看,那里面有很多的!