VB 在textbox中输入字词，按下按钮后自动查找listbox中的历史记录？

Question

如果有记录，则弹出窗口显示“A”
如果没有则显示“B“
需要示例，谢谢

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Dim isFind As Boolean
isFind = False
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = TextBox1.Text Then
MsgBox "A" '有找到
isFind = True
Exit For
End If
Next
'没有找到
If Not isFind Then
MsgBox "B"
End If
End Sub追问

你好，非常感谢！因为我用的是    Microsoft Visule Studio

然后它显示这样，不知道可以怎么解决呢？

追答

你用的是vb.net

你把ListCount改成Items.Count
把List(i)改成Items.Item(i)
还有你程序中lstCustomerHistory.text是你的textbox吗?

追问

lstCustomerHistory是listbox，那里打错了。谢谢提醒~