Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/04/2007, 09:57
elbano66
 
Fecha de Ingreso: marzo-2007
Mensajes: 66
Antigüedad: 18 años, 1 mes
Puntos: 0
Re: funciones combo box

Cita:
Iniciado por ReViJa Ver Mensaje
Carga en un formulario dos combobox y copia el code que he puesto.
Al seleccionar un elemento de la lista desplegable del combo1 se cargará automaticamente la lista del combo2.

Voy por pasos (pero rapido que me pierdo el futbol ) jejeje
Al iniciar el formulario carga el combo1 con cuatro valores (en este ejemplo he usado números.)
Código:
Private Sub Form_Load()

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

End Sub
Al seleccionar un Elemento de la lista del combo1(uno, dos, tres o cuatro) se carga automaticamente el combo2 dependiendo del valor seleccionado del combo1

Código:
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
    Vaciar
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
  Case 1
    Vaciar
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
  Case 2
    Vaciar
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
  Case 3
    Vaciar
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
End Select
End Sub
He añadido un procedimiento para vaciar el combo2 y asi solo muestra los valores que se seleccionen.

Código:
Private Sub Vaciar()

Cont = Combo2.ListCount - 1
For x = Cont To 0 Step -1
  Combo2.RemoveItem x

Next
End Sub

un saludo.
ok entendi yo lo analizo, otra cosita y disculpa si yo tengo 4 combo box como hago para que dependiendo de lo que escoja en el primero se mostrara en el segundo osea ya lo hice lo que me dijsitess pero como hago para que lo que escoja en el segundo se me muetres en un tercero y de lo que ecoja en el 3ero se muetre en el 4to