Evitar repetir datos en un ListBox

por Emmet Sáb Jun 19, 2010 2:01 pm

Aqui esta el codigo para evitar repetir elementos en un ListBox

Código:: PUBLIC SUB Button1_Click() DIM ask AS String ask = TextArea1.Text IF ListBox1.Find(ask) > -1 THEN Message.Info("Esta pregunta ya esta añadida") ELSE ListBox1.Add(ask) TextArea1.Clear ENDIF END

Como vereis carga los datos en una variable y luego la comprueba en la ListBox, si esta manda un mensaje y si no esta la añade y vacia la TextArea.
Y para evitaros a algunos modificaciones aqui va uno sin variables:

Código:: PUBLIC SUB Button1_Click() IF ListBox1.Find(TextArea1.Text) > -1 THEN Message.Info("Esta pregunta ya esta añadida") ELSE ListBox1.Add(TextArea1.Text) TextArea1.Clear ENDIF END