Sobre el ComboBox en Visual Basic 6.0

[feivelfabiola]

Sobre combobox , en mi combo1_click() muestra el valor y su indice, pero en combo2_clic() no verifica que si es manzana en el combo2 que en el combo1 este elegido frutas, o si esta en combo2 brocoli que en combo1 este elegido verduras, por ejemplo tengo lo siguiente:

Private Sub Form_Load()

Combo1.Clear
Combo1.AddItem "frutas"
Combo1.AddItem "verduras"

Combo2.Clear
Combo2.AddItem "naranjas"
Combo2.AddItem "manzanas"
Combo2.AddItem "brocoli"
Combo2.AddItem "coliflor"

End Sub

Private Sub Combo1_Click()

Select Case Combo1.List(Combo1.ListIndex)
Case "": MsgBox "No hay ningún elemento seleccionado en el combobox1"
Case "frutas": MsgBox "Haz seleccionado el elemento " & Combo1.List(Combo1.ListIndex) & " con índice " & Combo1.ListIndex
Case "verduras": MsgBox "Haz seleccionado el elemento " & Combo1.List(Combo1.ListIndex) & " con índice " & Combo1.ListIndex

End Select


''''''' Aqui algo esta mal porque solo me manda el mensaje de error de MsgBox
''''''' "No concuerdan los tipos" y siempre sale no importa cual opcion elija
Private Sub Combo2_Click()

Select Case Combo2.Text
Case "": MsgBox "No hay ningún elemento seleccionado en el combobox"
Case "naranjas":
If Me.Combo1.List(Combo1.ListIndex) <> "frutas" Then
MsgBox "No concuerdan los tipos"
End If
Case "manzanas":
If Me.Combo1.List(Combo1.ListIndex) <> "frutas" Then
MsgBox "No concuerdan los tipos"
End If
Case "brocoli":
If Me.Combo1.List(Combo1.ListIndex) <> "verduras" Then
MsgBox "No concuerdan los tipos"
End If
Case "coliflor":
If Me.Combo1.List(Combo1.ListIndex) <> "verduras" Then
MsgBox "No concuerdan los tipos"
End If
End Select

End Sub

[feivelfabiola]

''''' Ya arreglé esto, hice lo siguiente primero selecciono en combo1 si son frutas o verduras y en
''''''combo2 es como el submenu si se elijió frutas sale naranjas o manzanas
''''' y si se elijió verduras salen los brocolis y las coliflores, que estén bien...

Private Sub Combo2_Click()
Select Case Me.Combo2.Text
Case "naranjas"
MsgBox "Las naranjas tienen vitamina C"

Case "manzanas"
MsgBox "Las manzanas tienen ...."

Case "brocolis"
MsgBox "Los brocolis tienen ...."

Case "coliflores"
MsgBox "Las coliflores tienen ...."

End Select
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "frutas"
Combo1.AddItem "verduras"
Combo2.Clear
End Sub


Private Sub Combo1_Click()


Select Case Me.Combo1.Text
Case "frutas":
Combo2.Clear
Combo2.AddItem "naranjas", 0
Combo2.AddItem "manzanas", 1

Case "verduras":
Combo2.Clear
Combo2.AddItem "brocolis", 0
Combo2.AddItem "coliflores", 1
End Select

End Sub