我想使用带有ListView的VB6的SaveSetting命令

Question

我的代码 -

    Private Sub Form_Load()
Dim i
For i = 1 To GetSetting("Listview", "items", "c")
ListView1.ListItems.Add i, , GetSetting("Listview", "items", "li" & i)
Next i
MsgBox ListView1.ListItems.count
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i
Dim count
If ListView1.ListItems.count = 0 Then
count = 1
Else
count = ListView1.ListItems.count
End If
For i = 1 To ListView1.ListItems.count
SaveSetting "Listview", "items", "li" & i, ListView1.ListItems(i).Text
Next
SaveSetting "Listview", "items", "c", ListView1.ListItems.count
End Sub

我需要保存所有cols中所有行的值。请帮忙。

Answer 1

使用vsflexgrid而不是listview 你可以将flexgrid保存在一个文件中。重新加载

只需看到语法

保存

VSFlexGrid1.SaveGrid “C:\test.doc”, flexFileAll

加载

VSFlexGrid1.loadGrid “C:\test.doc”, flexFileAll

了解更多信息，请查看

http://www.fredshack.com/docs/vsflex.html

或componentone的网站