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

151 - Array a FlexGrid

Contenido

Matriz a Flexgrid
Flexgrid a Matriz
Enlaces relacionados

Pasar un array o matriz a un Flexgrid

Este simple ejemplo pasa o copia el contenido de un Array o Matriz de datos a un control FlexGrid.

Antes de pasar los datos, en el ejemplo, se utiliza un array de 2 Dimensiones que previamente se carga con algunos valores en un For-next.

Luego de cargarse los valores en la matriz, se llama a la sub Array_a_FlexGrid y se le envía como parámetro el Array y el control Ms FlexGid

Luego dentro de la sub obtiene los valores máximos y mínimos de las dimensiones para poder, mediante un bucle For-Next llenar el Flex con el método TextMatrix del control

Controles

Agegar un control FlexGid en el Formulario
un Command1

Pegar el código fuente en el Form:

Option Explicit ' ---------------------------------------------------------------------------- ' \\ -- Función que recibe como parámetro la matriz y el control FlexGrid ' ---------------------------------------------------------------------------- Sub Array_a_FlexGrid(ByRef elArray() As Variant, ByVal FlexGrid As Object) On Error GoTo error_Handler Dim VFMin As Integer Dim VColMin As Integer Dim VFMax As Integer Dim VColMax As Integer Dim Fila As Integer Dim Columna As Integer ' -- Alamacenar el primer y último valor de cada dimensión del array VFMin = LBound(elArray, 1) VFMax = UBound(elArray, 1) VColMin = LBound(elArray, 2) VColMax = UBound(elArray, 2) ' -- Configurar Grid With FlexGrid .FixedCols = 0 .FixedRows = 0 ' -- Agregar las filas y columas .Rows = VFMax - VFMin + 1 .Cols = VColMax - VColMin + 1 ' -- Bucle con las variables anteriores ' -- para agregar mediante TextMatrix los valores en el FlexGrid For Fila = VFMin To VFMax For Columna = VColMin To VColMax .TextMatrix(Fila - VFMin, Columna - VColMin) = elArray(Fila, Columna) Next Next End With ' -- Errores Exit Sub error_Handler: MsgBox Err.Description, vbCritical End Sub ' --------------------------------------------------------------------------------------- ' \\ -- Botón para pasar la matriz al Grid ' --------------------------------------------------------------------------------------- Private Sub Command1_Click() Dim UnArray(1 To 1000, 1 To 2) As Variant Dim i As Long Dim j As Long ' - Cargar datos de ejemplo en el Array For j = 1 To 2 For i = 1 To 1000 UnArray(i, j) = i Next Next ' -- Enviar el Array anterior y el control FlexGrid como parámetro Call Array_a_FlexGrid(UnArray(), MSFlexGrid1) End Sub ' --------------------------------------------------------------------------------------- ' \\ -- Inicio ' --------------------------------------------------------------------------------------- Private Sub Form_Load() Me.Caption = " Ejemplo para copiar o pasar un Array o Matriz a un control FlexGrid " End Sub

Flexgrid a matriz

Este otro código , llena unos datos a un Flexgrid y luego pasa los mismos a una matriz

En este caso se cargan 12 filas en tres columnas

Controles

Colocar un control MsFlexgrid1
un Command1

Código fuente

Option Explicit ' recibe el flexgrid Private Sub Pasar_a_Matriz(flex As MSFlexGrid) Dim Columna As Integer, fila As Integer fila = flex.Rows Columna = flex.Cols ' redimensiona la matriz a la cantidad de filas y columnas ReDim matriz(0 To fila, 0 To Columna) As String ' llena la matriz '''''''''''''''''''''' ' recorre las filas For fila = 0 To flex.Rows - 1 ' recorre los encabezados For Columna = 0 To flex.Cols - 1 matriz(fila, Columna) = flex.TextMatrix(fila, Columna) Next Next End Sub Private Sub Command1_Click() ' le pasa el Msflexgrid como argumento Call Pasar_a_Matriz(MSFlexGrid1) End Sub Private Sub Form_Load() With MSFlexGrid1 .FixedCols = 0 ' Tres encabezados .FormatString = "Col 1|Col 2|Col 3" ' ancho de las Cols .ColWidth(0) = 2000 .ColWidth(1) = 2000 .ColWidth(2) = 2000 Dim i As Integer Dim item As String ' llena una cuadrícula o matriz de 3 x 12 For i = 1 To 12 item = "Item: " & "Fila: " & i & " " .AddItem item & "Col:1" & vbTab & _ item & "Col:2" & vbTab & _ item & "Col:3", i Next End With Command1.Caption = "pasar grilla a la matriz" End Sub

Recursos vb - Enlaces relacionados

Buscar en Recursos vb