Autor Tema: propiedad para seleccionar combo??  (Leído 1588 veces)

0 Usuarios y 1 Visitante están viendo este tema.

florazulceleste

  • Bytes
  • *
  • Mensajes: 29
  • Reputación: +1/-0
  • si la vida no te sonrie... hazle consquillas!!
    • Ver Perfil
    • Mantenimiento de Computadoras
propiedad para seleccionar combo??
« en: Septiembre 09, 2011, 10:40:27 pm »
hola... necesito saber como hacer para indicarle a un comando que si selecciono un elemento del ComboBox, proceda a hacer lo que le pido.. por ejemplo, se lo mostrare en lenguaje natural para que entiendan mejor:

Código: [Seleccionar]
private sub cmdxxx_Click
if selecciono el elemento equis del comboBox then
   seguir el procedimiento establecido
end if
el problema es que no se que propiedad se utiliza para indicar "cuando seleccionamos tal elemento del combo"

gracias por sus respuestas!

PD: en el combo hay dos elementos "X" y "Y"
...vive como si fueras a morir mañana:
   aprende como si fueras a vivir para siempre...

Virgil Tracy

  • Kilobyte
  • **
  • Mensajes: 64
  • Reputación: +38/-1
    • Ver Perfil
Re:propiedad para seleccionar combo??
« Respuesta #1 en: Septiembre 09, 2011, 11:07:33 pm »
Puedes usar la propiedad ListIndex

Código: (vb6) [Seleccionar]
Private Sub Command1_Click()

 ' si no hay seleccion no hacemos nada
 If  Combo1.ListIndex = -1 Then Exit Sub

' el indice del combo parte en 0
If Combo1.ListIndex = 0 Then
   Debug.Print "X"
Else
   Debug.Print "Y"
End If

End Sub

Private Sub Form_Load()

With Combo1
     .AddItem "X"
     .AddItem "Y"
End With

End Sub

o puedes usar la propiedad ItemData

Código: (vb6) [Seleccionar]
Private Sub Command1_Click()

' si usas una tabla con campos codigo, nombre para llenar el combo
' en el itemdata pones el codigo y en el additem pones el nombre
With Combo1

     ' si no hay seleccion no hacemos nada
     If .ListIndex = -1 Then Exit Sub
     
     If .ItemData(.ListIndex) = 1000 Then
        Debug.Print "X"
     Else
        Debug.Print "Y"
     End If

End With

End Sub

Private Sub Form_Load()

With Combo1
     .AddItem "X"
     .ItemData(.NewIndex) = 1000
     
     .AddItem "Y"
     .ItemData(.NewIndex) = 2000
     
End With

End Sub

raul338

  • Terabyte
  • *****
  • Mensajes: 894
  • Reputación: +62/-8
  • xD fan!!!!! xD
    • Ver Perfil
    • Raul's Weblog
Re:propiedad para seleccionar combo??
« Respuesta #2 en: Septiembre 09, 2011, 11:24:31 pm »
En el caso de que sea editable, puedes hacer un select case por la propiedad "Text"

florazulceleste

  • Bytes
  • *
  • Mensajes: 29
  • Reputación: +1/-0
  • si la vida no te sonrie... hazle consquillas!!
    • Ver Perfil
    • Mantenimiento de Computadoras
Re:propiedad para seleccionar combo??
« Respuesta #3 en: Septiembre 10, 2011, 01:20:26 am »
gracias!!  :D
...vive como si fueras a morir mañana:
   aprende como si fueras a vivir para siempre...