Combo box en una grilla
Hola
Necesito saber como utilizar la grilla MSHFlexGrid para que se pueda escribir, específicamente necesito que la grilla contenga texto y combobox. Ya tengo el código para la grilla con texto, lo encontré en la ayuda de visual basic y funciona bien. Ahora necesito agregarle combobox, esa parte me falta. Chao y gracias
Necesito saber como utilizar la grilla MSHFlexGrid para que se pueda escribir, específicamente necesito que la grilla contenga texto y combobox. Ya tengo el código para la grilla con texto, lo encontré en la ayuda de visual basic y funciona bien. Ahora necesito agregarle combobox, esa parte me falta. Chao y gracias
1 Respuesta
Respuesta de xabi
1
Yo uso el TrueDBGrid, pero para cualquiera de ellos cuando he necesitado una control multiline en el que introducir texto he hecho algo parecido a esto:
stxtDescripcion = TDBGrid.Columns("Descripción")
Load frmDescripcion
With frmDescripcion
.txt(0) = stxtDescripcion
.Left = 130 + TDBGrid.Columns("Descripción").Left
.Top = 990 + TDBGrid.Top + TDBGrid.RowTop(TDBGrid.Row)
.Show 1
TDBGrid.SetFocus
TDBGrid.Col = TDBGrid.Columns("Cant").ColIndex
End With
TDBGrid.Columns("Descripción") = stxtDescripcion & ""
El formulario frmDescripcion lo unico que hace es:
Option Explicit
Private Sub txt_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
Unload Me
Case vbKeyF5
Trabajos.stxtDescripcion = txt(0)
Unload Me
End Select
End Sub
Para mejorar el diseño, este formulario tiene BorderStyle=0 y un tamaño ajustado al del txt.
Con un código parecido puedes usarlo con un combo,...
stxtDescripcion = TDBGrid.Columns("Descripción")
Load frmDescripcion
With frmDescripcion
.txt(0) = stxtDescripcion
.Left = 130 + TDBGrid.Columns("Descripción").Left
.Top = 990 + TDBGrid.Top + TDBGrid.RowTop(TDBGrid.Row)
.Show 1
TDBGrid.SetFocus
TDBGrid.Col = TDBGrid.Columns("Cant").ColIndex
End With
TDBGrid.Columns("Descripción") = stxtDescripcion & ""
El formulario frmDescripcion lo unico que hace es:
Option Explicit
Private Sub txt_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
Unload Me
Case vbKeyF5
Trabajos.stxtDescripcion = txt(0)
Unload Me
End Select
End Sub
Para mejorar el diseño, este formulario tiene BorderStyle=0 y un tamaño ajustado al del txt.
Con un código parecido puedes usarlo con un combo,...
