I don't get what you call "simple good listview report"
You just have to copy de ucListView.ctl, the mListViewEx.bas, the mIOleInPlaceActivate.bas (I'm trying to join it to the ctl, but it's difficult xD) and the OleGuids3.tlb (by removing mIOleInPlaceActivate.bas I want to remove this tlb too). And add those to your project. The tlb goes in the References section (Project -> References -> Add Reference)
And then add the listView to your form, and add this code in the form Load or whether you want to init de listview
With ucListView1
Call .Initialize
Call .InitializeImageListHeader ' You must Call this even if you won't use images on the headers, or you will get a Blank header
' Add Icons
Dim ilSmall As clsIconList ' My Class to load icons, or use .ImageListSmall_AddBitmap or .ImageListSmall_AddIcon to add by Handle
' My class only add icons, i didn't want to add bmp or jpg, but... it's not difficult to replace, and i'll add it in the next version
Set ilSmall = New clsIconList
Call ilSmall.Initialize(16, 16) ' Size of the icons
Call ilSmall.AddIcon(App.Path & "\Graphics\document.ico") ' Add a icon by file
Call ilSmall.AddIcon("document", true) ' Add a icon by resource
Call .DuplicateImageListSmall(ilSmall.Handle) ' Set the imagelist to the ucListView
Set ilSmall = Nothing ' Free resources :D
' Add Headers (id, Caption, Width, Align, Image)
' In id you can use .ColumnCount to make it "auto"
Call .ColumnAdd(0, "Header 1", 150, [caLeft], 0)
Call .ColumnAdd(1, "Header 2", 150, [caLeft], 0)
' Add Items (id, Caption, ident, iconId) ' With ident you can simulate a TreeListView x)
Call .ItemAdd(i, "Item " & i, 0, 1) ' Icon: document.ico
' Set SubItems ( itemId, column, caption, icon) ' For Icon you must Enable "SubItemIcons"
Call .SubItemSet(i, 1, CInt(Rnd * 10), 0)
' Set Properties
.ViewMode = vmDetails ' Report
End With
And that's the basics, if you want add other properties, you can copy&paste from the property's CheckBox and set in the code.
Example, if you want to add Multiselect, you'll see
Private Sub chkMultiselect_Click()
ucListView1.MultiSelect = CBool(chkMultiselect)
End Sub
you only have to add
.MultiSelect = True
to your "Set Properties" section
NOTE:
You must put this in your form to work well with de XP Styles manifest (by file or resource)
Private Declare Sub InitCommonControls Lib "COMCTL32" ()
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
' This goes to the first form show
Private Sub Form_Initialize()
hMod = LoadLibraryA("shell32.dll")
Call InitCommonControls
End Sub
' And this to the last form, the "are you sure to exit" form
Private Sub Form_Terminate()
Call FreeLibrary(hMod)
End Sub
