如何使用vb.Net中的文本框和列表框进行搜索？

Question

给我代码，在其中我可以在文本框中输入单词，并且列表框中出现的项目具有相同的字符串，我在文本框中输入该字符串。 请帮帮我......

Answer 1

想想伪代码，你可以这样做。 从文本框中抓取文本。 将指针/计数器设置到列表框并循环遍历每个项目，直到列表的末尾。如果文本框值与listboxitem.text具有相同的值，那么您已找到匹配退出for循环。

Answer 2

我通过Google找到了以下内容，这听起来像你要做的事情类型：

1. Autosearch ListBox in VB.NET (WinForms)
2. Search Listboxes as You Type (WinForms or is this VB6?)
3. Searching for items in a ListBox (WPF)

使用＃1，这里有一些代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    List1.Items.Add("Computer")
    List1.Items.Add("Screen")
    List1.Items.Add("Modem")
    List1.Items.Add("Printer")
    List1.Items.Add("Scanner")
    List1.Items.Add("Sound Blaster")
End Sub

Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged
    Dim i As Integer = List1.FindString(Text1.Text)
    List1.SelectedIndex = i
    If Text1.Text = "" Then 
        List1.SelectedIndex = -1 
    End If
End Sub

Answer 3

将此代码添加到texboxchange

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    ListBox1.SelectedIndex = ListBox1.FindString(TextBox1.Text.Trim)
End Sub