本文介绍了一个使用VBA实现组合框自动展开与收起的方法。通过调用 SendMessage 函数并传递特定的消息参数，可以控制组合框的状态。此外，还展示了如何向组合框中添加项目的示例。
Option Explicit
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_Change()
'打开
Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
'收起
'Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 0, ByVal 0&)
End Sub
Private Sub Form_Load()
Combo1.AddItem "001", 0
Combo1.AddItem "002", 1
Combo1.AddItem "003", 2
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
