能用按钮控制下拉框吗,点击按钮,使下拉框下拉,
和点击下拉框一样的效果。

解决方案 »

  1.   

    '可以.Const CB_SHOWDROPDOWN = &H14F
    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 Sub Command1_Click()
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
    End Sub
      

  2.   

    同意tztz520(午夜逛街):CB_SHOWDROPDOWNtztz520(午夜逛街)够快的啊!
      

  3.   

    顺便问一下,为什么,我在家里上网,结贴以后提示是否提交FAQ,
    可在公司上网结贴时,什么也不提示啊?