如何用代码打开combo控件的列表.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 9 行

利 用 API消 息 CB_SHOWDROPDOWN。 
    下 面 是 常 数 和 函 数 定 义 ： 
    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 
    如 果 想 打 开 下 拉 列 表 ， 使 用 ： 
     SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, CLng(0) 
    如 果 想 关 闭 下 拉 列 表 ， 使 用 ： 
     SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 0, CLng(0) 
<END>