2011-09-04 15 views
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内のすべての行の値を保存する必要があります。助けてください。

+1

そして、何が機能していませんか?あなたはレジストリに保存する必要がありますか?これは単なるテキストですが、代わりにファイルI/Oを使用できます。 – Dabblernl

答えて

0

使用することは、あなただけの

VSFlexGrid1.loadGrid “C:\test.doc”, flexFileAll 
をロードする

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

を保存するための構文

を参照してください再び

を、それをリロード&ファイルにフレキシブルグリッドを保存することができvsflexgridの代わりに、リストビュー 詳細は

をご覧ください。一体

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

か:コンポーネントのウェブサイト

関連する問題