如何编写按钮单击代码来实现组合框的下拉？

[seven308]

一窗体中有两个控件，一个按钮，一个组合框。
当单击按钮时能否实现将组合框下拉（既让组合框显示出其下拉表中的数据）
形如单击了组合框的下三角箭头！
如能实现，再追加30分。

[chinaren502]

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 Const CB_SHOWDROPDOWN = &H14F

Sub ShowDropdown(cbo As ComboBox, Optional fShow As Boolean = True)
SendMessage cbo.hwnd, CB_SHOWDROPDOWN, Abs(fShow), ByVal 0
End Sub

Private Sub Command1_Click()
ShowDropdown Combo1, True
End Sub

Private Sub Command2_Click()
ShowDropdown Combo1, False
End Sub

[victorycyz]

command1_click()
combo1.setfocus
sendkeys "{f4}"
end sub

[supergreenbean]

多看看MSDN
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 Const CB_SHOWDROPDOWN = &H14F

Sub ShowDropdown(cbo As ComboBox, Optional fShow As Boolean = True)
SendMessage cbo.hwnd, CB_SHOWDROPDOWN, Abs(fShow), ByVal 0
End Sub

Private Sub Command1_Click()
ShowDropdown Combo1, True
End Sub

Private Sub Command2_Click()
ShowDropdown Combo1, False
End Sub

[victorycyz]

private sub command1_click()
combo1.setfocus
sendkeys "{f4}"
end sub

[BlueBeer]

回复人： victorycyz(中海)

高明~ ^o^

[啊维]

在你单击的事件中,让这个组合框得到焦点,然后
sendkeys "{f4}"
就可以了