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

184 - Edición de fecha en un FlexGrid

Ejemplo para editar fechas en un control MsFlexGrid por medio de un DtPicker

Este ejemplo permite editar directamente celdas de un MsFlexGrid o HierarChical FlexGrid, una fecha, por medio de un control Dtpicker oculto que se posiciona en la celda correspondiente cuando se hace DobleClik en dicha celda o se presiona la barra espaciadora. Luego al seleccionar la fecha y presionar la tecla Enter , la misma se asigna a la propiedad textMatrix, es decir se asigna el valor a la celda correspondiente.

Colocar

un control DtPicker llamado DtPicker1
un MsFlexGrid llamado MsFlexgrid1

Ejemplo actualizado ( El error era que no modificaba el valor al hacer click en el DTPicker. Ahora se cambia la fecha (El valor de la celda del GRID ) desde el evento Change del DTPicker )

Código en el formulario.

Option Explicit ' ---------------------------------------------------------------------------------- ' \\ -- Inicio ' ---------------------------------------------------------------------------------- Private Sub Form_Load() ' -- Configurar la Grilla With MSFlexGrid1 .FixedCols = 0 .FixedRows = 1 ' -- Modo de selección por Celda .SelectionMode = flexSelectionFree ' -- Insertar dos columnas .Cols = 2 .Rows = 1 ' -- Agregar encabezados .FormatString = "Usuario|Fecha de alta" ' -- Agregar columna de Usuarios y fecha de alta Dim Fila As Long For Fila = 0 To 20 ' -- Indicar la altura de cada celda del GRID .RowHeight(Fila) = 375 .AddItem "Usuatio: " & CStr(Fila) & vbTab & CStr(DateAdd("m", Fila, Date)) Next ' -- ancho de las columnas .ColWidth(0) = 2000 .ColWidth(1) = 2500 End With DTPicker1.Visible = False End Sub ' ---------------------------------------------------------------------------- ' \\ -- Enviar Enter al hacer doble Click ' ---------------------------------------------------------------------------- Private Sub MSFlexGrid1_DblClick() MSFlexGrid1_KeyPress 13 End Sub ' ---------------------------------------------------------------------------- ' \\ -- 'Especificar acá la columna de la fecha ( en este caso se usa la columna 2 ( Columna con índice 1)) ' ---------------------------------------------------------------------------- Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) ' -- Columna 2 If MSFlexGrid1.Col = 1 Then With MSFlexGrid1 ' -- Asignar la fecha ( El texto de la celda en el DTPicker) If Trim(.Text) <> vbNullString Then DTPicker1.Value = Format(.Text, "Short Date") ' -- formato de fecha Corto Else DTPicker1.Value = Format(Date, "Short Date") End If ' -- Redimensionar y posicionar el DTPicker DTPicker1.Move (.Left + .CellLeft), _ (.Top + 30 + (.RowHeight(0) * (.Row - .TopRow + 1))), _ (.CellWidth), _ (.CellHeight + 30) ' -- Hacer visible y pasarle el foco DTPicker1.Visible = True DTPicker1.Enabled = True DTPicker1.SetFocus End With End If End Sub ' ---------------------------------------------------------------------------- ' \\ -- Al mover el Scroll del Grid ocultar el control de fecha ' ---------------------------------------------------------------------------- Private Sub MSFlexGrid1_Scroll() DTPicker1.Visible = False End Sub ' ---------------------------------------------------------------------------- ' \\ -- Cambiar la fecha de la celda al cambiar el valor en el control de fecha ' ---------------------------------------------------------------------------- Private Sub DTPicker1_Change() With MSFlexGrid1 .TextMatrix(.Row, .Col) = DTPicker1.Value End With End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) Dim c As Long With MSFlexGrid1 c = .Col Select Case KeyCode Case 13, 9 .RowData(.Row) = 1 DTPicker1.Visible = False DTPicker1.Enabled = False .SetFocus .Col = c End Select End With End Sub ' ---------------------------------------------------------------------------- ' \\ -- Ocultar DTPicker cuando pierde el foco ' ---------------------------------------------------------------------------- Private Sub DTPicker1_LostFocus() DTPicker1.Visible = False End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb