UC知道vb中组合框(combo)怎样做到按“向下”键显示下拉列表？
来源：百度知道 编辑：UC知道 时间：2024/05/31 06:38:23
如题。默认是按“向下”键选中并显示下一个list项的，但并不会显示出下拉列表。我要的就是如同鼠标点击箭头后的效果——显示出下拉列表，只不过，这里不要用鼠标而用“向下”键。
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
支持guanguanwky的说法！回答的不错，支持一下！