[VB6] Evitare elementi duplicati in ListBox

[x69asterix]

ho una ListBox che popolo da un bottone,
List1.AddItem (Text1)
es.
mario
piero
franco
....

bene se esiste mario come evito l'inserimento in Listbox?

[alka]

Originariamente inviato da x69asterix
se esiste mario come evito l'inserimento in Listbox?

Basta che non chiami il metodo AddItem...

[x69asterix]

Originariamente inviato da alka
Basta che non chiami il metodo AddItem...

????
il bottone non lo gestisco io, ma viene gestito in automatico

[alka]

Originariamente inviato da x69asterix
il bottone non lo gestisco io, ma viene gestito in automatico

Tu hai detto "ho una ListBox che popolo da un bottone", quindi il codice che risponde al clic su quel bottone l'hai scritto tu, no?

[MdE2005]

Fai così:

for i = 0 to list1.listcount - 1
           if stringa = list1.list(i) then
           msgbox "Stringa già presente, voce n° " & i -1  
           else
           list1.additem stringa
           next i

Chiaramente così non distingue tra maiuscole e minuscole (es. Casa è diverso da casa..ma quello si risolve o con lcase o con ucase)


fammi sapere..

ciao

[x69asterix]

Originariamente inviato da alka
Tu hai detto "ho una ListBox che popolo da un bottone", quindi il codice che risponde al clic su quel bottone l'hai scritto tu, no?

esatto!

[x69asterix]

Originariamente inviato da MdE2005
Fai così:

for i = 0 to list1.listcount - 1
           if stringa = list1.list(i) then
           msgbox "Stringa già presente, voce n° " & i -1  
           else
           list1.additem stringa
           next i

Chiaramente così non distingue tra maiuscole e minuscole (es. Casa è diverso da casa..ma quello si risolve o con lcase o con ucase)


fammi sapere..

ciao

ciao,
in questo modo funziona:

List1.AddItem (text1)
stringa = (text1)
For i = 0 To List1.ListCount - 1
If stringa = List1.List(i) Then
List1.RemoveItem (i) - 1
Else
List1.AddItem stringa
End If
Next i

[MdE2005]

ciao,
in questo modo funziona:

List1.AddItem (text1)
stringa = (text1)
For i = 0 To List1.ListCount - 1
If stringa = List1.List(i) Then
List1.RemoveItem (i) - 1
Else
List1.AddItem stringa
End If
Next i

Se funziona allora..cmq te NON avevi chiesto questo, te avevi semplicemente chiesto di evitare di inserire un valore già presente e NO di eliminarlo in caso ci fosse..anche perchè se controlli i valori in entrata non è possibile che ci siano copie di valori, non ti sembra?

Ti conviene però fare il ciclo all'opposto, cioè da list1.listcount - 1 to 0 step -1..

ciao

[alka]

Originariamente inviato da x69asterix
esatto!

Se il codice lo hai scritto tu, cosa c'è di automatico?

Per evitare di avere in lista un valore duplicato, come ti hanno già suggerito, basta evitare di inserirlo quando c'è già.

A questo punto, siccome il codice per inserire l'elemento lo hai scritto tu, non vedo cosa ci sia di "automatico": basta completare il codice inserendo il controllo aggiuntivo che l'elemento digitato non sia già presente nella casella e, solo in caso negativo, inserirlo attraverso la AddItem.

Ciao!