关于TextBox搜索提示 vb.net
本帖最后由 u012902350 于 2013-12-11 17:22:17 编辑 数据保存在txt文本文件中，在文本框中输入单词时，程序会及时地将已输入的字符开头的所有单词显示在列表框中（ListBox中的内容从txt文本文件中得来），供用户浏览；就是这么一个问题，哪个大神来帮下忙，最好有代码。
[解决办法]
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text <> String.Empty Then
getword()
End If
End Sub
Private Sub getword()
ListBox1.Items.Clear()
Using r As IO.StreamReader = New IO.StreamReader("word.txt", System.Text.Encoding.Default)
Dim line As String
line = r.ReadLine
Do While (Not line Is Nothing)
If line.Contains(TextBox1.Text.Trim()) Then
ListBox1.Items.Add(line)
End If
line = r.ReadLine
Loop
r.Dispose()
r.Close()
End Using
End Sub
