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

VB技巧问答10000例 VB技巧问答10000例

利 用 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>