已有23人关注
求教关于空格打开COMBOBOX下拉框看不到效果的问题
发表在VB答疑区 2008-01-13
是否精华
版块置顶:
Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 32 Then
    SendKeys "%{DOWN}"
  End If
End Sub

这个代码表示发送alt+down 打开下拉框,(我的机器实验过,如果直接按键这两个可以打开)。但是通过SENDKEYS的方式不行。SENDKEYS发送其他的键都可以有效果的!
分享到:
精彩评论 1
Lemon
学分:0 LV1
2008-01-19
沙发
您好!

可以通过下面两种方法实现您的功能
一种是利用快捷键,也就是您用的这种方法,但是使用的键不对,正确的形式如下:首先是ComboBox获得焦点,然后利用F4键展开

Combo1.SetFocus
Sendkeys "{F4}"

第2中方法可以利用SendMessage函数,代码如下:

SendMessage Combo1.Hwnd, &H14F,True,0
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照