Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新日志
VB中用的JPG压缩率高的源码或控件 不复盖任务栏的全屏显示
晴天 手控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 



相关链接: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
暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户名:  密码:   注册? 验证码: 
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情