焦点在combobox,敲回车后，拉出下拉菜单，就是用回车实现鼠标点击combol的小倒三角的效果！能做到么？50分必给！

zl17 2005-11-03 02:41:51

...全文

485 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

韧恒 2005-11-03

打赏
举报

纠正一下，结合“ winehero(编程人生)”的方案，因为发现我的代码不能用于Style=2时的情况，而 "winehero(编程人生)"的方案在打开列表后，再按回车选择时，列表将再次打开，所以正确结果如下：

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_GETDROPPEDSTATE = &H157

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'' 如果按回车
If SendMessage(Combo1.hwnd, CB_GETDROPPEDSTATE, 1&, 0&) = 0 Then
'' 如果未处于下拉状态，则打开下拉列表。一定要检查，否则无法用回车关闭例表。
SendKeys "{F4}"
End If
End If
End Sub

zhzhq800204 2005-11-03

打赏
举报

学习

wzzwwz 2005-11-03

打赏
举报

唉，又慢了，该死的网速啊

winehero 2005-11-03

打赏
举报

'搞那么多干什么？！发送F4键就可以了嘛

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then sendkeys "{F4}"
End Sub

weiweiplay 2005-11-03

打赏
举报

没说的了，蹭分行吗？

韧恒 2005-11-03

打赏
举报

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 Const CB_GETDROPPEDSTATE = &H157

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
'' 如果按回车
If SendMessage(Combo1.hwnd, CB_GETDROPPEDSTATE, 1&, 0&) = 0 Then
'' 如果未处于下拉状态，则打开下拉列表。一定要检查，否则无法用回车关闭例表。
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1&, 0&
KeyCode = 0 ' 一定要加上这个，否则下拉列表自动关闭
End If
End If
End Sub

northwolves 2005-11-03

打赏
举报

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
End Sub

wzzwwz 2005-11-03

打赏
举报

Option Explicit
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_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0
End If
End Sub

shawls 2005-11-03

打赏
举报

在key_press里面判别是否为13/enter

然后使用上面的过程

shawls 2005-11-03

打赏
举报

[名称] 让ComboBox自动下拉

[数据来源] 未知

[内容简介] 空

[源代码内容]

以下状况假设我在 Form_Load 中自动下拉 Combo1.

′以下声明用于16位
Const WM_USER = &H400
Const CB_SHOWDROPDOWN = (WM_USER + 15)
Private Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, _
ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long

′以下声明用于32位
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

Private Sub Form_Load()
Combo1.AddItem "11111"
Combo1.AddItem "22222"
Combo1.AddItem "33333"
Combo1.AddItem "44444"
Combo1.AddItem "55555"
Combo1.AddItem "66666"
′Form_Load 即自动下拉 Combo1
Dim nret As Long
nret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

以上代码保存于： SourceCode Explorer(源代码数据库)
复制时间： 2005-11-03 14:59:05
软件版本： 1.0.881
软件作者： Shawls
E-Mail： ShawFile@163.com
QQ： 9181729