vb怎么把 list1的内容保存为txt，下次还能读取又显示在list1中。
这两个功能怎么实现
vb中的list1
答案:2 悬赏:80 手机版
解决时间 2021-02-15 08:29
- 提问者网友：不爱我么
- 2021-02-14 15:17
最佳答案
- 五星知识达人网友：夜余生
- 2021-02-14 15:57
Option Explicit
Private Sub Command1_Click() '读取数据
Dim a As String
On Error Resume Next
Open "1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
List1.AddItem a
Wend
Close #1
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click() '保存数据
Open "1.txt" For Output As #1
Dim i As Integer
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
End If
Close #1
End Sub
Private Sub Form_Load()
Command1.Caption = "读取"
Command2.Caption = "清空list"
Command3.Caption = "保存"
List1.AddItem "abc"
List1.AddItem "def"
List1.AddItem "iii"
End Sub
'添加一个list三个按钮然后粘贴代码，不明白的百度HI我
Private Sub Command1_Click() '读取数据
Dim a As String
On Error Resume Next
Open "1.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
List1.AddItem a
Wend
Close #1
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click() '保存数据
Open "1.txt" For Output As #1
Dim i As Integer
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
End If
Close #1
End Sub
Private Sub Form_Load()
Command1.Caption = "读取"
Command2.Caption = "清空list"
Command3.Caption = "保存"
List1.AddItem "abc"
List1.AddItem "def"
List1.AddItem "iii"
End Sub
'添加一个list三个按钮然后粘贴代码，不明白的百度HI我
全部回答
- 1楼网友：山君与见山
- 2021-02-14 16:41
使用 listview 控件可实现上述功能。
具体使用方法请参阅： http://www.360doc.com/content/09/0728/11/19147_4505438.shtml
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