colorear celda de datagridview segun un parametro?

[lupita100]

hola amigos soy una programadora de lenguaje c y muy poco se de este lenguaje poo (vb .net)

resulta que tengo que hacer una aplicacion con una bd y un datagriview eso ya lo tengo... pero necesito que segun el valor y texto que se introduzca me pinte un color la celda donde se guardara el valor-dato en el datagrid...

por ejemplo...
digamos que pongo un valor de 3 caracteres y al guardarlo en el datagrid o base me pinte de azul y si pongo un valor de 5 caracteres me pinte verde por ejemplo...

creo que esto se puede hacer con estructuras de desicion if y else pero como no conozco mucho vb .net pues no veo la forma de codifcar ese codigo en .net...

espero me puedan dar una guia
aclaro que ya busque en google pero no logro entender muy bien gracias

seme olvidaba es con windows form

[Ka0stj]

Hola lupita100 lo primero que se me ocurre es algo similar a lo siguiente:

Código vb:

Public Sub Pinta_dgv(ByVal dgv As DataGridView)
    
    Dim LaColumna As String
        Dim NumeroCaracteres As Integer
 
        For i = 0 To dgv.Rows.Count - 1
 
            LaColumna = dgv.Item("Columna", i).Value
        NumeroCaracteres = LaColumna.Length
 
            Select Case NumeroCaracteres
                Case "Primer Caso"
                    dgv.Rows(i).DefaultCellStyle.BackColor = Color.Turquoise
                Case "Segundo Caso"
                    dgv.Rows(i).DefaultCellStyle.BackColor = Color.Violet
                Case Else
                    dgv.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
            End Select
 
        Next
 
    End Sub
 

Saludos!

[lupita100]

gracias!!!

[JosueMariaca]

Hola, aqui otra forma ... El grid contiene una propiedad llamada RowDatabound ... dentro de esta propiedad puedes usar el siguiente codigo :

If e.Row.RowType = DataControlRowType.DataRow Then 'Esta linea es para que lo que hace el codigo lo haga en todas las filas excepto en el header
Dim Cte As Label = e.Row.Cells(4).Controls(1)

If Cte.Text.Length = 3 Then e.Row.Cells(4).BackColor = Drawing.Color.Beige

End If

================================================== ====

En lugar del if podrias tambien usar un select case :


Select Case Cte.Text.Length
Case Is > 2
e.Row.Cells(4).BackColor = Drawing.Color.Beige

Case Is = 5
e.Row.Cells(4).BackColor = Drawing.Color.Beige
End Select

Espero te sirva saludos !!!