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的说法！回答的不错，支持一下！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024