vb 如何将LIST框中所有项目保存到TXT框中，以及相反的如何读取

来源：百度知道 编辑：UC知道 时间：2024/06/05 16:41:42
RT我想将LIST2中所有项目按行保存到TXT文本中，然后按另外一个键，读取该TXT文本中所有项目到LIST2中.....

Private Sub Command1_Click()
Dim i As Integer
Open "abc.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub

Private Sub Command2_Click()
Dim linestr As String
Open "abc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, linestr
List2.AddItem linestr
Loop
Close
End Sub