Cambiar imagen en DataGridViewImageColumn

[mafc]

Tengo un datagridview con una columna del tipo DataGridViewImageColumn y otra DataGridViewTextBoxColumn.

Al crear el datagrid cargo una imagen por defecto en la columna DataGridViewImageColumn. Pero lo que quiero ahora es cambiar la imagen dependiendo del valor que tenga en la misma fila la columna DataGridViewTextBoxColumn.

La idea es recorrer todas las filas del tipo DataGridViewTextBoxColumn consultar su valor y cambiar el icono de la misma fila.

1.- Como puedo recorrer el datagridview fila a fila?, para recorrer las columnas he visto

For Each column5 As DataGridViewColumn In DGV_Sesiones.Columns

pero no he visto lo mismo para las filas.

2.- Como puedo modificar la imagen de una fila en concreto?.


Gracias

[mafc]

Estoy utilizando vb.net.

[mafc]

Ya he solucionado lo de recorrer el datagridview fila a fila, pero sigo sin saber como cambiar la imagen de una celda. Necesitaría algo como

Dim imagen as Bitmap
Datagridview.rows(1).cells(1).value = imagen

(puede estar mal la sintaxis. No dispongo del Vb en este momento, para probarlo )

Siendo esta celda del tipo datagridviewimagecolumn. Aunque esto ya lo he probado y no funciona.


Saludos.

[xknown]

Iniciado por mafc

Ya he solucionado lo de recorrer el datagridview fila a fila, pero sigo sin saber como cambiar la imagen de una celda. Necesitaría algo como

Dim imagen as Bitmap
Datagridview.rows(1).cells(1).value = imagen

(puede estar mal la sintaxis. No dispongo del Vb en este momento, para probarlo )

Siendo esta celda del tipo datagridviewimagecolumn. Aunque esto ya lo he probado y no funciona.


Saludos.

El DataGridView se puede decir que es _simplemente_ un visor, lo que en realidad tienes que hacer es modificar la imágen en la fuente de datos que asignaste a este control...

Saludos

[mafc]

Ya esta solucionado, por si le ocurre a alguien hay que utilizar el evento CellFormatting.

Private Sub DGV_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEve ntArgs) Handles DGV.CellFormatting

Dim Celda As String
If Valor = 1 Then
If e.ColumnIndex = 0 Then

Celda = Me.DGV.Rows(e.RowIndex).Cells(1).Value
Select Case Celda
Case "Rojo"
e.Value = New Bitmap(Imagen20x20.Images.Item(2))
Case "Azul"
e.Value = New Bitmap(Imagen20x20.Images.Item(1))
Case Else
MsgBox("Sesion fuera de rango")
End Select

End If
End If

End Sub


Saludos
Mafc