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

314 - Editar Flexgrid

Ejemplo enviado por Carlos A. Bertoni para editar las celdas de un control Flexgrid o Microsoft Hierarchical flexgrid

Para el ejemplo colocar un control Flexgrid en el formulario

Nota: para borrar el contenido escrito en la celda, presionar el BackSpace. Para eliminar todo el contenido, presionar la tecla Suprimir

Código fuente en el formulario

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If KeyAscii >= 32 And KeyAscii <= 127 Then MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii) End If End Sub Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyDelete MSFlexGrid1.Text = "" Case vbKeyBack If Len(MSFlexGrid1.Text) > 0 Then MSFlexGrid1.Text = Left(MSFlexGrid1.Text, Len(MSFlexGrid1.Text) - 1) End If End Select End Sub

También podés ver este control activex que permite usar una grilla editable

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb