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

403 - FlexGrid con CheckBox

Ejemplo para editar campos Boolean en un control MsFlexgrid o Hierarchical Flex

El siguiente ejemplo, visualiza un campo de tipo SI/NO en una columna, y los mismos se muestra con un CheckBox, pero no insertando un control Check en la celda correspondiente, si no cambiando la fuente de la celda por el tipo de fuente " Wingdings ".

El caracter 168 visualiza un check en False y el caracter 254 el check en True

Form

formulario para editar el campo con el checkbox en un flexgrid

En el ejemplo, se utiliza la tabla Productos de la base de datos Nwind del directorio de vb, y el campo de tipo SI/No es el campo "Suspendido"

Nota: hay dos rutinas , una llamada Cargar_FlexGrid, que se ejecuta en el Form Load y carga todos los datos del recordset en la grilla. A esta rutina se le pasa el flex, el número de campo boolean para usar con los checkbox, y el recordset con los datos

Private Sub Cargar_FlexGrid(FlexGrid As Object, _ NumeroCampo As Integer, _ objRst As ADODB.Recordset)

La otra rutina, edita el recordset y la grilla al hacer Click en la celda. A esta le pasa también como parámetro : el número de campo, el recordset y el flex

Call ActualizarCampo(1, rs, MSFlexGrid1)

Ejemplo

Agregar al proyecto :

Un conrol Flexgrid o Hierarchical Flexgrid
La referencia a Ado

Código fuente en el form

Option Explicit ' variables Ado '''''''''''''''''''''''''''''' Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Form_Load() Dim sRuta As String ' Abre una nueva conexión ADO Set cn = New ADODB.Connection ' ruta a la base de datos NWIND sRuta = "C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB" ' Cadena de conexión cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & sRuta & ";" & _ "Persist Security Info=False" 'Abre la conexión cn.Open ' nuevo recordset Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient ' Llena el recordset con la consulta, _ Carga el campo " suspendido " que es de tipo SI/NO rs.Open "select NombreProducto,Suspendido from Productos", _ cn, adOpenStatic, adLockOptimistic, adCmdText ' Propiedades del Flex With MSFlexGrid1 .Rows = 2 .Cols = 1 .FixedCols = 0 .FixedRows = 1 .SelectionMode = flexSelectionFree End With ' rellena la grilla con los datos del recordset. _ Le pasa el nímero o index del campo queactuará como CheckBox Call Cargar_FlexGrid(MSFlexGrid1, 1, rs) End Sub 'Sub que carga los registros en la Grilla '''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Cargar_FlexGrid(FlexGrid As Object, _ NumeroCampo As Integer, _ objRst As ADODB.Recordset) On Local Error GoTo ErrSub Dim c As Integer Dim Fila As Integer Dim AnchoCol() As Single Dim TempAnchoCol As Single With FlexGrid ' deshabilita el repintado para que sea mas rápido .Redraw = False 'Cantidad de filas y columnas .Rows = 1 .Cols = objRst.Fields.Count End With 'Redimensiona el Array a la cantidad de campos del recordset ReDim AnchoCol(0 To objRst.Fields.Count - 1) 'Recorre las columnas For c = 0 To objRst.Fields.Count - 1 'Añade el título del campo al encabezado de columna FlexGrid.TextMatrix(0, c) = objRst.Fields(c).Name 'Guarda el ancho del campo en la matriz AnchoCol(c) = TextWidth(objRst.Fields(c).Name) Next c Fila = 1 'Recorre todos los registros del recordset Do While Not objRst.EOF ' Añade una nueva fila FlexGrid.Rows = FlexGrid.Rows + 1 For c = 0 To objRst.Fields.Count - 1 'Si el valor no es nulo If Not IsNull(objRst.Fields(c).Value) Then ' si la columna es el campo de tipo CheckBox ... If c = NumeroCampo Then With FlexGrid .Row = Fila ' se posiciona en la fila .Col = c ' .. en la columna ' cambia la fuente para esta celda .CellFontName = "Wingdings" .CellFontSize = 14 .CellAlignment = flexAlignCenterCenter ' edita la celda If objRst(NumeroCampo).Value = True Then .TextMatrix(Fila, NumeroCampo) = Chr(254) ' false Else .TextMatrix(Fila, NumeroCampo) = Chr(168) ' true End If End With Else 'Agrega el registro en la fila y columna específica FlexGrid.TextMatrix(Fila, c) = objRst.Fields(c).Value ' Almacena el ancho TempAnchoCol = TextWidth(objRst.Fields(c).Value) End If If AnchoCol(c) < TempAnchoCol Then AnchoCol(c) = TempAnchoCol ' nuevo ancho End If End If Next ' Siguiente registro objRst.MoveNext Fila = Fila + 1 'Incrementa la posición de la fila actual Loop ' Establece los ancho máximos de columna For c = 0 To FlexGrid.Cols - 1 FlexGrid.ColWidth(c) = AnchoCol(c) + 240 Next ' vuelve a habilitar el redraw FlexGrid.Redraw = True Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical FlexGrid.Redraw = True End Sub Private Sub ActualizarCampo(NCampo As Integer, _ objrs As ADODB.Recordset, _ FlexGrid As Object, _ Optional character As Integer) With FlexGrid If (.MouseCol) = NCampo And .MouseRow <> 0 Then ' mueve al primer registro objrs.MoveFirst ' se posiciona en el registro que corresponde la fila objrs.Move .Row - 1 ' CheckBox en false If .TextMatrix(.Row, NCampo) = Chr(168) Then objrs(NCampo).Value = True ' modifica objrs.Update ' actualizar .TextMatrix(.Row, NCampo) = Chr(254) ' CheckBox en true Else .TextMatrix(.Row, NCampo) = Chr(168) objrs(NCampo).Value = False objrs.Update 'actualiza el recordset End If End If End With End Sub Private Sub Form_Resize() MSFlexGrid1.Move 0, 0, ScaleWidth, ScaleHeight End Sub ' descarga el recordset y la conexión ''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Unload(Cancel As Integer) If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End If End Sub Private Sub MSFlexGrid1_Click() ' le pasa el número de campo de tipo Boolean _ El recordset enlazado al FlexGRid, y el control MsFlexgrid Call ActualizarCampo(1, rs, MSFlexGrid1) End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb