ComboBox问题

Question

ComboBox问题:想实现鼠标点击其“向下”按钮时，ComboBox的Item内容发生变化，是什么事件能实现？

Answer 1

'Click事件
Private Sub Combo1_Click()
  ...
End Sub

Answer 2

楼上的不行，楼主是问"点击其“向下”按钮时"可以激发事件，不知道有没有api可以实现呢

Answer 3

Hook ComboBox的CB_SHOWDROPDOWN消息

Answer 4

tripman(当牛粪遇上鲜花) :大哥具体怎么搞啊!
详细些!!

Answer 5

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const CB_SHOWDROPDOWN = &H14FPrivate Sub Command1_Click()
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0
End Sub

Answer 6

不能使用 Command1控件啊，大哥！能用的话，是好解决的!

Answer 7

Private Sub Combo1_DropDown()
    
    Combo1.AddItem "A"
    Combo1.AddItem "B"
    Combo1.AddItem "C"
    
End Sub