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

129 - Ajustar el Ancho de las columnas de un control DataGrid

Contenido

Ajustar columnas en DataGrid - Con el control ADODC
Ajustar columnas en DataGrid - Con código de ADO
Enlaces relacionados

Ajustar columnas en DataGrid - Con el control ADODC

Esta rutina muestra como Ajustar el Ancho de cada columna de un control Datagrid al ancho mas largo del registro de esa columna

DataGrid ajustado

Vista del ejemplo en visual basic para ajustar el ancho de las columnas de un control DataGrid

En el ejemplo se utiliza un control DataGrid enlazado a un control Ado, haciendo algunas pequeños cambios al código, se puede utilizar con un objeto Recordset de Ado

Ejemplo

Colocar un Control DataGrid llamado DataGrid1
un Adodc llamado Adodc1.
Luego enviarle como parámetro al procedimiento estos 2 controles en el evento Click del Command1

Código fuente

Public Sub Ajustar_Columna_DataGrid( _ un_DataGrid As DataGrid, _ Ado As Adodc, _ Optional AccForHeaders As Boolean) Dim TempCol() As Integer Dim Nregistros As Integer, NCampos As Integer Dim Fila As Long, Col As Long, width As Single Dim maxWidth As Single, celdaText As String Dim saveFont As StdFont, oldScaleMode As Integer 'Variables para la cantidad de registros y columnas Nregistros = Adodc1.Recordset.RecordCount NCampos = Adodc1.Recordset.Fields.Count 'Array para almacenar el ancho de cada columna ReDim TempCol(NCampos) ' Si el número de registros es igual a 0 salimos If Nregistros = 0 Then Exit Sub ' Guardamos la fuente del DataGrid para luego reestablecerla Set saveFont = un_DataGrid.Parent.Font Set un_DataGrid.Parent.Font = un_DataGrid.Font ' Ajustar el ScaleMode en vbTwips para el formulario oldScaleMode = un_DataGrid.Parent.ScaleMode un_DataGrid.Parent.ScaleMode = vbTwips 'Movemos al Primer registro Ado.Recordset.MoveFirst maxWidth = 0 'Recorremos las columnas For Col = 0 To NCampos - 1 Ado.Recordset.MoveFirst If AccForHeaders Then 'Almacenamos el Ancho del texto de la columna maxWidth = un_DataGrid.Parent.TextWidth _ (un_DataGrid.Columns(Col).Text) + 200 End If Ado.Recordset.MoveFirst 'Recorremos los registros de esta columna For Fila = 0 To Nregistros - 1 If NCampos = 1 Then Else celdaText = un_DataGrid.Columns(Col).Text End If 'Almacena el Ancho del texto de la celda del Datagrid width = un_DataGrid.Parent.TextWidth(celdaText) + 200 'Si el ancho de la celda es mayor se actualiza la variable maxWidth _ y se establece el ancho de la columna If width > maxWidth Then maxWidth = width un_DataGrid.Columns(Col).width = maxWidth End If ' Movemos el Ado al Siguiente registro Ado.Recordset.MoveNext Next Fila 'Almacenamos el ancho de la columna TempCol(Col) = maxWidth Next Col 'Recorremos cada columna y le asignamos el ancho For Col = 0 To NCampos - 1 un_DataGrid.Columns(Col).width = TempCol(Col) Next 'restablecemos la fuente del DataGrid y el scaleMode Set un_DataGrid.Parent.Font = saveFont un_DataGrid.Parent.ScaleMode = oldScaleMode Ado.Recordset.MoveFirst Erase TempCol End Sub Private Sub Command1_Click() 'Se le pasa al procedimento el control Datagrid, el control Ado _ los registros y los campos Call Ajustar_Columna_DataGrid(DataGrid1, Adodc1, True) End Sub Private Sub Form_Load() Me.Caption = " Ejemplo para ajustar el ancho de las columnas de un DataGrid " End Sub

Ajustar columnas en DataGrid - Con código de ADO

Este es el mismo ejempo, pero adaptado para pasar, en vez de un control ADODC como parámetro de la función de autoajuste, enviar un objeto recordset, para cuando trabajamos con ADO mediante código.

También hace uso de la función api LockWindowUpdate al comienzo y al final de la rutina, para bloquear, mientras se recorre el recordset, la actualización de la grilla.

Nota. Se requiere la base de datos NWind de vb. Para probarlo con otra base de datos, cambiar la propiedad ConnectionString y el comando SQL en el método open del objeto Recordset en el evento Load del formulario

Colocar

Un DataGrid.
La refrencia de ADO.
Un botón.

Código fuente

