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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

193 - Editar un Flexgrid con un Combo

Ejemplo que muestra como posicionar un comboBox en una celda de un control FlexGrid para editar la misma

El mismo es como muestra la imagen:

vista del formulario conel control MsFlexGrid y el combo para editar

Al hacer DobleClick en una celda de una determinada columna (la columna del Flexgrid se especifica en el procedimiento Iniciar), ... se posiciona el combobox para poder editar dicha celda.

Colocar

un control MsFlexGrid llamado MsFlexGRid1
un control Combo1.

Private Sub Verificar() ' IMPORTANTE: especificar acá la columna If MSFlexGrid1.Col = 1 Then Combo1.Clear Cargar_Combo On Error Resume Next Combo1.Text = MSFlexGrid1.Text On Error Resume Next Colocar_Combo End If End Sub Private Sub Colocar_Combo() ' ¨Posiciona y redimensiona el Combo en lacelda activa With Combo1 .Move MSFlexGrid1.CellLeft + MSFlexGrid1.Left, _ MSFlexGrid1.CellTop + MSFlexGrid1.Top, _ MSFlexGrid1.CellWidth .Visible = True .SetFocus End With End Sub ' Cuando se cambia de celda Oculta el Combo Private Sub MSFlexGrid1_LeaveCell() Ocultar End Sub 'Cuando pierde el foco el Flexgrid, oculta el Combo Private Sub MSFlexGrid1_GotFocus() Ocultar End Sub Private Sub Ocultar() If Combo1.Visible = True Then ' le asigna el texto a la celda del FlexGrid con el valor del combo1 MSFlexGrid1.Text = Combo1.Text Combo1.Visible = False End If End Sub Private Sub Iniciar() 'Propiedades para el Combo With Combo1 .FontSize = MSFlexGrid1.FontSize .Visible = False .FontName = MSFlexGrid1.FontName End With 'Propiedades para el FlexGrid With MSFlexGrid1 .RowHeightMin = Combo1.Height .FixedCols = 0 .Cols = 2 .FixedRows = 1 .Rows = 50 End With 'Agrega dos columnas de ejemplo MSFlexGrid1.TextMatrix(0, 0) = "Columna 1" MSFlexGrid1.TextMatrix(0, 1) = " Meses del Año" MSFlexGrid1.ColWidth(1) = 1500 'Rellena con alfunos datos For i = 1 To 49 MSFlexGrid1.TextMatrix(i, 0) = i Next End Sub Private Sub Cargar_Combo() For i = 1 To 12 Combo1.AddItem MonthName(i) Next End Sub Private Sub Combo1_Click() MSFlexGrid1.SetFocus End Sub Private Sub Form_Load() Iniciar Cargar_Combo End Sub Private Sub MSFlexGrid1_DblClick() Verificar End Sub

Otra forma

Ejemplo extraido de la ayuda de Microsoft , que muestra otra forma de poder realizar la edición en el flex mediante un combobox.

También el proyecto utiliza subclasificación para el msflexgrid , para que cuando se repinte o cambie de tamaño , se vuelva a ajustar las dimensiones del combo al tamaño de la calda ( esto es opcional )

Captura del form de ej.

Descargar

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb