ListView.FindItemWithText() Help

Alright, I did a search on vb forums and found something that helped me out:

vb Code:

Dim itmX As ListViewItem = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
        If Not itmX Is Nothing Then
            lstStudents.Focus()
            itmX.Selected = True
            lstStudents.Items(itmX.Index).Selected = True
            itmX.EnsureVisible()
        End If

So here's the problem know. When have more than 1 of the same text (say, Last Name or First Name) Then it will only do the very last item, instead of starting with the FIRST item & then when I click the search Button again, it will go to the next item in the List with that Text.

This what you are on abouts? This all goes into the "Search/Find" button what ever you use.

Searching Code:

Dim index As Integer
        Dim maxindex As Integer
        Dim searchcriteria As String
        Dim found As Boolean = False
 
        searchcriteria = TextBox3.Text
        maxindex = lstDisplay.Items.Count
        lstDisplay.Focus()
 
        Do While (found = False)
 
            If index > maxindex Then
                MsgBox("Can't Find")
            Else
                If searchcriteria = lstDisplay.SelectedItem Then
                    found = True
                Else
                    index = index + 1
                    lstDisplay.SelectedIndex = index
                End If
            End If
        Loop

No. I'm looking for LISTVIEw.FindItemWithText not a ListBox.

I've never came accross this before but foudn this.


http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

I don't know why it would select the last item but if you want to make it select the next item with the same search text you will need to keep track of the last search text and the last item/index that you found with that search. That way if the user presses the button again with the same search you can pick up where you left off...

something like this:

Code:

---

If lastSearch = tstSearch.Text Then
  itmX  = lstStudents.FindItemWithText(tstSearch.Text, False, lastIndex + 1)
Else
  itmX = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
End If

lastIndex = itmX.Index
lastSearch = tstSearch.Text

'your other code...

---

Still need some help, can't figure it out, neither of those code are working properly.

Can you clarify what you're looking for? As I understand it, you have a ListView which you would like to search. It's possible that the listview contains multiple items with the same text value. When this is the case when the user searches you would like to highlight the first item. Then if the user performs the same search again by clicking the button again you want to highlight the second item in the listview that matches the search. Is this right?

Exactly wy125, Thats what I'm trying to accomplish

I'd have to go with what wy125 says, his code looks okay, and I don't know why that shouldn't work.

I'm not quite sure what you want, do you want it to find the last item first, or is that what the program does, and you don't want that at all? From your question, I think you want it to find the last result.
If so, I think you should use a loop to go through all the results, and remember the last index, and then use listview.findItemWithText(seach.text,false,lastindex)

If not: I haven't got a clue why it gives you the last result instead of the first.

Thank You :)

Heres the code I used:

vb Code:

If lastsearch = tstSearch.Text Then
            If lastindex <= lstStudents.Items.Count - 2 Then
                itmX = lstStudents.FindItemWithText(tstSearch.Text, False, lastindex + 1)
            Else
                itmX = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
            End If
        Else
            itmX = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
        End If
        lstStudents.Items(itmX.Index).Selected = True
        lastindex = itmX.Index
        lastsearch = tstSearch.Text

okay i just whipped together something so i could test it.. It seems to work pretty well. You will probably want to tweak this to get it to do exactly what you want.

First you need to have two fields in your class, one for the lastSearch text and the other for the index of the last item found:

Code:

---

Public Class Form1

    Private lastSearch As String
    Private lastIndex As Integer = -1

  ....

---

then when the user clicks the button you can do something like this:

vb Code:

Dim searchText As String = txtSearch.Text.Trim()
        Dim lvItem As ListViewItem = Nothing
 
 
        'don't bother with empty searches
        If searchText = "" Then
            Return
        End If
 
        'clear previously selected itmes
        If (listView.SelectedItems.Count > 0) Then
            listView.SelectedItems(0).Selected = False
        End If
 
        'check if the lastSearch is the same as current one
        'also check if we've reached the last item
        'the second check, lastIndex < listView.Items.Count - 1, makes sure we don't
        'go beyond the indices of the listview
        'the way it is now, if we reach the last item in the search it will go back to the
        'first item
        If searchText = lastSearch And lastIndex < listView.Items.Count - 1 Then
 
            'we need to continue where we left off, search 1 ahead of where we last found
            'the item of the same name
            lvItem = listView.FindItemWithText(searchText, False, lastIndex + 1)
 
        Else
            'start the search over from the beginning
            lvItem = listView.FindItemWithText(searchText, False, 0)
 
        End If
 
 
            lastSearch = searchText
 
            If Not (lvItem Is Nothing) Then
                lastIndex = lvItem.Index
                listView.Focus()
                lvItem.Selected = True
 
 
 
            End If

Quote:

---

Originally Posted by Wesley008

Thank You :)

Heres the code I used:

vb Code:

