SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: neorent en Viernes 17 de Marzo de 2006, 16:37

Título: Cambiar Estilo De Combobox
Publicado por: 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

Título: Re: Cambiar Estilo De Combobox
Publicado por: Jose Arriagada 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