强制ComboBox弹出下拉框

页面导航:首页 > 软件编程 > vb.net > 强制ComboBox弹出下拉框

强制ComboBox弹出下拉框

来源: 作者: 时间:2016-02-05 12:32 【

用过ComboBox的朋友都知道,当点击ComboBox的向下箭头或点击编辑框时,都能弹出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:"

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

End Sub

 

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <