Am adaugat un buton "Oriunde in text" care acum va face cautarea nu neaparat la inceputul sirului (implicit este pe "modelul vechi"):
Si pentru a "reactiona" corect am modificat putin Sub txtlkSearch_KeyUp mai exact am "scos" codul de acolo si l-am pus intr-o procedura separata (ca sa o pot apela si atunci cand se face click pe optiunea proaspat adaugata) asa ca a rezultat o procedura de cautare "imbunatatita" (ExecIncSearch):
Cod: Selectaţi tot
Sub ExecIncSearch()
frmlkIncrSearch.lstlkSearchList.Clear
For Each oneString In myCollection
If frmlkIncrSearch.chkInstring.Value = False Then
If UCase(Mid(oneString, 1, Len(frmlkIncrSearch.txtlkSearch.Value))) = UCase(frmlkIncrSearch.txtlkSearch.Value) Then
frmlkIncrSearch.lstlkSearchList.AddItem oneString
End If
Else
If InStr(UCase(oneString), UCase(frmlkIncrSearch.txtlkSearch.Value)) Then
frmlkIncrSearch.lstlkSearchList.AddItem oneString
End If
End If
Next oneString
frmlkIncrSearch.lstlkSearchList.SetFocus
frmlkIncrSearch.txtlkSearch.SetFocus
End Sub
Atasat este exemplul complet.