Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: florazulceleste 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:
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"
-
Puedes usar la propiedad ListIndex
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
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
-
En el caso de que sea editable, puedes hacer un select case por la propiedad "Text"
-
gracias!! :D