Intendi qualcosa del genere da inserire ad esempio in un evento button_click?
Dim s, res As String
Dim i As Integer
s = TextBox1.Text
For i = 0 To ListBox1.Count - 1
res = ListBox1[i].Text
If res Like "*" & s & "*" Then
Message("Trovata corrispondenza in " & res)
Endif
Next
:ciao:
Proporrei anche una riga del genere: :-X
Public Sub Button1_Click()
Dim i As Integer
i = ListBox1.Find("*" & TextBox1.Text & "*", gb.Like)
If i > -1 Then
Message.Info("Trovata corrispondenza in " & ListBox1[i].Text)
Endif
End
Forse non ho capito quello che voleva elia, ma avevo compreso desiderasse trovare tutte le corrispondenze rispetto a una o poche lettere inserite :-\
Con Find trovi la prima o sbaglio?
ListBox1.Add("Pippo")
ListBox1.Add("Pluto")
ListBox1.Add("Massimo")
ListBox1.Add("Mario")
ListBox1.Add("Rino")
ListBox1.Add("Lino")
Se ad esempio in questi dati cerchiamo le corrispondenze di r tu trovi solo Mario io trovo anche Rino perché con Find si trova solo la prima corrispondenza. Almeno credo.
:ciao: