List Box

di Anonimizzato31621 il
4 risposte
/
Anonimizzato31621
Utente anonimizzato
Buona sera sono nuovo in questo forum. Vorrei sapere se e' possibile mantenere
il testo selezionato in una listbox ed eliminare il testo non selezionato.
ho provato cosi' ma non funziona elimina tutto. 

Dim a
Dim i
For a = 1 To 20
For i = 0 To List6.ListCount - 1
If List6.List(i) = a Then
List6.Selected(i) = True
End If
If Not List6.List(i) = a Then
List6.RemoveItem i
End If
grazie

4 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Con quel codice non si capisce cosa vuoi fare. Spiegati meglio.
  • /
    Anonimizzato31621
    Utente anonimizzato
    Vorrei mantenere nella listbox gli elementi selezionati e cancellare tutti gli altri elementi.
    es: se ho 1 2 3 4 5 e seleziono solo 1 4 5 vorrei che 2 e 3 venissero cancellati.
    grazie
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Allora qualcosa del genere
    [Code] For i = List6.ListCount - 1 To 0 Step -1 If Not List6.Selected(i) Then List6.RemoveItem i End If Next i
  • /
    Anonimizzato31621
    Utente anonimizzato
    Grazie per il tuo aiuto.
    E' proprio quello che volevo.
Devi accedere o registrarti per scrivere nel forum
4 risposte