Visual Basic - Ayuda con el ComboBox

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con el ComboBox

Publicado por Lucas (1 intervención) el 22/02/2006 16:00:09
Hola , yo tenia problemas con el combobox , no sabia como ponerle mas opciones , pero ahora e leido bajo algunos posts y ya se , pero el problema me biene cuando tengo que decirle a vb que la opcion de combobox que le e dado tiene que hacer alguna operacion:
Explico

Private Sub Form_Load()
Combo1.AddItem "Opcion1"
End Sub

Ahora en el combobox ya tengo la "Opcion1" , el problema bien cuando quiero que esta opcion realice alguna operacion.
Me podriais ayudar?
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:Ayuda con el ComboBox

Publicado por Matías Freire (421 intervenciones) el 22/02/2006 16:24:29
Lucas:

Tendrías que usar el evento Click del ComboBox, y usar la propiedad "Text" del combo si querés comparar según el texto, o "ListIndex" si querés comparar por el número de opción.

Ejemplo:

Private Sub Combo1_Click()
´Si no seleccionó nada, salgo
If Combo1.ListIndex = -1 Then Exit Sub

'Comparo por Texto
Select Case Combo1.Text
Case "Opcion1"
MsgBox "Ud. ha elegido la opción 1"
Case "Opcion2"
MsgBox "Ud. ha elegido la opción 2"
Case Else
MsgBox "Ud. ha elegido cualquier opcion menos la 1 o la 2"
End Select

'Comparo por Orden
Select Case Combo1.ListIndex

'Acordate que el orden de los items empiezan en cero

Case 0
MsgBox "Ud. ha elegido la opción 1"
Case 1
MsgBox "Ud. ha elegido la opción 2"
Case Else
MsgBox "Ud. ha elegido cualquier opcion menos la 1 o la 2"
End Select

End sub

Espero que te sirva... Saludos!
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:Ayuda con el ComboBox

Publicado por wladimir (54 intervenciones) el 22/02/2006 16:27:18
mira esta es una opcion el que le ponga index al combo y preguntar por el index

Private Sub Form_Load()
Combo1.AddItem "Opcion1" ,0
Combo1.additem"opcion2",1
End Sub

If Combo1.ListIndex = 0 Then
Form3.Show
End If

espero que te sirva saludos.
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