Grazie ai vostri consigli e all'aiuto di pcbase, ho cercato di implementare sul mio form l'utilizzo di un listview, ma ho dei problemi di "popolamento" ....
Per provare ho messo sul form sia un listbox che un listview e nel command ho inserito questo codice:
- Codice: Seleziona tutto
Private Sub CommandButton2_Click()
Call Carica_tab ' carica un tabulato txt su un foglio excel
' determina quante colonne deve avere il listbox e poi lo popola
' e questo funziona ......
Sheets("Bf").Select
col = Range("A2").CurrentRegion.Columns.Count ' ' ' ' grazie al forum
ListBox2.ColumnCount = col
ListBox2.RowSource = "Bf!A2:GA3000"
' provo a popolare il listview
' prima da proprieta'->personalizzate-> ho aggiunto MANUALMENTE 20 colonne
Sheets("Bf").Select
ListView1.ListItems.Clear
Riganx = Cells(65536, 2).End(xlUp).Row + 1
For ciclo = 2 To Riganx
Set ListItem = ListView1.ListItems.Add(, , Cells(ciclo, 1))
With ListItem
.SubItems(1) = Cells(ciclo, 2)
.SubItems(2) = Cells(ciclo, 3)
.SubItems(3) = Cells(ciclo, 4)
.SubItems(4) = Cells(ciclo, 5)
.SubItems(5) = Cells(ciclo, 6)
.SubItems(6) = Cells(ciclo, 7)
.SubItems(7) = Cells(ciclo, 8)
.SubItems(8) = Cells(ciclo, 9)
.SubItems(9) = Cells(ciclo, 10)
.SubItems(10) = Cells(ciclo, 11)
.SubItems(11) = Cells(ciclo, 12)
.SubItems(12) = Cells(ciclo, 13)
.SubItems(13) = Cells(ciclo, 14)
.SubItems(14) = Cells(ciclo, 15)
End With
Next ciclo
end sub
alla fine di questo ciclo il listview resta vuoto .... o almeno cosi' sembra. compare solo la scrolbar laterale e non vedo nulla.
C'e' un sistema per assegnare via codice le colonne ( e le relative proprieta') al controllo come nel listbox ?
Qualcuno puo' aiutarmi ?
Grazie