[VB6] Forecolor listview item

[814(k m49!(]

ciao a tutti
ho un problema:
non riesco a "colorare" i subitems, ho letto che con vb.net c'e' una proprieta': UseitemStyleForSubItems. In vb6 purtroppo non trovo niente di simile e percio' mi colora solo la prima colonna della riga!
posto una parte del codice che utilizzo ^^

 
Set itm = LvM.ListItems.Add(, "a" & CStr(KeyM))
If Qua < Qmin Then itm.ForeColor = vbRed Else itm.ForeColor = vbRed

ciao e grazie

[oregon]

Per i subitems, ad esempio per il primo

itm.ListSubItems(1).ForeColor = vbRed

e cosi' via, variando l'indice se ti serve ...

[814(k m49!(]

per caso lo hai provato prima di darmelo?
perche' a me non va
devo postare il codice intero?

[oregon]

Certo che funziona ...

Quale problema ti da'?

Invia il codice ...

[814(k m49!(]

    Dim I As Integer
    Dim itm As ListItem
    Dim Qmin As Double
    Dim Qua As Double
    Dim objF As New CParti
    Dim rsF As ADODB.Recordset
    LvM.ListItems.Clear
    If rsF.RecordCount > 0 Then
            For I = 0 To rsF.RecordCount - 1
                If Not rsF("Quantita").Value = "" Then Qua = rsF("Quantita").Value Else Qua = 0
                If Not rsF("QuantitaMinima").Value = "" Then Qmin = rsF("QuantitaMinima").Value Else Qmin = 0 
                    Set itm = LvM.ListItems.Add(, "a" & CStr(KeyM))
                    If Qua < Qmin Then itm.ListSubItems(1).ForeColor = vbRed Else itm.ListSubItems(1).ForeColor = vbBlack
                    itm.Text = rsF("ID").Value
                    If Not IsNull(rsF("Quantita").Value) Then itm.SubItems(2) = rsF("Quantita").Value Else itm.SubItems(2) = "0"
                    Select Case Language
                        Case "ITA"
                            If Not IsNull(rsF("NomeIta").Value) Then itm.SubItems(1) = rsF("NomeIta").Value Else itm.SubItems(1) = "NO NAME"
                        Case "ENG"
                            If Not IsNull(rsF("NomeEng").Value) Then itm.SubItems(1) = rsF("NomeEng").Value Else itm.SubItems(1) = "NO NAME"
                        Case "CIN"
                            If Not IsNull(rsF("NomeCin").Value) Then itm.SubItems(1) = rsF("NomeCin").Value Else itm.SubItems(1) = "NO NAME"
                    End Select
                    KeyM = KeyM + 1
                    lblParti.Caption = KeyM
                rsF.MoveNext
            Next I
    Else
        lblParti.Caption = "0"
    End If

praticamente fa come se non gli avessi dato l'indicazione di colorare.

[oregon]

Se non metti /CODE e' come se non ci fosse e non si legge bene ...

Comunque, ricorda che *prima* devi creare il subitem e *poi* colorarlo ... quindi sposta la

If Qua < Qmin Then itm.ListSubItems(1).ForeColor = vbRed Else itm.ListSubItems(1).ForeColor = vbBlack

dopo la End Select

[814(k m49!(]

scusa x il /CODE, ho modificato appena me ne sono accorto
cmq lo ho colorato dopo averlo creato ma non funziona ugualmente:

    Dim I As Integer
    Dim itm As ListItem
    Dim Qmin As Double
    Dim Qua As Double
    Dim objF As New CParti
    Dim rsF As ADODB.Recordset
    LvM.ListItems.Clear
    If rsF.RecordCount > 0 Then
            For I = 0 To rsF.RecordCount - 1
                If Not rsF("Quantita").Value = "" Then Qua = rsF("Quantita").Value Else Qua = 0
                If Not rsF("QuantitaMinima").Value = "" Then Qmin = rsF("QuantitaMinima").Value Else Qmin = 0 
                    Set itm = LvM.ListItems.Add(, "a" & CStr(KeyM))
                    itm.Text = rsF("ID").Value
                    If Not IsNull(rsF("Quantita").Value) Then itm.SubItems(2) = rsF("Quantita").Value Else itm.SubItems(2) = "0"
                    Select Case Language
                        Case "ITA"
                            If Not IsNull(rsF("NomeIta").Value) Then itm.SubItems(1) = rsF("NomeIta").Value Else itm.SubItems(1) = "NO NAME"
                        Case "ENG"
                            If Not IsNull(rsF("NomeEng").Value) Then itm.SubItems(1) = rsF("NomeEng").Value Else itm.SubItems(1) = "NO NAME"
                        Case "CIN"
                            If Not IsNull(rsF("NomeCin").Value) Then itm.SubItems(1) = rsF("NomeCin").Value Else itm.SubItems(1) = "NO NAME"
                    End Select
                    If Qua < Qmin Then itm.ListSubItems(1).ForeColor = vbRed Else itm.ListSubItems(1).ForeColor = vbBlack
                    KeyM = KeyM + 1
                    lblParti.Caption = KeyM
                rsF.MoveNext
            Next I
    Else
        lblParti.Caption = "0"
    End If

[oregon]

Non funziona che vuol dire?

Ti da' un errore? Quale?

Rimane nero? Hai controllato se Qua < Qmin ? Altrimenti non esegue la else ... e io da qui non posso saperlo ...

[814(k m49!(]

rimane nero.
ho controllato il > invertendo il vbBlack col VbRed.
:master: magari qualche proprieta'? possibile?

[oregon]

No ... assurdo ... sbagli qualcosa ...

Ma la colonna esiste? Vedi le informazioni che pensi ci debbano essere? Fai vedere una immagine?