If lastsearch = tstSearch.Text Then
            If lastindex <= lstStudents.Items.Count - 2 Then
                itmX = lstStudents.FindItemWithText(tstSearch.Text, False, lastindex + 1)
            Else
                itmX = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
            End If
        Else
            itmX = lstStudents.FindItemWithText(tstSearch.Text, False, 0)
        End If
        lstStudents.Items(itmX.Index).Selected = True
        lastindex = itmX.Index
        lastsearch = tstSearch.Text

---

that actually looks okay. Make sure you are giving the listview focus or alternatively set listview.HideSelection = False

vb Code:

If Not (lvItem Is Nothing) Then
                lastIndex = lvItem.Index
                listView.Focus()
                lvItem.Selected = True
            End If

What does this IF Statment Do?

it checks to make sure that lvItem isn't null (the search turned up empty). If it was null and you tried to read the index and highlight it you would get an exception.

Hey, I ran into a glitch in this code:

vb Code:

Public Sub Students_Find()
        With frmStudents
            If .tstSearch.Text = vbNullString Then
                Return
            End If
            If .lstStudents.SelectedItems.Count > 0 Then
                .lstStudents.SelectedItems(0).Selected = False
            End If
            If LastSearch = .tstSearch.Text And LastIndex < .lstStudents.Items.Count - 1 Then
                Items = .lstStudents.FindItemWithText(.tstSearch.Text, True, LastIndex + 1)
            Else
                Items = .lstStudents.FindItemWithText(.tstSearch.Text, True, 0)
            End If
            LastSearch = .tstSearch.Text
            If Not (Items Is Nothing) Then
                LastIndex = Items.Index
                .lstStudents.Focus()
                .lstStudents.Items(Items.Index).Selected = True
            End If
        End With
    End Sub

What happens is when I have 3+ Items (it work fine) but when I have 2 Items it Selects the First then the Second but doesn't go back to the Beginning like the 3+ Items.

How can I fix this? I know I need to set LastIndex = -1 somewhere but I can't figure it out.

You are right, you can set lastIndex to -1 after you don't find an item:

Code:

---


If Not (Items is Nothing) Then
...

Else
    LastIndex = -1
End If

---

By the way, this will cause a "skip" in the rotation before it goes back to the beginning. At one point nothing will be highlighted and then it will return to the beginning. You will have to press the button twice to get to go back to the beginning. If that is okay then you can leave it as it is, otherwise, I would recommend changing the way it works. Instead of doing it this way, I would keep a List of ListView items that match the current search and just change the index of the currently shown one in the list. That will allow you to rotate through them without getting a skip. When a new search is done make a new list that matches the search and rotate about that list.

I see what you mean by a skip, but I don't understand how I would fix it.

Oh, I think I might know what you mean:

Say I have

A
A
A
B
B
A

And I want to Search for "A"

It does a Loop to Hide the "B"'s and then just shows the A's ?

Is that what you mean? I tried doing this with some For Statements but I got confused on how I would check to see if the Item Contained that String.

Not exactly... I was thinking that keeping a list of the ListViewItems that match the current search. When it's the same search you can just cycle through that list and highlight accordingly. Something like this:

Code:

---

Public Class Form
Private lastSearch As String  'the last text the user searched for
Private currentIndex = 0        'the current index to highlight
Private matchingList As List(Of ListViewItem) = New List(Of ListViewItem)  ' the list of matching ListViewItems

....

---

Then make a couple methods; one to fill the list on a new search and the other to highlight the next item in the list

vb Code:

Private Sub FillMatchingList(ByVal txt As String)
        
        'clear the list, because we are starting fresh
        matchingList.Clear() 
 
        Dim listViewItem As ListViewItem
        Dim lastIndex As Integer = -1
 
 
        listViewItem = Nothing
 
 
        ' keep going until we have found all matches
        Do Until lastIndex >= ListView1.Items.Count - 1
            listViewItem = ListView1.FindItemWithText(txt, False, lastIndex + 1)
 
            If Not (listViewItem Is Nothing) Then
                matchingList.Add(listViewItem)
                lastIndex = listViewItem.Index
            Else 'we are done finding matches
                Return
            End If
 
        Loop
 
    End Sub
 
 
    'highlights the next item in the list
    Private Sub HighlightNextMatch()
 
 
        'clear the current selection
        If (ListView1.SelectedItems.Count > 0) Then
            ListView1.SelectedItems(0).Selected = False
 
        End If
 
 
 
        matchingList(currentIndex).Selected = True
        currentIndex = (currentIndex + 1) Mod matchingList.Count
        ListView1.Focus()
 
    End Sub

then in your button click handler:

vb Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim searchText As String = TxtSearch.Text.Trim()
 
        If searchText <> lastSearch Then
            lastSearch = searchText
            currentIndex = 0
            FillMatchingList(searchText)
        End If
 
 
        HighlightNextMatch()
 
 
      
 
    End Sub

