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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

206 - Propiedad CellPicture del control MsFlexGrid

<Volver> - Anterior - Siguiente

Ejemplo como colocar unos íconos o gráficos a las celdas de un FlexGrid

Para el ejemplo 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

Buscar en Recursos vb