怎么样使COMBO控件用语句展开

Question

不是鼠标点击后展开

Answer 1

可否告知.为何要用代码展开combo

Answer 2

Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN As Long = &H14FPrivate Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim h As Long
    If KeyCode = vbKeyReturn Then
            h = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&) '顯示
'           h = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, False, ByVal 0&)'隱藏
    End If
End Sub

Answer 3

以上為在combobox裡按回車鍵顯示(隱藏)下拉列表的代碼

Answer 4

Private Sub Form_Load()
For i = 1 To 10
Combo1.AddItem i
Next
End SubPrivate Sub Command1_Click()
Combo1.SetFocus
SendKeys "{F4}"
End Sub