0
マイコード -は私がListViewコントロール
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
でVB6ののSaveSettingコマンドを使用したい私は、すべてのcols内のすべての行の値を保存する必要があります。助けてください。
そして、何が機能していませんか?あなたはレジストリに保存する必要がありますか?これは単なるテキストですが、代わりにファイルI/Oを使用できます。 – Dabblernl