Visual Basic 6 - Background color su ListSubItems() - sfondo

Forum - Visual Basic 6 - Background color su ListSubItems() - sfondo

Pagine: [ 1 2 ]

canfra67 (Normal User)
Rookie

Messaggi: 42
Iscritto: 10/02/2009

Postato alle 16:32
Martedì, 16/06/2009

VB6
Ciao a tutti,
con l.ListSubItems(a).ForeColor = vbRed, senza alcun problema, cambio il colore del testo ma come faccio a cambiare il colore dello sfondo?
Grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:33
Martedì, 16/06/2009

ma che componente usi?

canfra67 (Normal User)
Rookie

Messaggi: 42
Iscritto: 10/02/2009

Postato alle 17:49
Martedì, 16/06/2009

ListView

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:11
Martedì, 16/06/2009

ehm... sinceramente non sono pratico con le listview, ma non mi pare che questa proprietà esista... semmai c'è:
ListView1.Listitems.Item.ListSubItems...

canfra67 (Normal User)
Rookie

Messaggi: 42
Iscritto: 10/02/2009

Postato alle 9:35
Mercoledì, 17/06/2009

Mi sa che hai ragione, non credo che si possa fare

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 12:31
Mercoledì, 17/06/2009

scusa, ma io non capisco da dove hai tirato fuori:
"con l.ListSubItems(a).ForeColor = vbRed, senza alcun problema"

per dire "senza alcun problema" lo dovevi provare... ma non sembra che l'hai provato questo codice

canfra67 (Normal User)
Rookie

Messaggi: 42
Iscritto: 10/02/2009

Postato alle 12:33
Mercoledì, 17/06/2009

da cosa lo deduci?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 12:41
Mercoledì, 17/06/2009

Da questo...

Testo quotato

Postato originariamente da canfra67:

Mi sa che hai ragione, non credo che si possa fare

Comunque aspetta, mi sa che non ci stiamo capendo. Riformulo la domanda, questo codice:

Codice sorgente - presumibilmente Plain Text

l.ListSubItems(a).ForeColor = vbRed

l'hai provato? funziona?

canfra67 (Normal User)
Rookie

Messaggi: 42
Iscritto: 10/02/2009

Postato alle 12:46
Mercoledì, 17/06/2009

Si certo che funziona ecco un esempio:

Private Sub Form_Load()
    Dim l As ListItem

    For i = 1 To 100
        Set l = ListView1.ListItems.Add(, , i)
        l.SubItems(1) = "I=" & i
        l.SubItems(2) = "xxxxx"
        l.ListSubItems(2).ForeColor = vbRed
    Next i
End Sub

Pagine: [ 1 2 ]