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

197 - Editar campo de tipo Boolean en un FlexGrid

Este ejemplo edita campos de tipo Boolean en un control MsFlexgrid, al presionar una tecla y al hacer Doble clic en la celda

Para editar el campo, no se utiliza un control CheckBox, simplemente cambia el valor a SI/NO al presionar el BackSpace o al darle clic a la celda.

vista del FlexGrid en el formulario

Nota: En el evento KeyPress y en el evento DblClick del FlexGrid, hay que especificar la columna a editar, es decir indicar el número a la propiedad Col del Flexgrid

Colocar un control MSFlexGrid y el siguiente código fuente en el form

Private Sub Form_Load() Dim x As Boolean 'Agrega algunos datos de ejemplo de tipo Boolean al FlexGrid With MSFlexGrid1 ' Tres columnas MSFlexGrid1.Cols = 3 For c = 1 To 3 For i = 1 To 12 .Rows = i + 1 ' Agrega datos de tipo SI/NO .TextMatrix(i, 2) = Format(x, "YES/NO") x = Not x .TextMatrix(i, 1) = MonthName(i) .TextMatrix(i, 0) = i Next Next End With End Sub Private Sub MSFlexGrid1_DblClick() ' Columna 2 Select Case MSFlexGrid1.Col Case 2: Cambiar End Select End Sub Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Select Case MSFlexGrid1.Col 'Especificar acá la columna de tipo SI/No para el Flexgrid Case 2 If KeyAscii = vbKeySpace Then 'Si se presionó el vbKeySpace, cambia el valor de la celda Cambiar End If End Select End Sub Sub Cambiar() With MSFlexGrid1 .TextMatrix(.Row, .Col) = Format(UCase(.TextMatrix(.Row, .Col)) _ = "NO" Or Trim(.TextMatrix(.Row, .Col)) _ = vbNullString, "YES/NO") End With End Sub

Nota. El siguiente enlace , muestra un código fuente para poder editar una columna de tipo Boolean pero en un control Datagrid .. ver ejemplo

Recursos visual basic 6.0 - Rrelacionados

Buscar en Recursos vb