VB如何保存listbox里的内容,下次打开本程序里内容不变
答案:2 悬赏:0 手机版
解决时间 2021-01-26 00:27
- 提问者网友:雨不眠的下
- 2021-01-25 01:47
VB如何保存listbox里的内容,下次打开本程序里内容不变
最佳答案
- 五星知识达人网友:夜风逐马
- 2021-01-25 02:57
'//保存
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 & vbNewLine & Temp
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
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 & vbNewLine & Temp
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
全部回答
- 1楼网友:長槍戰八方
- 2021-01-25 03:39
你好!
保存到文件中,下次打开本程序时再读取文件
如有疑问,请追问。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