Ver Mensaje Individual
  #5 (permalink)  
Antiguo 25/04/2007, 13:35
elbano66
 
Fecha de Ingreso: marzo-2007
Mensajes: 66
Antigüedad: 17 años, 2 meses
Puntos: 0
Re: funciones combo box

Cita:
Iniciado por ReViJa Ver Mensaje
Te dejo un ejemplo sin BD para que tengas una referencia:

Código:
Private Sub Form_Load()

Combo1.AddItem "uno"
Combo1.AddItem "dos"
Combo1.AddItem "tres"
Combo1.AddItem "cuatro"

End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
  Case 1
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
  Case 2
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
  Case 3
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
End Select
End Sub
Recuerda que la propiedad ListIndex empieza en cero.

Saludos.
OK pero yava no entendi yo lo probe y no funciona donde coloco ListIndex igual a cero no enendi no me funciona podrias explicarme y perdona la molestia es que de combox box nose casi nada