VB手控Combobox的打开或收起

最新推荐文章于 2020-12-23 14:23:29 发布

miaozk2006

最新推荐文章于 2020-12-23 14:23:29 发布

阅读量863

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416486

版权

这篇博客汇集了多个VB编程相关的知识点，包括如何手控ComboBox的打开或收起，以及各种文件操作、系统交互、控件管理和事件处理等技巧。此外，还提到了CommonDialog的多选功能、禁止特定快捷键、读取TextBox内容、获取硬盘信息等实用方法。

摘要由CSDN通过智能技术生成

以下代码在窗体

程序代码：

Option Explicit
' http://baidu.bhdata.com
'石陆软件屋
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