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

482 - Ocultar columnas en un MsFlexGrid

Simple código de ejemplo en vb 6.0, para poder ocultar mediante un control ListBox con checkBox , las columnas en un MsFlexgrid en el evento ItemCheck

Controles , para el ejemplo :

Un control ListBox llamado List1. al listbox establecerle la propiedad Style con el valor 1, es decir para poder utilizar checkBox
Un control FG llamado MsFkexgrid1

Código fuente en el formulario principal

Option Explicit Private Sub Form_Load() With MSFlexGrid1 ' añadir las columnas con FormatString .FormatString = "Id|Producto|Precio|stock|Baja|Id Proveedor" .FixedCols = 0 ' Agregar 100 datos a la grilla con el método AddItem Dim i As Integer For i = 0 To 100 .AddItem i & vbTab & _ "Prducto: " & i & vbTab & _ "Precio " & FormatCurrency(Rnd * 100, 2) & vbTab & _ CInt(Rnd * 150) & vbTab & _ CInt(Rnd * 5) & vbTab & _ i Next ' Propiedades para el MsFlexgrid .SelectionMode = flexSelectionByRow .AllowUserResizing = flexResizeColumns 'Asignar el ancho de los encabezados .ColWidth(0) = 500 .ColWidth(1) = 1500 .ColWidth(2) = 1200 .ColWidth(3) = 1200 .ColWidth(4) = 800 .ColWidth(5) = 2500 End With With List1 If .Style = 0 Then MsgBox "Colocar la propiedad Style del listbox con el valor 1", vbCritical End With ' cargar el listbox con los campos Call Ocultar_Columnas(List1, MSFlexGrid1) End Sub Sub Ocultar_Columnas( _ lb As ListBox, _ fg As MSFlexGrid, _ Optional sValueCol As String = "") Static arrColWith() As Long Dim i As Integer With lb ' si no se pasa el nombre del campo , cargar todos y seleccionarlos If sValueCol = vbNullString Then ' array para guardar los valores del ancho de las columnas ReDim arrColWith(fg.Cols - 1) .Clear For i = 0 To fg.Cols - 1 lb.AddItem fg.TextMatrix(0, i) arrColWith(i) = MSFlexGrid1.ColWidth(i) .Selected(i) = True Next Else ' ocultar las columnas For i = 0 To fg.Cols - 1 ' si el nombre es igual If LCase(.List(i)) = LCase(sValueCol) Then '.. comprobar el estado If .Selected(i) Then If fg.ColWidth(i) = 0 Then fg.ColWidth(i) = arrColWith(i) ' Restaurar el ancho Else fg.ColWidth(i) = 0 ' ocultar End If End If Next End If End With End Sub Private Sub List1_ItemCheck(Item As Integer) ' al seleccionar la columna, indicarle el nombre del campo Call Ocultar_Columnas(List1, MSFlexGrid1, List1.Text) End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb