下拉列表框COMBO可不可用什么方法下拉！！

Question

就是当我向Combo里输入数据时，COMBO自动下拉开，而不要mouse去点一下！

Answer 1

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 LongPrivate Sub Combo1_Change()
  Dim nret As Long
  nret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
  DoEvents
End SubPrivate Sub Form_Load()
  Combo1.AddItem "abc"
  Combo1.AddItem "cad"
  Combo1.AddItem "fcas"
End Sub