Sto realizzando una funzione "cerca" simile a quella del blocco note (modifica=>trova).
In pratica ho un ComboBox che carica tutti gli Items di un ListBox, contenuto su un'altra form.
Ho una TextBox dove scrivere la "parola chiave" da cercare e un Button con il seguente codice:
Il Button come risultato in caso di parola chiave trovata in qualche Item: aggiunge l'Item trovato al ComboBox2...codice:Dim PO As Integer = 0 For i = 0 To ComboBox1.ItemHeight - 1 Try ComboBox1.SelectedIndex = i Catch End Try Dim str As String = ComboBox1.Text If str.Contains(TextBox1.Text) Then MsgBox("è contenuto nell'index: " & i) ComboBox2.Items.Add(ComboBox1.Items(i)) ComboBox1.Items.Remove(i) PO += 1 Else End If Next If PO = 0 Then MessageBox.Show("Not found") End If
Errori riscontrati
-In pratica non mi considera nella ricerca alcuni Item (dal 14° in poi, sono 44 gli Items...)![]()