Thank you so Much :) I tweaked your code to turn it into a Function so I can keep calling it over again for different objects. Thanks again :) Works like a Charm.

Hey Wy125. I got another issue, a bit simpler.

I have 1 List View on 1 Form and another List View on another Form.

So now, if I search for say "A" on the First Form, then try to search "A" on the Second Form it doesn't work.


Here's the code I'm using:

Code:

---

    Public Function FindInList(ByVal ListName As ListView, ByVal SearchText As String) As Boolean
        With frmStudents
            matchingList.Clear()
            Dim listViewItem As ListViewItem
            Dim lastIndex As Integer = -1
            listViewItem = Nothing
            Do Until lastIndex >= ListName.Items.Count - 1
                listViewItem = ListName.FindItemWithText(SearchText, True, lastIndex + 1)
                If Not (listViewItem Is Nothing) Then
                    matchingList.Add(listViewItem)
                    lastIndex = listViewItem.Index
                Else
                    Return Nothing
                End If
            Loop
        End With
    End Function

    Public Function HighLightInList(ByVal ListName As ListView) As Boolean
        If (ListName.SelectedItems.Count > 0) Then
            ListName.SelectedItems(0).Selected = False
        End If
        matchingList(currentIndex).Selected = True
        currentIndex = (currentIndex + 1) Mod matchingList.Count
        ListName.Focus()
    End Function

    Public Sub Overview_Assign_Find() 'FORM 1 SEARCH
        With frmOverview
            Dim searchText As String = .txtAssigmentSearch.Text '.Trim()
            If searchText <> lastSearch Then
                lastSearch = searchText
                currentIndex = 0
                FindInList(.lstAssignments, .txtAssigmentSearch.Text)
            End If
            HighLightInList(.lstAssignments)
        End With
    End Sub

    Public Sub Assign_Find() 'FORM 2 SEARCH
        With frmAssignments
            Dim searchText As String = .tstSearch.Text '.Trim()
            If searchText <> lastSearch Then
                lastSearch = searchText
                currentIndex = 0
                FindInList(.lstAssign, .tstSearch.Text)
            End If
            HighLightInList(.lstAssign)
        End With
    End Sub

---

it compiles? You duplicated everything on the second form that you have on the first? You are not trying to call one form's code from the other are you?

There's no reason that it should not work if you've duplicated everything.

The Code Works, Only if I do this:


First Listview:

I search for A

Second Listview

I search for B

But I search for A on the First and A on the Second, the Second Search for A will not Select. Theirs no Error - its just selecting the ITEM. I did some TEST to check if it trying to change the Correct Listview and it is.

okay. just so I understand you have two separate forms and you have a listview on each and you want to be able to do independent searches right?

could you post your code showing the actual classes, the member declarations (just the searchtext and list), the methods in each form?

You wouldn't happen to have MSN ? I could send you the Project File which would help probably a lot more.

Add:

Code:

---

[email protected]

---

you can attach it here if you like, i'm on my linux machine and don't have an msn client setup yet... Look at the "attach files" section when you are posting... zip up your project and attach the code

Alright here it is:


Heres what your going want to look at:

frmOverview [The 2 Listviews (Students and Assignments)]
modFindings [All]
frmStudents [The Search Button on the Bottom Right]
frmAssignments [The Search Button on the Bottom Right]

Here is an example. The Find method will get the sub item of the listView control with the specified text:

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As ListViewItem.ListViewSubItem = Me.Find(Me.ListView1, "d")
    End Sub

    Private Function Find(ByVal lv As ListView, ByVal text As String) As ListViewItem.ListViewSubItem
        For Each lvi As ListViewItem In lv.Items
            For Each lvsi As ListViewItem.ListViewSubItem In lvi.SubItems
                If lvsi.Text = text Then
                    Return lvsi
                End If
            Next lvsi
        Next lvi
        Return Nothing
    End Function

End Class

---

Wy125 Anything yet with the Project?

Hey wy125, I fixed this issue, I just called a new SUB ClearFindings every time I go to a New Form & I clear the Following:

vb Code:

Public Sub ClearFindings()
        lastSearch = vbNullString
        currentIndex = 0
        matchingList.Clear()
    End Sub

ANd it works:

But now heres something that has been bothering me for the longest time. How do I figure out if the text I put into the Text Box is somewhere in the ListView? It was easy with a ListBox I just did a .Contains but I can't figure out for a ListView. This causes my other problem with when no text can be found it gives me a Error with the IndexoutofRange.

So short and simple:

How do I check if the Input Text Is In the ListView?

Hey, I figured it out. I need to add a NAME to each Item I add and then use .ContainsKey(NAME) to check if its in their.

Hey sorry man, was out of the house for a while. I'm glad you figured it out. BTW your interface is very nice. My GUIs are always so ugly...