[RESOLVED] Listview Search as type & show in Richtextbox error

[maharaskal]

Hi,

im encountering error in this code, Kindly help me

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
        ' Dim selArray As ListView.SelectedListViewItemCollection = ListView1.SelectedItems
        '  If selArray.Count > 0 Then
        ListView1.Items.Clear()
        Dim itm As ListViewItem
        Dim i As Integer

        For i = 0 To ListView1.Items.Count - 1
            ListView1.Items.Item(i).BackColor = Color.White
            ListView1.Items.Item(i).ForeColor = Color.Black
        Next

        With ListView1
            itm = .FindItemWithText(txtSearch.Text, True, 0, True)
            'tell me what im going to do in this line for searching that kind of method

            rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm(0).Text))

            If Not itm Is Nothing Then

                .Items.Item(itm.Index).EnsureVisible()
                .Items.Item(itm.Index).BackColor = Color.CornflowerBlue
                .Items.Item(itm.Index).ForeColor = Color.White
                .Items.Item(itm.Index).Selected = True


            Else
                MsgBox("No Record Found!")
                For i = 0 To ListView1.Items.Count - 1
                    ListView1.Items.Item(i).BackColor = Color.White
                    ListView1.Items.Item(i).ForeColor = Color.Black
                Next
                .Items(0).EnsureVisible()
                .Items.Item(0).BackColor = Color.CornflowerBlue
                .Items.Item(0).ForeColor = Color.White
                .Items.Item(0).Selected = True

                txtSearch.SelectionStart = 0
                txtSearch.SelectionLength = Len(txtSearch.Text)
                txtSearch.Focus()
            End If
            '   End if
        End With
        itm = Nothing

    End Sub

Error Line.

rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm(0).Text))

[jmcilhinney]

What is the error message? What are the values of the data you're using?

[maharaskal]

this is the error msg:-

Error 1 Class 'System.Windows.Forms.ListViewItem' cannot be indexed because it has no default property. C:\Users\KMV\Desktop\Code Library\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 61 80 WindowsApplication1

[4x2y]

itm(0).Text is wrong, the correct is itm.Text
Also, you should add

rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm(0).Text))

after

If Not itm Is Nothing Then

just in case .FindItemWithText(txtSearch.Text, True, 0, True) returns nothing

Try this new one

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
        ' Dim selArray As ListView.SelectedListViewItemCollection = ListView1.SelectedItems
        '  If selArray.Count > 0 Then
        ListView1.Items.Clear()
        Dim itm As ListViewItem
        Dim i As Integer
 
        For i = 0 To ListView1.Items.Count - 1
            ListView1.Items.Item(i).BackColor = Color.White
            ListView1.Items.Item(i).ForeColor = Color.Black
        Next
 
        With ListView1
            itm = .FindItemWithText(txtSearch.Text, True, 0, True)
            'tell me what im going to do in this line for searching that kind of method
 
 
            If itm IsNot Nothing Then
 
                rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm.Text))
                .Items.Item(itm.Index).EnsureVisible()
                .Items.Item(itm.Index).BackColor = Color.CornflowerBlue
                .Items.Item(itm.Index).ForeColor = Color.White
                .Items.Item(itm.Index).Selected = True
 
 
            Else
                MsgBox("No Record Found!")
                For i = 0 To ListView1.Items.Count - 1
                    ListView1.Items.Item(i).BackColor = Color.White
                    ListView1.Items.Item(i).ForeColor = Color.Black
                Next
                .Items(0).EnsureVisible()
                .Items.Item(0).BackColor = Color.CornflowerBlue
                .Items.Item(0).ForeColor = Color.White
                .Items.Item(0).Selected = True
 
                txtSearch.SelectionStart = 0
                txtSearch.SelectionLength = Len(txtSearch.Text)
                txtSearch.Focus()
            End If
            '   End if
        End With
        itm = Nothing
 
    End Sub

[maharaskal]

Hi 4x2y
thanks in advance
its giving error as below and highlighting the code

InvalidArgument=Value of '0' is not valid for 'startIndex'.
Parameter name: startIndex

itm = .FindItemWithText(txtSearch.Text, True, 0, True)

if i use

Rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm.Text))

error as below

InvalidArgument=Value of '0' is not valid for 'startIndex'.
Parameter name: startIndex

[4x2y]

That's mean the listview is empty!

Why you clear it at the beginning ListView1.Items.Clear()

[maharaskal]

Ops sorry it is working
ListView1.Items.Clear() is the one giving error

its not refreshing the listview when i clear the textbox.

[maharaskal]

That's mean the listview is empty!

Why you clear it at the beginning ListView1.Items.Clear()

i did not notice that. sorry. how do we can refrsh the listview n empty the rtb1 if the textsearch is empty?

[4x2y]

