comboxbox
buenas tardes estube buscando en internet halgo sobre el conbobox y llegue aqui.
bueno tengo un conboxbox con 10 obxiones o item para que el usuario selecione ; pero segun el item seleccionado cambia el caption de una etique asi como se habilitan y se desabilitan los botones( bueno esa es la idea)
ya agregue lo item hasta ahy llegue....
como hago o cual es la propiedad o metodo del control combox box
por ejemplo se que tengo que hacer algo asi
if item = 1 then
botonsalir.enable = false
end if
pero no estoy seguro ni donde ni exatamente como
o si alguien sabe de alguna pagina donde pueda encontrar halgolo basico sobre este control
suerte y gracias
pero no estoy seguro
bueno tengo un conboxbox con 10 obxiones o item para que el usuario selecione ; pero segun el item seleccionado cambia el caption de una etique asi como se habilitan y se desabilitan los botones( bueno esa es la idea)
ya agregue lo item hasta ahy llegue....
como hago o cual es la propiedad o metodo del control combox box
por ejemplo se que tengo que hacer algo asi
if item = 1 then
botonsalir.enable = false
end if
pero no estoy seguro ni donde ni exatamente como
o si alguien sabe de alguna pagina donde pueda encontrar halgolo basico sobre este control
suerte y gracias
pero no estoy seguro
Private Sub Combo1_Click()
If Combo1.Text = "hola" Then
MsgBox "ho b b b gthg"
End If
End Sub
Private Sub Form_Activate()
Combo1.AddItem "hola"
End Sub
If Combo1.Text = "hola" Then
MsgBox "ho b b b gthg"
End If
End Sub
Private Sub Form_Activate()
Combo1.AddItem "hola"
End Sub
hola creo que lo que tienes que hacer es esto en el evento click del comboxbox
Private Sub Combo1_Click()
If Combo1.ListIndex = 1 Then
label1.caption = " lo que sea"
ElseIf Combo1.ListIndex = 2 Then
ladel1.caption = "lo que sea que no sea lo que sea anterior"
y asi puedes poner intrucciones para todos los item
End If
End Sub
saludos
Private Sub Combo1_Click()
If Combo1.ListIndex = 1 Then
label1.caption = " lo que sea"
ElseIf Combo1.ListIndex = 2 Then
ladel1.caption = "lo que sea que no sea lo que sea anterior"
y asi puedes poner intrucciones para todos los item
End If
End Sub
saludos
Se pretenderes utilizar o ComboBox com a propriedade Sorted = True então, a forma correcta de atribuir um index a qualquer item que vais acrescentando é a seguinte:
Combo1.Additem "Isto é um teste"
Combo1.ItemData(Combo1.NewIndex)=1
quando pretenderes saber qual é o indice do item clickado deves fazer assim:
Item = Combo1.ItemData(Combo1.ListIndex)
É sempre assim para qualquer numero de items
Combo1.Additem "Isto é um teste"
Combo1.ItemData(Combo1.NewIndex)=1
quando pretenderes saber qual é o indice do item clickado deves fazer assim:
Item = Combo1.ItemData(Combo1.ListIndex)
É sempre assim para qualquer numero de items