[vb6] ListBox fore color probleempje

[4of9]

Hallo,

Ik zit met een stom probleempje.

Ik vul een listbox met data in een loopje

nu wil ik aan de hand van een if then else statement de forecolor veranderen

Visual Basic:

 If (objZip.zi_oSize) > 1048576 Then
            ListBox.ForeColor = vbRed
            ListBox.AddItem ("! " & i & " [Name: " & objZip.zi_FileName & "] [org Size: " & objZip.zi_oSize & "] [Compressed Size: " & objZip.zi_cSize & "]")
        Else
            ListBox.ForeColor = vbBlack
            ListBox.AddItem (i & " [Name: " & objZip.zi_FileName & "] [org Size: " & objZip.zi_oSize & "] [Compressed Size: " & objZip.zi_cSize & "]")
        End If

Dit werkt dus niet.

Doe ik nu alleen 1x de ListBox.ForeColor = vbRed in de eerste voorwaarde dan schrijft hij alles in het rood.

Het is niet echt heel belangrijk ofzo maar volgens mij doe ik het gewoon goed of zijn er op de listbox control uitzonderingen van toepassing?

[Remco]

Volgens mij kleurt vb de forecolor zoals de laatste voorwaarde.
Waarschijnlijk is je laatste voorwaarde < 1048576.
Dus dan is het laatste listbox.forecolor = vbBlack.
Ik weet niet of je de verschillende waardes in een listbox een andere kleur kan geven.

Misschien moet je even kijken of je het item in je listbox kan kleuren ipv de listbox.forcolor

[ Voor 19% gewijzigd door Remco op 04-02-2005 17:19 ]

[4of9]

de forecolor property zet idd de hele listbox en niet de specifieke items....