Rijen om en om kleuren

[phobia]

Ik heb een Listview

Maar om de regels duidelijker zichtbaar te maken wil ik zo om en om kleuren

rij 1 wit
rij 2 grijs
rij 3 wit
rij4 grijs
enz

heeft iemand een idee voor me?

Ik gebruik de volgende code om de listview te vullen:

Private Sub Listview_load()
Dim list_item As ListItem
ListView1.GridLines = True
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
With ListView1
    .ColumnHeaders.Add 1, , "OrderNummer :", TextWidth("##**##**##**##**#"), lvwColumnLeft
    .ColumnHeaders.Add 2, , "Referentie :", TextWidth("**##**##**##**##**##**##**##**##**##**"), lvwColumnCenter
    .ColumnHeaders.Add 3, , "Datum In :", TextWidth("##**-**-****##**"), lvwColumnCenter
    .ColumnHeaders.Add 4, , "Datum Uit :", TextWidth("##**-**-****##**"), lvwColumnCenter
End With
ListView1.View = lvwReport
If ComboBox1.Text = "" Then Exit Sub
SQLcode = ("SELECT * FROM TblBrilAdmin" & SQLKlant)
openDB
Set RS = db.OpenRecordset(SQLcode)
If RS.RecordCount = 0 Then Exit Sub
RS.MoveFirst
Do While Not RS.EOF
        Set list_item = ListView1.ListItems.Add(, , RS![briladmin id])
            list_item.SubItems(1) = RS!RefKlant
            
            If IsNull(RS!datumIn) Then
                list_item.SubItems(2) = ""
            Else
                list_item.SubItems(2) = RS!datumIn
            End If
            If IsNull(RS!datumIn) Then
                list_item.SubItems(3) = ""
            Else
                list_item.SubItems(3) = RS!datumUit
            End If
       RS.MoveNext
Loop
db.Close

End Sub

 

[MitchelRijs]

Iets als
ListView1.BackColor = Color.Gray ?

 

[phobia]

nee, dat is hem niet. Daarmee maak je de hele achtergrond van de listview een kleur. Ik bedoel dat elke regel om en om danwel grijs of zit word.

 

[MitchelRijs]

Maar je kunt dat toch ook gewoon handmatig doen? zonder een code...?

Listview1 properties> Items > Appearance > BackColor.... :thumb:

 

[phobia]

Maar je kunt dat toch ook gewoon handmatig doen? zonder een code...?

Listview1 properties> Items > Appearance > BackColor.... :thumb:

Geloof dat je niet helemaal de bedoeling begrijpt.

ik wil:

..........colum1..........colum2.........colum3
regel1 Achtergrond van deze regel grijs
regel2 Achtergrond van deze regel zwart
regel3 Achtergrond van deze regel grijs
regel4 Achtergrond van deze regel zwart
enz enz

zodat er een duidelijk verschil is tussen de regel. Maakt het makkelijker om te lezen.

 

[Jabber]

http://msdn.microsoft.com/en-us/library/ms229679.aspx

 

[Koen B]

with grid1
.row = i
.col=1
.cellbackcolor=vbgrey
end with

Zelf even een loopje maken dat hij alle cellen van de rij kleurt, nog een loopje voor alle rijen klaar is kees

 

[phobia]

werkt dat ook op de listview?

 

[Koen B]

ik neem aan van wel, als listgrid tenminste een cellbackcolor heeft...