[VB6] Evitare elementi duplicati in ListBox

[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