如何编写代码使comboBox下拉

Question

一般是用户点击combobox旁边的下拉按钮那个list才会显示出来,如何写代码使那个
list显示出来?

Answer 1

Private Const CB_SHOWDROPDOWN = &H14FPrivate 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 Command1_Click()
    Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&)End Sub

Answer 2

用SendKey实现，如
SendKeys "{TAB}", False

Answer 3

比如说用一个COMMAND控制时
Private Sub Command1_Click()
    Combo1.SetFocus
    SendKeys "%{Down}"'显示下拉框
End Sub

Answer 4

假设你的combobox的名称是：Combo1
可以使用按钮显示下拉列表：Private Sub Command1_Click()
 Combo1.SetFocus
 SendKeys "{F4}"
End Sub

Answer 5

简单方法： 
Combo1.SetFocus
 SendKeys "{F4}"

Answer 6

以前早就有回答了！
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=19960