Visual Basic 6 - ricerca in listview

Data una list view popolata di dati do la possibilita all' utente tramite una text e un command di fare una ricerca all' interno di tutta la listview sub comprese ma non da esiti se non solo per la prima colonna.

Private Sub Command5_Click()   
Call cerca(strfindtext)

Dim i As Long
Dim k As Long
Dim nColonne

nColonne = ListView.ColumnHeaders.Count - 1
For i = 1 To ListView.ListItems.Count
 If ListView.ListItems(i).Text = strfindtext.Text Then
   MsgBox ListView.ListItem(i).Text & "," & ListView.ListItem(i).SubItems(1) & "," & ListItem(i).SelectedItem.SubItems(2)
  
 End If
 For k = 1 To nColonne
  If ListView.ListItems(i).SubItems(k) = strfindtext.Text Then
  MsgBox ListView.ListItem(i).Text & "," & ListView.listitemItem(i).SubItems(1) & "," & ListView.ListItem(i).SubItems(2)
 
  End If
 Next k
Next i

End Sub

Public Sub cerca(strfindtext As String)
Dim Itm As ListItem
Set Itm = ListView.FindItem(strfindtext, lvwText, , lvwPartial)
If Not Itm Is Nothing Then
Itm.EnsureVisible
Itm.Selected = True
ListView.SetFocus
Else
MsgBox "Non Trovato!"
End If
End Sub

Private Sub Command5_Click()
Dim i As Long
Dim nColonne
nColonne = listview.ColumnHeaders.Count - 1
For i = 1 To listview.ListItems.Count
If listview.ListItems(i).Text = strfindtext.Text Then
   MsgBox listview.ListItems(i).Text & "," & listview.ListItems(i).SubItems(1) & "," & listview.ListItem(i).SubItems(2)
listview.ListItems(i).EnsureVisible
listview.ListItems(i).Selected = True
listview.SetFocus
End If
For k = 1 To nColonne
  If listview.ListItems(i).SubItems(k) = strfindtext.Text Then
  MsgBox listview.ListItems(i).Text & "," & listview.ListItems(i).SubItems(1) & "," & listview.ListItem(i).SubItems(2)
listview.ListItems(i).EnsureVisible
listview.ListItems(i).Selected = True
listview.SetFocus
  End If
Next k
Next i
End Sub

A me funziona.. spero faccia lo stesso con te

provo subito ! grazie in anticipo

Grazie funziona! ma c è un problema...

se volessi cercare tutte le ditte impotesi che iniziano per R.

Mi piacerebbe che la ricerca scrivendo solo R mi desse in lista solo quelle.

Funziona ok, ma se non scrivo esattamente la parola da cercare o gli spazi o i maiuscoli ecc non mi trova nulla.


nel senso. Io ho nella listview parecchie ditte che fanno vari lavori. e ho uno spazio dove li descrivo.

se la ditta rossi fa: "saldature e pitturazioni"

nella ricerca se scrivo solo "saldature" non mi esce.

si puo modificare ?


Grazie !