Private Function SearchItem(myText As String) As String
Dim iIndex As Integer
For iIndex = 1 To ListView1.ListItems.Count
ListView1.ListItems(iIndex).Selected = ListView1.ListItems(iIndex).Text Like myText & "*"
Next
End Function
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Call SearchItem(Text1.Text)
End Sub
naturalmente per far funzionare il codice correttamente hai bisogno d'inserire sul form una Listview1 ed una TextBox1.
Private Function SearchItem(myText As String) As String
Dim iIndex As Integer
For iIndex = 1 To ListView1.ListItems.Count
ListView1.ListItems(iIndex).Selected = ListView1.ListItems(iIndex).Text Like myText & "*"
Next
End Function
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Call SearchItem(Text1.Text)
End Sub
Registrato: Oct 07, 2004 Messaggi: 1924 Località: Roma
Inviato: Mar Set 19, 2006 1:35 am Oggetto:
Risolto cosi:
Codice:
Sub cerca2(strFindText As String)
Dim Itm As ListItem
Set Itm = ListView1.FindItem(strFindText, lvwText, , lvwPartial)
If Not Itm Is Nothing Then
Itm.EnsureVisible
Itm.Selected = True
ListView1.SetFocus
Else
MsgBox "Iscritto non Trovato!", vbInformation, "Ricerca"
End If
End Sub
Non puoi inserire nuovi Topic in questo forum Non puoi rispondere ai Topic in questo forum Non puoi modificare i tuoi messaggi in questo forum Non puoi cancellare i tuoi messaggi in questo forum Non puoi votare nei sondaggi in questo forum
giovedì 24-mag-12 08:03
Complessivo: 102997
Persone Online:
Visitatori: 140
Iscritti: 1
Totale: 141
FAQ
Cerca
Gruppi utenti
Profilo
Messaggi Privati
Login
