'当获得焦点的时候，combo自动下拉
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 BoxDropDown(box As ComboBox, Optional blnIf As Boolean)
'功 能 : 当获得焦点的时候，combo自动下拉
'参 数 : Box Combo对像 blnIf=True 打开列表 blnIf=False 关闭列表
SendMessage Combo1.hwnd, &H14F, blnIf, 0
End Sub
Combo下拉列表框自动展开和关闭!
Combo获得焦点时自动下拉功能实现
最新推荐文章于 2024-03-21 20:30:03 发布
博客介绍了让combo在获得焦点时自动下拉的功能实现。通过声明SendMessage函数，定义常量CB_SHOWDROPDOWN，编写BoxDropDown子程序，利用SendMessage函数实现对combo列表的打开或关闭操作。
扫一扫
3045
到【灌水乐园】发言
