Ayuda con combo
Me podrían decir como puedo hacer para que cuando seleccione un elemento de la lista del combo ya no me vuelva a aparecer cuando seleccione el mismo combo, es decir si tengo un combo que me despliega 8 elementos y selecciono 1 pues que nada más me queden los 7 y el que seleccione que se borre o se ponga de un color distinto para que se distinag cual seleccione.. Espero y alguien em pueda ayudar y de antemano le doy las gracias...
Respuesta de ifrancoz
1
Puedes hacer algo como esto.
Dim I As Byte
Private Sub Combo1_Click()
Text1 = Combo1.Text
I = Combo1.ListIndex
Combo1.RemoveItem I
If Combo1.ListCount = 0 Then
Combo1.Clear
MsgBox "El combo quedó sin elementos"
End If
End Sub
Private Sub Form_Load()
Combo1. Clear
Combo1. AddItem "Ene"
Combo1. AddItem "Feb"
Combo1. AddItem "Mar"
Combo1. AddItem "Abr"
Combo1. AddItem "May"
End Sub
Suerte !
Dim I As Byte
Private Sub Combo1_Click()
Text1 = Combo1.Text
I = Combo1.ListIndex
Combo1.RemoveItem I
If Combo1.ListCount = 0 Then
Combo1.Clear
MsgBox "El combo quedó sin elementos"
End If
End Sub
Private Sub Form_Load()
Combo1. Clear
Combo1. AddItem "Ene"
Combo1. AddItem "Feb"
Combo1. AddItem "Mar"
Combo1. AddItem "Abr"
Combo1. AddItem "May"
End Sub
Suerte !
