0

MS 视觉网络开发人员:

单击我的网络表单中的搜索按钮会执行很多功能。但是为了实现下面提到的一个,我应该在哪里放置我的代码而不是搜索按钮。

在文本框中输入文本后(或在输入时),必须运行搜索功能。[无需单击搜索按钮甚至输入键]

谢谢

4

1 回答 1

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
于 2013-09-05T04:14:13.397 回答