Try this new one

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
 
        If txtSearch.text = String.Empty Then
            rtb1.Text = String.Empty
            If ListView1.SelectedItems.Count > 0 Then
                ListView1.SelectedItems(0).Selected = False
            End If
 
        Else
 
 
            Dim itm As ListViewItem
            Dim i As Integer
 
            For i = 0 To ListView1.Items.Count - 1
                ListView1.Items.Item(i).BackColor = Color.White
                ListView1.Items.Item(i).ForeColor = Color.Black
            Next
 
            With ListView1
                itm = .FindItemWithText(txtSearch.Text, True, 0, True)
                'tell me what im going to do in this line for searching that kind of method
 
 
                If itm IsNot Nothing Then
 
                    rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm.Text))
                    .Items.Item(itm.Index).EnsureVisible()
                    .Items.Item(itm.Index).BackColor = Color.CornflowerBlue
                    .Items.Item(itm.Index).ForeColor = Color.White
                    .Items.Item(itm.Index).Selected = True
 
 
                Else
                    MsgBox("No Record Found!")
                    For i = 0 To ListView1.Items.Count - 1
                        ListView1.Items.Item(i).BackColor = Color.White
                        ListView1.Items.Item(i).ForeColor = Color.Black
                    Next
                    .Items(0).EnsureVisible()
                    .Items.Item(0).BackColor = Color.CornflowerBlue
                    .Items.Item(0).ForeColor = Color.White
                    .Items.Item(0).Selected = True
 
                    txtSearch.SelectionStart = 0
                    txtSearch.SelectionLength = Len(txtSearch.Text)
                    txtSearch.Focus()
                End If
                '   End if
            End With
            itm = Nothing
        End If
 
    End Sub

[maharaskal]

No luck
its clearing the Rtb1
not refreshing listview
listview item still highlited

[4x2y]

Hope the following works

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
 
        Dim itm As ListViewItem
        Dim i As Integer
 
 
 
        If txtSearch.Text = String.Empty Then
 
            For i = 0 To ListView1.Items.Count - 1
                ListView1.Items.Item(i).BackColor = Color.White
                ListView1.Items.Item(i).ForeColor = Color.Black
            Next
 
        Else
 
 
            With ListView1
                itm = .FindItemWithText(txtSearch.Text, True, 0, True)
 
                If itm IsNot Nothing Then
 
                    rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm.Text))
                    .Items.Item(itm.Index).EnsureVisible()
                    .Items.Item(itm.Index).BackColor = Color.CornflowerBlue
                    .Items.Item(itm.Index).ForeColor = Color.White
                    .Items.Item(itm.Index).Selected = True
 
 
                Else
                    MsgBox("No Record Found!")
                    For i = 0 To ListView1.Items.Count - 1
                        ListView1.Items.Item(i).BackColor = Color.White
                        ListView1.Items.Item(i).ForeColor = Color.Black
                    Next
 
                    .Items(0).EnsureVisible()
                    .Items.Item(0).BackColor = Color.CornflowerBlue
                    .Items.Item(0).ForeColor = Color.White
                    .Items.Item(0).Selected = True
 
                    txtSearch.SelectionStart = 0
                    txtSearch.SelectionLength = Len(txtSearch.Text)
                    txtSearch.Focus()
                End If
 
            End With
 
        End If
 
    End Sub

[maharaskal]

its working but with small error

its highlighting 2 items

[4x2y]

Another one

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
 
        Dim itm As ListViewItem
 
        If txtSearch.Text = String.Empty Then
 
            RemoveHighlight()
 
        Else
 
 
            With ListView1
                itm = .FindItemWithText(txtSearch.Text, True, 0, True)
 
                If itm IsNot Nothing Then
                    RemoveHighlight()
                    rtb1.Text = System.IO.File.ReadAllText(IO.Path.Combine(scriptPath, itm.Text))
                    .Items.Item(itm.Index).EnsureVisible()
                    .Items.Item(itm.Index).BackColor = Color.CornflowerBlue
                    .Items.Item(itm.Index).ForeColor = Color.White
                    .Items.Item(itm.Index).Selected = True
 
 
                Else
                    MsgBox("No Record Found!")
                    RemoveHighlight()
 
                    .Items(0).EnsureVisible()
                    '.Items.Item(0).BackColor = Color.CornflowerBlue
                    '.Items.Item(0).ForeColor = Color.White
                    .Items.Item(0).Selected = True
 
                    txtSearch.SelectionStart = 0
                    txtSearch.SelectionLength = Len(txtSearch.Text)
                    txtSearch.Focus()
                End If
 
            End With
 
        End If
 
    End Sub
 
    Private Sub RemoveHighlight()
        For i As Integer = 0 To ListView1.Items.Count - 1
            ListView1.Items.Item(i).BackColor = Color.White
            ListView1.Items.Item(i).ForeColor = Color.Black
        Next
    End Sub

[maharaskal]

thanks alot 4x2y
its working find.
u solved the issue n save my day.
thank u very very much