Visual Basic - Pregunta combo box VB 6

Life is soft - evento anual de software empresarial
   
Vista:

Pregunta combo box VB 6

Publicado por Fabiola (2 intervenciones) el 21/08/2009 01:39:02
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

Private Sub Combo2_Click() ''''' en esta parte solo manda los mensajes de MsgBox

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Pregunta combo box VB 6

Publicado por Rolando  (115 intervenciones) el 21/08/2009 15:27:28
El valor blanco no deberia programarse en el evento click del combo , porque al inicio siempre , el combo siempre estara en blanco y siempre saldra el mensaje.

saludos

Rolando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Pregunta combo box VB 6

Publicado por Fabiola (2 intervenciones) el 21/08/2009 17:14:10
OK
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar