Agregando imágenes en el GridControl

Entramos en el diseño del GridControl (Run designer) y agregamos la columna como lo vimos en la entrada: 


http://devexpresshispano.blogspot.com/2011/03/enlazando-el-gridcontrol-con-datos.html


En la propiedad de  la columna ColunEdit -> New seleccionamos el control PictureEdit, para que nuestro campo soporte ese tipo de datos.

 En el código, agregamos la columna en la tabla del ejemplo anterior:


TablaClientes.Columns.Add("FOTO", GetType(Byte()))


Agregamos la columna en la tabla del ejemplo anterior:



TablaClientes.Rows.Add("1", "Raciel Luis", "25", "M", imgtoarr("C:\073.png"))
TablaClientes.Rows.Add("2", "Gabriela Torres", "45", "F", imgtoarr("C:\11.png"))



Agregamos la siguiente función para que nos retorne un arreglo de tipo Byte:



    Function imgtoarr(ByVal URLimagen As String) As Byte()
        Dim img As Image = Image.FromFile(URLimagen)
        Dim ms As New System.IO.MemoryStream
        img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        Return ms.ToArray()
    End Function

Ejecutar el programa y veremos que la imagen se ha agregado.

Ahora, si queremos ver la imagen más grande, solo tenemos que agregar un botón para cambiar la vista del GridControl.

El código es el siguiente:

Dim Opcion As Boolean = True 'Linea de código fuera del evento del botón

'código dentro del evento clic del botón:

   GridView1.OptionsView.RowAutoHeight = Opcion

   If Opcion Then

       Opcion = False

   Else

       Opcion = True

   End If

Resultado en tiempo de ejecución

Nota: Se debe validar que las imágenes existan ya que ocurriría una excepción en tiempo de ejecución.