datagridview zeile einfärben

[anno]

hallo zusammen,

ich bekomme ich es denn im datagridview am besten hin immer 3 Zeilen nacheinander die gleiche Hintergrundfarbe zu geben?

So habe ich es mal ausprobiert in der "CellPainting" Methode:

If e.RowIndex Mod 3 = 0 Then

        If e.CellStyle.BackColor = Color.AliceBlue Then

          e.CellStyle.BackColor = Color.Gray

          Else

          e.CellStyle.BackColor = Color.AliceBlue

        End If

      End If

da bekomme ich allerdings immer 2 zeilen in der gleichen farbe und dann eine andere in der nächsten farbe.

es soll ja immer so sein, dass 3 aufeinanderfolgende Zeilen die gleiche farbe bekommen.

das spll dann so aussehn wie im anhang. aber ich koomme da ehrlich gesagt auf keine lösung.

[Ralf Jansen]

If ((e.RowIndex DIV 3) MOD 2) = 0 then
....

ungetestet !!!!

[anno]

geht auch leider nicht, da wird auch immer nur eine zeile farbig gemacht.

[Jürgen Thomas]

Vielleicht ist Modulo 4 das richtige Vorgehen: Jede vierte Zeile soll anders aussehen als die anderen drei. Jürgen

[luschmi]

Hallo anno

dein Code funktioniert. Habe ihn folgendermaßen ausprobiert:

[highlight=vbnet]
	Private Sub Alternate()
		Dim i As Integer
		Dim str As String = "Grau"
		Dim myIntArray() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
		For Each i In myIntArray
			If i Mod 3 = 0 Then
				If str = "Blau" Then
					str = "Grau"
				Else
					str = "Blau"
				End If
			End If
			MsgBox(i & "   " & str)
		Next
	End Sub

[/highlight]

[anno]

ja ok mit einer schleife durchgehen, das ist klar.

mich würde aber noch interessieren ob das auch mit der methode "CellPainting" möglich ist, so wie ich es schon im ersten beitrag geschrieben habe.

[gini]

Hallo Anno!


Im CellPainting Ereignis


[highlight=vbnet]If (e.RowIndex \ 3) Mod 2 = 0 Then

e.CellStyle.BackColor = Color.Gray

Else

e.CellStyle.BackColor = Color.AliceBlue

End If[/highlight]

[anno]

ok danke.

also ich muss dauuzsagen. diesen \ Operator habe ich noch nie in vb gesehen. aber so funktioniert es. thx