Breadcrumbs

[zachman61]

Hello,
Im trying to know what would be a listview version of code that Usman55 posted

Code: Select all

Dim Contact As String = TextBox1.Text.ToString()
        Dim Index As Integer = ListBox1.FindString(Contact)
        If Index = -1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex
        Else
            ListBox1.SetSelected(Index, True)
        End If

which is under Textbox1_textchanged

[Codex]

Do you wanna search subitems too ?

[Axel]

Code: Select all

Shared function Searchlistview as boolean(ByVal stringtosearch as string)
For I as integer =0 To listview.Items.Count -1
For X as integer =0 To listview.Items(I).Subitems.Count -1
If listview.Items(I).Subitems(X).Text.Contains(stringtosearch) Then
listview.Items(I).Selected = true
return true
end if
Next
Next
End function

Not sure if this works , but you may give it a try ;)
Oh and I doubt about "Subitems(X).Text.Contains(stringtosearch)" don't know if that's right

[GoodGuy17]

Try:

Code: Select all

Dim sItems As Integer
sItems = ListView1.SubItems.Count
For i = 0 To sItems - 1
If ListView1.Items.Item(i).Contains(string) Then
MsgBox("Found at Item " & i)
Elseif ListView1.Items.Item(i).SubItem(i).Contains(string) Then
MsgBox("Found at Subitem " & i)
End If
Next

Not sure if it will work, tell me if it does.

[mandai]

Axel's code seems to contain some syntax errors in the function declaration.
Reboh's code doesn't work as there is no SubItems object in the listview control.

If you only want to search the first column then the code should look like this:

Code: Select all

        Dim found As Integer = -1
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.Items(i).Text.Contains(txtFind.Text) Then
                found = i
                Exit For
            End If

        Next

        If found > -1 Then
            ListView1.Items(found).Selected = True
            ListView1.Select()
        End If

[GoodGuy17]

Axel's code seems to conatin some syntax errors in the function declaration.
Reboh's code doesn't work as there is no SubItems object in the listview control.

Axel's code contains .SubItems after a full-stop. Mine contains .SubItem. You said that I used SubItems, but I didn't. Why doesn't mine work (as in, what error?)

[mandai]

I have attached a screenshot.

[GoodGuy17]

Oh, I see. I didn't write my code in VB :P I just mocked it up before school in the morning

[zachman61]

Do you wanna search subitems too ?

Yes that would be Great

[mandai]

You could use this to search the whole listview (including subitems):

Code: Select all

    Private Sub btnSearch_Click(sender As System.Object, e As System.EventArgs) Handles btnSearch.Click

        Dim found As Integer = -1
        For row As Integer = 0 To ListView1.Items.Count - 1
            For column As Integer = 0 To ListView1.Items(row).SubItems.Count - 1

                If ListView1.Items(row).SubItems(column).Text.Contains(txtFind.Text) Then
                    found = row
                    Exit For
                End If
            Next

            If found > -1 Then
                Exit For
            End If

        Next

        If found > -1 Then
            ListView1.Items(found).Selected = True
            ListView1.Select()
        End If

    End Sub

It will stop searching after it finds 1 item.