Option Explicit ' \\ -- Descripción : Autosize de columnas en DataGrid ' -- Autor : Desconocido -- Adaptado para bloquear el repintado del control y utilizarlo con código de ADO ( Luciano Lodola -- http://www.recursosvisualbasic.com.ar/) ' -------------------------------------------------------------------------------------- ' -- Declaraciones Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long ' -- Objetos ADO Private cn As ADODB.Connection Private rs As ADODB.Recordset ' ------------------------------------------------------------------------------------------------------------ ' \\ -- Sub para autoajustar los encabezados del DataGrid ' ------------------------------------------------------------------------------------------------------------ Public Sub AutoSize_DataGrid(un_DataGrid As DataGrid, rs As ADODB.Recordset, Optional AccForHeaders As Boolean) On Error GoTo error_Handler ' -- Variables Dim arr_Columns() As Integer Dim iTotalRow As Integer Dim iTotalFields As Integer Dim iRow As Long Dim iCol As Long Dim sngTextWidth As Single Dim sngMaxTextWidth As Single Dim sCellValue As String Dim objOldFont As StdFont Dim oldScaleMode As Integer Dim lCurrentRecord As Long ' -- Cambiar el puntero del mouse y bloquear la actualización de pantalla para el GRID Screen.MousePointer = vbHourglass LockWindowUpdate un_DataGrid.hWnd DoEvents ' -- Guardar la posición del registro actual para reestablecer luego de ajustar lCurrentRecord = rs.AbsolutePosition ' -- Mover el cursor hacia el final rs.MoveLast ' -- Almacenar la cantidad de registros y columnas iTotalRow = rs.RecordCount iTotalFields = rs.Fields.Count ' -- Inicializar el Array para almacenar el ancho de cada columna ReDim arr_Columns(iTotalFields) With un_DataGrid ' -- Guardar la fuente del DataGrid para luego reestablecerla Set objOldFont = un_DataGrid.Parent.Font Set .Parent.Font = un_DataGrid.Font ' -- Ajustar el ScaleMode en vbTwips para el formulario y guardar el valor actual para reestablecerlo al final oldScaleMode = un_DataGrid.Parent.ScaleMode .Parent.ScaleMode = vbTwips ' -- Mover el cursor al Primer registro rs.MoveFirst ' -- Recorrer las columnas del conjunto de registros For iCol = 0 To iTotalFields - 1 ' -- Mover el cursor del recordset al principio rs.MoveFirst If AccForHeaders Then ' -- Almacenar el Ancho del texto de la columna sngMaxTextWidth = .Parent.TextWidth(.Columns(iCol).Text) + 200 End If ' -- Mover el cursor del recordset al siguiente registro rs.MoveFirst ' -- Recorrer todos los registros de esta columna For iRow = 0 To iTotalRow - 1 If iTotalFields <> 1 Then sCellValue = .Columns(iCol).Text End If ' -- Almacenar el Ancho del texto de esta celda sngTextWidth = .Parent.TextWidth(sCellValue) + 200 ' -- Si el ancho de la celda es mayor se actualiza la variable sngMaxTextWidth y se establece el ancho de la columna If sngTextWidth > sngMaxTextWidth Then sngMaxTextWidth = sngTextWidth ' -- cambiar el ancho mediante la propiedad width del objeto Columns .Columns(iCol).width = sngMaxTextWidth End If ' -- Siguiente rs.MoveNext Next ' -- Almacenar el ancho de la columna arr_Columns(iCol) = sngMaxTextWidth Next ' -- Establecer ancho de cada encabezado For iCol = 0 To iTotalFields - 1 .Columns(iCol).width = arr_Columns(iCol) Next ' -- restablecer la fuente del DataGrid y el modo de escala del formulario Set .Parent.Font = objOldFont .Parent.ScaleMode = oldScaleMode ' -- Mover al registro donde se estaba ubicado antes de ajustar rs.AbsolutePosition = lCurrentRecord ' -- Eliminar array Erase arr_Columns ' -- reestablecer repintado de la grilla LockWindowUpdate False Screen.MousePointer = vbDefault End With ' -- Fin Exit Sub error_Handler: LockWindowUpdate False Screen.MousePointer = vbDefault MsgBox Err.Description, vbCritical End Sub ' ------------------------------------------------------------------------------------ ' \\ -- Botón para ajustar las columnas ' ------------------------------------------------------------------------------------ Private Sub Command1_Click() ' -- Enviar DataGrid y recordset como parámetros ... Call AutoSize_DataGrid(DataGrid1, rs, True) ' -- Pasar el foco al DataGrid DataGrid1.SetFocus End Sub ' ------------------------------------------------------------------------------------ ' \\ -- Inicio - Crear conexión y recordset ' ------------------------------------------------------------------------------------ Private Sub Form_Load() ' -- Crear conexión a la base de datos de vb Set cn = New ADODB.Connection With cn .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.MDB;" ' -- Abrir .Open End With ' -- Crear recordset con datos de la tabla Clientes Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient Call .Open("SELECT * From Clientes ", cn, adOpenStatic, adLockOptimistic) End With ' -- Enlazar DataGrid al recordset Set DataGrid1.DataSource = rs Command1.Caption = "Ajustar" Me.Caption = "DataGrid - Autosize de encabezados" End Sub ' ------------------------------------------------------------------------------------ ' \\ -- Fin -- Cerrar conexión, recordset y destruir objetos ' ------------------------------------------------------------------------------------ Private Sub Form_Unload(Cancel As Integer) ' -- Quitar el enlace al Datagrid Set DataGrid1.DataSource = Nothing DoEvents ' -- Recordset If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If ' -- Conexión If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close End If Set cn = Nothing End If End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb