UC知道vb:解析代码
来源：百度知道 编辑：UC知道 时间：2024/05/29 09:23:46
Dim i As Long
With ListView1.ListItems
Open "info.dat" For Output As #1
For i = .Count To 1 Step -1
Print #1, ListView1.ListItems.Item(i).Text & "|" & ListView1.ListItems.Item(i).SubItems(1) & "|" & ListView1.ListItems.Item(i).SubItems(2)
Next
End With
End
我想多次对它进行查看，可是当第二次vb提示“文件已打开”
我的操作为：
Form1上有一个command1，（Frmmain.Show） 打开Frmmain后用标题栏上的关闭， 第二次就不行了！！
为什么啊？？？
如何解决???????
With ListView1.ListItems
Open "info.dat" For Output As #1
For i = .Count To 1 Step -1
Print #1, ListView1.ListItems.Item(i).Text & "|" & ListView1.ListItems.Item(i).SubItems(1) & "|" & ListView1.ListItems.Item(i).SubItems(2)
Next
End With
End
我想多次对它进行查看，可是当第二次vb提示“文件已打开”
我的操作为：
Form1上有一个command1，（Frmmain.Show） 打开Frmmain后用标题栏上的关闭， 第二次就不行了！！
为什么啊？？？
如何解决???????
使用 Open 语句后应该养成 Close 的习惯。
Open xxx For xxx As #1
'你的操作……
Close #1
文件操作结束加个Close #1(Close #文件号)就行了。否则一直处于打开状态。