Question

vb中组合框(combo)怎样做到按“向下”键显示下拉列表？

如题。默认是按“向下”键选中并显示下一个list项的，但并不会显示出下拉列表。我要的就是如同鼠标点击箭头后的效果——显示出下拉列表，只不过，这里不要用鼠标而用“向下”键。

Answer 1

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

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, vbNullString
End If
End Sub

Answer 2

支持guanguanwky的说法！回答的不错，支持一下！