[VB6] Icone in una listview

[printlist]

Ho usato questo codice per aggiungere un'icona ad ugni record visualizzato ma quando carico il Form mi da l'errore limiti esauriti.Premetto che ho associato il controllo imagelist caricando all'interno l'icona da visualizzare ma nulla da fare.Grazie Mille


Private Sub Form_Activate()


List1.Refresh
MDIForm1.Enabled = False

Dim itmX As ListItem
Dim DB As Database

Dim sQL As String
List1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] is null "


Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = List1.ListItems.Add(Icon)

With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("OraApertura")

RS.MoveNext
End With
Loop

End Sub

[multijet]

io farei cosi':
1)setta la listview in modalita' report
2)setta elenco immagini normali e ridotte sulla list image che hai usato
3)
Dim mitem
Do Until Rs3.EOF
On Error Resume Next
Set mitem = ListView3.ListItems.Add(, , Rs3!Piano, "piano", "piano")
mitem.SubItems(1) = Rs3!PuntoPiano
mitem.SubItems(2) = Int(Rs3!FrequenzaCorretta)
Rs3.MoveNext
Loop
Rs3.Close

rs3 e' il recordset da me usato.Inserisci il tuo
rs3!Piano e' il nome del campo del mio recorset .Inserisci il tuo campo
i campi "piano","piano" sono i nomi dell'icona caricata nella image list.

Se non sono stato chiaro fammi sapere

[printlist]

Ho provato ma mi iserisce accanto al campo "ID" lo spazio vuoto per visualizzare l'icona ma non, me la visualizza.

[multijet]

una cosa.Usi la listview o la list box?

[printlist]

listview in modalita' report.

[multijet]

nell'image list le proprieta' key e index sono compilate o lasciate vuote?

[multijet]

prova cosi'
Set itmX = List1.ListItems.Add(, , , "Nome Icona", "Nome Icona")

[printlist]

Formidabile funzica.Ottimo!!!!!!!!!!!!Gazie mille!!!!!!!!!!

[multijet]

figurati.

[tony.hood]

ma è da tempo che cerco di fare cio che avete fatto mi potete consigliare come fare?

Grazie per l'aiuto