|
'Dichiarazione di un oggetto ListItem
Dim lvItem As ListItem 'Aggiungo un nuovo ListItem alla ListView, e ottengo 'il riferimento ad esso nella variabile oggetto lvItem Set lvItem = ListView1.ListItems.Add(, "test1", "Prova") 'Aggiungo il testo nella seconda colonna - SubItems(1) lvItem.SubItems(1) = "VB Tips & Tricks" '... per modificare gli attributi di tale SubItems, _ 'devo utilizzare il nuovo insieme ListSubItems(index) 'disponibile solo nella nuova versione dei Common Controls lvItem.ListSubItems(1).ForeColor = vbRed Sotto inteso che la ListView deve essere impostata sullo stile Report e che devono esserci almeno due colonne (la prima e' quella del ListItem padre, la seconda e' il SubItems(1)) |