Question

VB6.0中如何保存和读取l两个list中的内容！

Private Sub Form_Unload(Cancel As Integer)
Dim i As Long, Temp As String
For i = 0 To List1.ListCount - 1
If Temp = "" Then
Temp = List1.List(i)
Else
Temp = Temp & vbNewLine & List1.List(i)
End If
Next i
Open IIf(Len(App.Path) = 3, App.Path, App.Path & "\") & "data.dat" For Output As #1
Print #1, List1.ListCount
Close #1
End Sub
Private Sub Form_Load()
Dim Path As String, Item As Long, Temp As String, i As Long
Path = IIf(Len(App.Path) = 3, App.Path, App.Path & "\") & "data.dat"
If Dir(Path, vbDirectory) = "" Then Exit Sub
Open Path For Input As #1
Line Input #1, Temp
Item = Val(Temp)
For i = 1 To Item
Line Input #1, Temp
List1.AddItem Temp
Next i
Close #1
End Sub

这是一个listbox的代码，两个怎么弄？

Answer 1

‘一个list代码都是错的，给你重写一个，我不喜欢修改别人的代码 ，2个list思路一样自己修改
Dim filename As String
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long, Temp As String
If Dir(filename) = "" Or List1.ListCount = 0 Then Exit Sub
Open filename For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
Private Sub Form_Load()
Dim arr, i As Integer
filename = App.path & IIf(Right(App.path, 1) = "\", "", "\") & "data.dat"
If Dir(filename) <> "" Then
Open filename For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
For i = 0 To UBound(arr)
If Len(arr(i)) > 0 Then List1.AddItem arr(i)
Next
End If
End Sub

追问

我是菜鸟不会改，你帮我下

追答

呵呵，保存文件中加个标示符，2个200个都一样，你为什么不自己试试呢？

追问

有急用我也不会，给我下完整代码

Answer 2

再复制粘贴一边改改控件名字就是

追问

发现2义行

追答

把2义行去掉

追问

具体代码发给我