[Vb6] dati nella list box

[Alessandro2110]

ciao ragazzi,

dopo aver inserito dei valori nella listbox

dovrei creare un pulsante che premendolo mi visualizza solamente valori diversi dagli altri

es.

scrittura nella lisbox

Input:

mondo
mondo
home
prova
prova

il valore da visualizzare

output:

mondo
home
prova

come dovrei procedere

grazie mille...

[yyzyyz]

diciamo ke questo codice puo' andar bene se i valori doppi inseriti nella inputbox non si ripetono + di una volta.
es.
se metto 1,1 2,3,3 (ok) mentre se metto 1,1,2,1 (no ok)

Dim tmp As String
Private Sub Command1_Click()
tmp = InputBox("nome")
List1.AddItem (tmp)
End Sub

Private Sub Command2_Click()
List2.Clear
For i = 1 To List1.ListCount
List1.ListIndex = i - 1
    If List1.Text <> "" Then
    With List2
    ii = .ListCount
    .ListIndex = ii - 1
    If List1.Text <> List2.Text Then List2.AddItem (List1.Text)
    End With
    End If
Next i
List1.ListIndex = 0
End Sub

[L'Aquila]

Se imposti la proprietà Sort a true, il codice suggerito da yyzyyz va bene in qualsiasi caso. Infatti: se inserisci 1,1,2,2,1 la proprietà sort fa in modo che avrai 1,1,1,2,2

[yyzyyz]

si vede ke nn uso molto questo tipo di controllo .
ciao L'Aquila

[Alessandro2110]

spiego meglio il problema


io nella lista ho i seguenti dati

Programma1
programma2
programma1
programma3
programma1

ora io dovrei cancellare tutti i duplicati ( in questa lista programma1)

cosi all'invio della form si dovrebbe vedere cosi

Programma1
programma2
programma3

come dovrei fare?


grazie...

[Luciano79]

Eheheheh.... devi utilizzare il programma scritto da yyzyyz, impostando Sort = True come dice L'Aquila

[yyzyyz]

sulle proprietà di list1 , vai su sort e cambi il valore da false a true.

[Brainjar]

Dove vuoi che ti visualizzi i valori distinti, sempre nella ListBox ?
O da qualche altra parte ?

Il codice e la soluzione postati, con le limitazioni per altro
già evidenziate, ti riempiono una seconda ListBox.

A te va bene così ?

Ciao,

[Alessandro2110]

Grazie il codice funziona perfettamente


ciao

[Brainjar]

Questa è una soluzione con una sola ListBox.

Private Sub Command1_Click()
    Call DoPurge
End Sub

Private Sub Form_Load()
    List1.AddItem "mondo"
    List1.AddItem "mondo"
    List1.AddItem "home"
    List1.AddItem "prova"
    List1.AddItem "prova"
End Sub

Private Sub DoPurge()
    Dim lColl As New Collection
    Dim nI As Integer
    
    On Error Resume Next
    
    For nI = 0 To List1.ListCount - 1
        lColl.Add List1.List(nI), List1.List(nI)
    Next nI
    
    List1.Clear
    
    For nI = 1 To lColl.Count
        List1.AddItem lColl(nI)
    Next nI

End Sub

Ciao,