나는

2011-09-04 2 views
0

내 코드 -나는

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의 모든 행의 값을 저장해야 ListView를 함께 VB6의 SaveSetting 명령을 사용합니다. 도와주세요. 당신이

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

로드하기 위해 다시

그냥 저장하는 구문

를 참조 파일 & 다시로드에 적 FlexGrid을 절약 할 수 있습니다

+1

그리고 무엇을 작동하지? 레지스트리에 저장해야합니까? 단지 일반 텍스트 일 ​​뿐이므로 일부 파일 I/O를 대신 사용할 수 있습니다. – Dabblernl

답변

0

사용하는 대신에,리스트 뷰의 vsflexgrid

VSFlexGrid1.loadGrid “C:\test.doc”, flexFileAll 
자세한 내용은

을 참조하십시오. c 도대체

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

또는 ComponentOne은 웹 사이트