Autor Tema: Cambiar Estilo De Combobox (Leído 3003 veces)

neorent · « **en:** Viernes 17 de Marzo de 2006, 16:37 »

hola a todos
bueno le comento tengo unos combo y quisiera hacer algo que no se como se hace o no se si se puede hacer, por ejemplo tengo 10 item en un combobox dropdown list, pero quiero saber si se puede hacer que al hacer doble click en el combo me permita ingresar un nuevo item que no exista en la tabla que tengo no se, si se puede hacer pero si se puede que alguien me comente como se hace pk ya intente hacer esto combo1.style = 0 o 2 y me manda error asiq ue si alguien sabe como se hace please que me ayude ok gracias adios

Jose Arriagada · « **Respuesta #1 en:** Lunes 20 de Marzo de 2006, 16:23 »

Como ya te habras dado cuenta, la propiedad Style del combobox es asignable solo en tiempo de diseño.
Y como podras darte cuenta TAMBIEN, no puedes utilizar el evento DOBLE-CLICK sobre el combobox, ya que opera primero el evento CLICK.

Por lo tanto, para realizar lo que deseas, solo debes "simular" un ingreso.

Utiliza el siguiente ejemplo, para que veas como hacerlo...

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Text1.Top = Combo1.Top
Text1.Left = Combo1.Left
Text1.Width = Combo1.Width
Text1.Height = Combo1.Height
Text1.Visible = True
Text1.Text = ""
Text1.SetFocus
Combo1.Visible = False

End If
End Sub

Private Sub Form_Load()
Text1.Visible = False
For i = 1 To 10
Combo1.AddItem Format("01/" & i & "/2006", "mmmm")
Next i
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Text1.Visible = False
Combo1.Visible = True
Else
If KeyAscii = 13 Then
Combo1.AddItem Text1.Text
Text1.Visible = False
Combo1.Visible = True
End If
End If
End Sub

Espero te sirva

SoloCodigo

Autor Tema: Cambiar Estilo De Combobox (Leído 3003 veces)

neorent

Cambiar Estilo De Combobox

Jose Arriagada

Re: Cambiar Estilo De Combobox