当前位置:编程学习 > VB >>

强制ComboBox弹出下拉框

 

     用过ComboBox的朋友都知道,当点击ComboBox的向下箭头或点击编辑框时,都能弹出ComboBox的下拉框。这是为什么呢?原来,这两种操作触发的都是同一个事件。 只要知道事件的发送原理,我们自己也能发送消息,强制其弹出下拉框。

下面的例子就实现了这个功能。

>>步骤1----建立新工程,在窗体上放置ComboBox控件和一个CommandButton控件。

>>步骤2----编写如下代码:

 

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, 1, 0

End Sub

 

Private Sub Form_Load()

    Combo1.AddItem "程序编制:小马哥"

    Combo1.AddItem "Mail:Schunte@sina.com"

    Combo1.AddItem "Http://MaJiFeng.Top263.net"

End Sub

 

>>步骤3----编译运行,点击Command1,看看ComboBox1是不是弹出了下拉框。

补充:软件开发 , Vb ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,