ListView Save settings

[dmach8]

With a multi columned listview shown as a listreport is there a way to save the size of the columns, (after the user as adjusted them to their liking) to the registry so when the program is reopened they won't have to set them again? Thanks in advance

[Joacim Andersson]

Sure, here's an example:

Private Const DEFAULT_WIDTH = 500 'or whatever you prefer

Private Sub Form_Load()
Dim iCount%, i%
With ListView1
iCount = .ColumnHeaders.Count
For i = 1 To iCount
.ColumnHeaders(i).Width = GetSetting("YourAppName", "SectionName", "Column" & i, DEFAULT_WIDTH)
Next
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim iCount%, i%
With ListView1
iCount = .ColumnHeaders.Count
For i = 1 To iCount
SaveSetting "YourAppName", "SectionName", "Column" & i, .ColumnHeaders(i).Width
Next
End With
End Sub

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com