Sección de códigos , trucos y ejemplos para visual basic

206 - Propiedad CellPicture del control MsFlexGrid

<Volver> - Anterior - Siguiente

Contenido

Insertar imágenes en celdas de un Flexgrid
Insertar imágenes desde base de datos
Enlaces relacionados

Insertar imágenes en celdas de un MsFlexgrid

Este ejemplo simple muestra como colocar unos íconos o gráficos en las celdas de un FlexGrid

Colocar en un formulario

Un control MsFlexGrid
También agregar unos controles Image. En este caso se utilizan dos image, Image1(0) e Image1(1)

vista de la ventana de diseño con los controles en el formulario

Luego Cargarle unos gráficos a los Image

La salida del ejemplo es como la siguiente

vista del formulario en tiempo de ejeución con el FlexGrid y los gráficos en las celdas

Descripción: Primero se establecen algunas propiedades del FlexGrid, como la cantidad de filas y columnas, el alto de la fila que tiene el gráfico , en este caso el alto del control Image. El ancho de las columnas y algunas otras propiedades.

Luego se añaden algunos datos.

Importante : Para agregar la imagen a la celda del Flexgrid, se realiza con la instrucción Set, si no se producirá un error , por ejemplo:

Set MsFlexGrid1.CellPicture = Image1(1).Picture

Colocar el siguiente código en un formulario

Option Explicit 'Cambiar los valores de las constantes que indican _ la cantidad de filas y columnas del Flex Const Filas As Integer = 6 Const Columnas As Integer = 2 Private Sub Form_Load() With MsFlexGrid1 'Numero de filas y columnas del flexgrid .Rows = Filas .Cols = Columnas .FixedRows = 0 .FixedCols = 0 'quita las lineas de división de el FlexGRid .GridLines = flexGridNone 'Para que al hacer click seleccione la fila completa .SelectionMode = flexSelectionByRow 'Ancho de la imagen .RowHeightMin = Image1(0).Height + ScaleY(2, 3, 1) ' Ancho de la columna que tiene los gráficos .ColWidth(0) = .RowHeightMin ' Ancho de la columna que tiene los datos .ColWidth(1) = 5000 End With 'Agrega algunos datos con los gráficos en la celda del Flexgrid '*************************************************************** With MsFlexGrid1 Set .CellPicture = Image1(1).Picture .TextMatrix(0, 1) = "Maria Flores" .Row = 1 Set .CellPicture = Image1(0).Picture .TextMatrix(1, 1) = "Carlos Roberto Fernandes" .Row = 2 Set .CellPicture = Image1(1).Picture .TextMatrix(2, 1) = "Eugenia Natalia Rodrigues" .Row = 3 Set .CellPicture = Image1(0).Picture .TextMatrix(3, 1) = "Mariano Juan Peres" .Row = 4 Set .CellPicture = Image1(1).Picture .TextMatrix(4, 1) = "Carolina Valeria Nuñes" .Row = 5 Set .CellPicture = Image1(0).Picture .TextMatrix(5, 1) = "Fernando Matias Puente" End With End Sub

Cargar imagen de producto desde base de datos

Este código es similar al anterior, pero adaptado para usarlo con bases de datos, y es una simple demostración para poder cargar los registros que tienen asociada una imagen. La tabla contiene 3 campos ( Id, Producto y precio ).

El campo ID es un número único para cada producto, que se utiliza además para asociar una imagen a cada uno ellos. Las imágenes son archivos JPG ubicadas en la carpeta imágenes, y estas tienen como nombre el ID ( 1.jpg, 2.jpg etc ..) para luego poder insertar la imagen en la primer columna de la grilla.

Nota. Esto se puede realizar de muchas maneras, y es solo un ejemplo bien simple y no muy optimizado de como incluir imágenes utilizando (como en el código fuente anterior) la propieda CellPicture y de esta manera poder insertar los gráficos en las celdas, por ese motivo lo mas probable es que se deba adaptar el código a cada necesidad.

Descargar código fuente del proyecto

Captura del formulario de datos.

Recursos vb - Enlaces Relacionados

Buscar en Recursos vb