[VB.NET] Verificare presenza testo in una listbox

[nico95]

ciao a tutti come da titolo vorrei verificare la presenza di un testo (TextBox1.Text) in un elemento della (ListBox2.Items) per gestire delle condizioi...

If ListBox2.Items = TextBox1.Text Then              TextBox1.Refresh()          
Else             
Try                  
My.Settings.Cronologia.Add(TextBox1.Text)                  ListBox2.Items.Add(TextBox1.Text)                  My.Settings.Save()              
Catch exx As Exception              
End Try          
End If 

Questo codice dovrebbe funzionare ma mi evidenzia

ListBox2.Items = TextBox1.Text 

dicendomi

Risoluzione dell'overload non riuscita perché nessun '=' accessibile può essere chiamato con questi argomenti: 'Public Shared Operator =(a As String, b As String) As Boolean': Impossibile convertire il valore di tipo 'System.Windows.Forms.ListBox.ObjectCollection' in 'String'.

Mentre se ascolto il suggerimento correggo cosi

Public Shared Operator =(ListBox2.Items = TextBox1.Text)As Boolean 

ma mi sottolinea Public e mi riporta l errore: "Prevista espressione"
Vi ringrazio anticipatamente per l aiuto,
Nico95

[giampy107]

Ciao,
Items è una collection di valori nella listbox, quindi devi inserire l'indice dell'elemento

ListBox1.Items(0) = TextBox1.text 'primo elemento
ListBox1.Items(1) = textBox1.Text 'secondo elemento
....

Ovviamente dovresti utilizzare un ForEach o ciclo For per ogni Item.

[nico95]

Potresti fare un esempio di codice per favore... Sono un novellino del vb.net mi faresti un grande piacere (ovviamente x il ciclo for o foreach

[giampy107]

Ti scrivo il codice per iterare tutti gli items di una listbox, ma se devi riempire il campo di edit dovrai poi scegliere un solo valore.

ListBox1.Items.Add("Uno")
ListBox1.Items.Add("Due")
ListBox1.Items.Add("Tre")
ListBox1.Items.Add("Quattro")
ListBox1.Items.Add("Cinque")
ListBox1.Items.Add("Sei")
ListBox1.Items.Add("Sette")

' caso con For Each
For Each myItem In ListBox1.Items
      If myItem = "Quattro" Then
         MsgBox(myItem)
         Exit For
      End If
Next

' caso con For
If ListBox1.Items.Count > 0 Then
   For i = 0 To ListBox1.Items.Count
      If ListBox1.Items(i) = "Cinque" Then
         MsgBox(ListBox1.Items(i))
         Exit For
      End If
   Next
End If

[nico95]

Grazie in ogni caso il contenuto dell item (della listbox) viene generato al cambiare del testo della textbox...
I dovrei verificare se l'elemento e gia presente in modo che non venga aggiunto una seconda volta... avrei a disposizione anche un documento my.setting... se uso quello per la verifica risolvo qualcosa???
In ogni caso quello che devo fare è crerare una cronologia per un web browser... senza che alla pressione del tasto BACK FOWARD REFRESH la list box si aggiorni...

[giampy107]

Allora ti occorre una cosa del genere

If TextBox1.Text.Length > 0 Then
   Dim bTrovata As Boolean = False
   For Each myItem In ListBox1.Items
       If TextBox1.Text = myItem Then
            bTrovata = True
            Exit For
       End If
   Next

   If bTrovata = False Then
        ListBox1.Items.Add(TextBox1.Text)
   End If
End If

[nico95]

Grazie mille ora funziona ma avrei un altro problemino... se io digito html.it
la cronologia riporta h (poi) ht , htm , html , html. ecc fino a html.it io uso l evento tetxtchanged ce un modo per ovviare al problema???

[LeleFT]

VB.NET viene trattato nell'area apposita: VisualBasic e .NET Framework.

Sposto.

Ciao.

[gibra]

Mi sembra che stiate ragionando ancora alla vecchia ed obsoleta maniera 'VB6'
Anzi, ad essere sincero io non usavo quel metodo nemmeno in VB6, perchè preferivo di gran lunga usare l'API SendMessage() con gli appositi messaggi LB_FINDSTRING o LB_FINDSTRINGEXACT.

Guarda il caso, questa caratteristica è ora inclusa nativamente in NET, per cui la ricerca di una stringa nel ListBox si fa usando il metodo FindString() o FindStringExact() , esempio

    Dim searchString As String = txtSearch.Text
    Dim index As Integer = ListBox1.FindString(searchString)
    ' se la stringa è trovata restituisce il suo indice e la seleziona.
    If index <> -1 Then
        ListBox1.SetSelected(index, True)
    Else
        MessageBox.Show("Stringa non trovata.")
    End If

Quando si inizia ad usare un controllo, consiglio sempre di guardarsi SEMPRE la lista dei relativi Metodi, Proprietà ed Eventi , se non altro per avere un'infarinatura generale che poi torna utile in seguito perchè dai relativi nomi è spesso facile capirne l'utilità.

Intendo dire che se uno legge FindItem non deve nemmeno fare 2+2 per capire a cosa serve quel metodo, vi pare?

[nico95]

grazie di tutto risolto :-)