使用Out Search按钮

时间:2013-09-05 04:04:27

标签: vb.net

MS Visual Web Developer:

点击后,我的网络表单中的搜索按钮将执行许多功能。但是为了获得下面提到的那个,我应该在哪里放置我的代码而不是搜索按钮。

在文本框中键入文本(或键入内容)后,必须运行搜索功能。[不点击搜索按钮甚至输入键]

由于

1 个答案:

答案 0 :(得分:0)

Public Class Form1
    Dim words As New List(Of Object)(New String() {"apple", "banana", "berry", "cashew", "lemon", "mango", "peanut"})

    Private Sub RefreshList()
        lstword.Items.Clear()
        lstword.Items.AddRange(
            words.Where(
                Function(word) word.ToString().Contains(txtSearch.Text)
                ).ToArray()
            )
    End Sub

    Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
        RefreshList()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        RefreshList()
    End Sub
End Class