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

給我代碼，其中我可以在文本框中輸入一個單詞，並且列表框中出現的項目與我在文本框中輸入的字符串相同。請幫我...如何在vb.Net中使用文本框和列表框進行搜索？

2010-11-01 Neel

giv3立方米TH3 koD3s – JonH 2010-11-01 14:51:05

你給我的代碼現在！ – 2010-11-01 14:51:52

是的，問題很糟糕，但這個用戶是新的，給他一些鬆懈。 – Matt 2010-11-01 15:05:41

我發現通過谷歌，這聽起來像的東西類型下面，你想做的事：

用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

來源

2010-11-01 14:53:49 Matt

匿名用戶評論：當文本框的所有文本被清除時，選擇也應該被清除。在最後一個'End Sub'之前添加如下代碼：'If text1.Text =「」Then'（line break）'list1.SelectedIndex = -1'（換行符）'End If'。 – Anne 2011-11-22 19:25:53

@安妮，更新，謝謝。 – Matt 2011-12-13 16:25:02

想想僞代碼，你可以這樣做。從文本框中獲取文本。將一個指針/計數器設置到列表框中，並遍歷每個項目直到列表結束。如果文本框的值與listboxitem.text的值相同，那麼您已經找到了一個匹配，退出for循環。

來源

2010-11-01 14:50:33 JonH

比你，但請給我代碼.... – Neel 2010-11-01 17:13:36

添加該代碼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

來源

2018-01-27 10:17:36

添加解釋給你的答案，因爲這可以讓op和其他人瞭解解決方案以及 – Muds 2018-01-27 10:52:41

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

回答

相關問題