组合框问题

Question

我现在需要做一个类似于百度上的那个输入框一样的东西
就是我输入的东西，如果在我的组合框中有，则直接显示出和这个东西关联的一些数据
请问有什么办法吗？
如果不明白我的问题，打开百度，然后输入a，对了，就是你现在看到的这种效果，求助高手，谢谢

Answer 1

TextBox+ListBOx 外加SQL语句的模糊查询

Answer 2

Dim ARR(1000) As String '用数组储存数据,多了用数据库Private Sub Combo1_Change()
icls
S = Combo1.Text
L = Len(Combo1.Text)
For I = 0 To 1000
If Left(ARR(I), L) = S Then
Combo1.AddItem ARR(I)
End If
Next
End SubPrivate Sub Form_Load()
For I = 0 To 1000
ARR(I) = I + 1
Next
End Sub
Private Sub icls()
Do While Combo1.ListCount > 0
Combo1.RemoveItem 0
Loop
End Sub'输入数字

Answer 3

楼上的代码不是我的问题的意思额
现在我想知道，怎么能强制弹出FORMS 2.0里的COMBOBOX的下拉框，不是普通的COMBO

Answer 4

Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Combo1_Change()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
End Sub
Private Sub Command1_Click()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, False, ByVal 0&
End Sub
Private Sub Form_Load()
For i = 0 To 9
Combo1.AddItem i
Next
End Sub

Answer 5

LS的，我都说了不是普通的COMBO了，是forms 2.0 里的combobox

Answer 6

FORMS 2.0里的COMBOBOX是个无hwnd的东西,非要用它?