[asmarsou]

(04-08-22, 11:28 AM)Lathe1 كتب : Sub load_Glass()
        'ListView1.Columns.Clear()
        ListView1.Items.Clear()
        ListView1.MultiSelect = False
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
        ListView1.Columns.Clear()
        ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
        ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
        ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
        ListView1.ShowGroups = True
        SelectAll_stock_in_tbl_Glass()
        Dim myrow As DataRow
        For Each myrow In dt_stock_in_tbl_Glass.Rows
            ListView1.Items.Add(myrow.Item(1).ToString, 4)
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
            ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))

            'ListView1.Text = ImageList1.Images.Count.ToString
        Next

    End Sub
    Public dt_stock_in_tbl_Glass As New DataTable
    Public Sub SelectAll_stock_in_tbl_Glass()

        Dim da As New SqlDataAdapter
        dt_stock_in_tbl_Glass.Clear()
        da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
        da.Fill(dt_stock_in_tbl_Glass)
    End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged

جرب ما يلي

PHP كود :

Private SrchParameter As String = ""
    Private NxtStrtRow As Integer = 0
    Private Sub ListView1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = Keys.F3 Then
            SearchListView()
        End If
    End Sub
    Private Sub SearchListView()
        ' selects the row containing data matching the text parameter
        ' sets NxtStrtRow (a form level variable) value for a "find next match" scenario (press F3 key)
        If ListView1.Items.Count > 0 Then
            If SrchParameter <> "" Then
                Dim thisRow As Integer = -1
                For x As Integer = NxtStrtRow To ListView1.Items.Count - 1          ' each row
                    For y As Integer = 0 To ListView1.Columns.Count - 1             ' each column  
                        If InStr(1, ListView1.Items(x).SubItems(y).Text.ToLower, SrchParameter.ToLower) > 0 Then
                            thisRow = x
                            NxtStrtRow = x + 1
                            Exit For
                        End If
                    Next
                    If thisRow > -1 Then Exit For
                Next
                If thisRow = -1 Then
                    MsgBox("Not found.")
                    NxtStrtRow = 0
                    TextBox1.SelectAll()
                    TextBox1.Select()
                Else
                    ' select the row, ensure its visible and set focus into the listview
                    ListView1.Items(thisRow).Selected = True
                    ListView1.Items(thisRow).EnsureVisible()
                    ListView1.Select()
                End If
            End If
        End If
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If Not String.IsNullOrWhiteSpace(TextBox1.Text) Then
            SrchParameter = TextBox1.Text
            NxtStrtRow = 0
            SearchListView()
        End If
    End Sub