'声明API: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 Long'在需要显示下拉框时: Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
可能只有从GotFocus事件入手了。