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

275 - Ajustar columnas en un Microsoft Hierarchical FlexGrid

Ejemplo que recorre las filas y columnas de un Hierarchical FlexGrid para autoajustar los encabezados o columnas al elemento mas ancho

En el ejemplo se recorre en dos bucles las filas y columnas del Flex y se va almacenando en un vector el ancho mayor de cada columna

Luego al final de todo se vuelve a recorrer todos los campos y se asigna mediante la propiedad ColWidth del FlexGrid, el ancho de cada Encabezado

Controles y referencias:

Colocar un CommandButton
un control Microsoft Hierarchical FlexGrid
y la referencia a Microsoft Activex Data Objects para usar ADO

vista del formulario de ejemplo para hacer un autosize a las columnas del msflexgrid

Nota en este otro enlace hay un ejemplo para añadir los datos de un recordset en un control Microsoft FlexGrid, y también hacer un AutoSize a las columnas

Cargar recordset a FlexGrid y ajustar columnas

Código fuente en el formulario

Option Explicit ' Controles: Un Microsoft Hierarchical FlexGRid y la referencia a ADO ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Command para ajustar las columnas Private Sub Command1_Click() Call Ajustar_Columnas(MSHFlexGrid1) End Sub 'Sub para recorrer el FlexGRid y ajustar las columnas '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Ajustar_Columnas(FlexGrid As MSHFlexGrid) On Local Error GoTo ErrSub 'Para las filas y columnas del Flexgrid Dim Columna As Integer, Fila As Long 'Matriz y variable para los anchos de columna Dim Ancho_Columna() As Single Dim Col_Width As Single 'Redimensionar el Array a la cantidad de columnas ReDim Ancho_Columna(0 To FlexGrid.Cols - 1) 'Recorrer las columnas para almacenar el ancho For Columna = 0 To FlexGrid.Cols - 1 'Guarda el ancho de la columna en la matriz Ancho_Columna(Columna) = TextWidth(FlexGrid.TextMatrix(0, Columna)) Next Columna 'Recorrer todas las filas del FlexGRid For Fila = 1 To FlexGrid.Rows - 1 'Recorrer todas las Columnas For Columna = 0 To FlexGrid.Cols - 1 ' Almacenar el ancho de la columna actual Col_Width = TextWidth(FlexGrid.TextMatrix(Fila, Columna)) 'Comparar cual es mayor If Ancho_Columna(Columna) < Col_Width Then Ancho_Columna(Columna) = Col_Width End If Next Next ' Establecer los anchos de columna al FlexGRid _ con la propiedad ColWidth For Columna = 0 To FlexGrid.Cols - 1 FlexGrid.ColWidth(Columna) = Ancho_Columna(Columna) + 240 Next Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical FlexGrid.Redraw = True End Sub Private Sub Form_Load() Dim Path_base As String Dim cn As ADODB.Connection Dim rst As ADODB.Recordset 'Path de la base de datos Path_base = "C:\Archivos de programa\Microsoft Visual Studio" & _ "\VB98\biblio.MDB" ' Abrir una nueva conexión Set cn = New ADODB.Connection Set rst = New ADODB.Recordset ' Cadena de conexión cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Path_base & ";" & _ "Persist Security Info=False" 'abrir la base de datos cn.Open ' Llenar el recordset con la consulta rst.Open "Select * From Authors", cn, adOpenStatic, adLockPessimistic 'Cargar el FlexGrid Set MSHFlexGrid1.DataSource = rst Command1.Caption = " Ajustar Columnas " Me.Caption = " Ejemplo para ajustar columnas en un en un " & _ "Microsoft Hierarchical FlexGrid " End Sub ' redimensionar controles Private Sub Form_Resize() On Local Error Resume Next Command1.Width = 2500 Command1.Height = 400 MSHFlexGrid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - (Command1.Height + 50) Command1.Move Me.ScaleWidth - (Command1.Width + 25), _ MSHFlexGrid1.Top + MSHFlexGrid1.Height + 50, Command1.Width, _ Command1.Height - 10 End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb