如何在TEXT1输入某个字 如果数据有这个字的内容，就弹出下拉菜单。

Question

我想请教的原理有点象这论坛的提问功能，或者有点象狗狗搜索音乐的功能那样。只要在题目上输入内容，如果数据库有相关的信息就弹出信息。 
请有空的老师指点下 谢谢

Answer 1

你可以试试这个Private Sub Form_Load()
File1.Path = "C:\Program Files\TTPlayer\Lyrics"
End SubPrivate Sub Timer1_Timer()
List1.Clear
Dim K As Integer
For K = 0 To File1.ListCount - 1
If UCase(File1.List(K)) Like "*" & UCase(Text1.Text) & "*" & UCase(Text2.Text) & "*" Then
List1.AddItem File1.List(K)
End If
Next K
End Sub