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
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 !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas