| Usuario |
Busqueda dinamica en list view |
Desconocido
|
| Enviado - 22/10/2004 |
| |
| Hola, tengo un listview por el que muestro datos procedentes de una base de datos, y quiero que mediante el texto que vaya introduciendo en un textbox, el listview vaya mostrando como primer elemento el mas semejante a la cadena introducida en dicho textbox.Muchas Gracias. |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 22/10/2004 |
| |
Public Sub BuscarItem(List As ListView, Buscar As String, ColBuscar As Integer)
Dim strTexto As String
Dim blnFound As Boolean
Dim itm As ListItem
On Error Resume Next
If ColBuscar = 0 Then
Set itm = List.FindItem(Buscar, ColBuscar, , lvwPartial)
itm.Selected = True
itm.EnsureVisible
Else
For Each itm In List.ListItems
If ColBuscar = 0 Then
strTexto = Left$(itm.Text, Len(Buscar))
Else
strTexto = Left$(itm.SubItems(ColBuscar), Len(Buscar))
End If
If UCase$(strTexto) = UCase$(Buscar) Then
itm.Selected = True
itm.EnsureVisible
Exit For
End If
Next itm
End If
End Sub
ejemplo de uso:
Private Sub Text1_Change()
BuscarItem ListView1, Text1.Text, 0
End Sub
|
| |
|
|
|
