用户登陆
站点统计
最新评论
日志搜索
其他信息
手控Combobox的打开或收起 [ 日期：2007-06-15 ] | 程序代码： | [ 复制代码 ] |
Option Explicit
'http://www.cnng.net
'石陆软件屋
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
'http://www.cnng.net
'石陆软件屋
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
相关链接：vb | 手控 | Combobox | 打开 | 收起
[本日志由 admin 于 2013-11-01 10:52 PM 编辑]
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=41
http://www.cnng.net/blog/trackback.asp?tbID=41&CP=GBK