请问,combox是不是这样的?

[chinahyq]

请问,vb6版的combox按enter键为何不会下拉出来呢?
而vfoxpro版的combox按enter键可以下拉出来呢?

是不是这样的?
奇怪?

[of123]

是。

[chinahyq]

我要按enter键下拉出来,该如何呢?

[tztz520]

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 Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
End Sub

[chinahyq]

谢谢,是可以.
再请问,我要第一次按enter键combox下拉出来,再按一次enter键就离开combox跳到下一个控件,
该如何呢?

象vfoxpro版的combox一样.

[chinahyq]

还有,能控制combox下拉出来的高度吗?

[qiqi5521]

再请问,我要第一次按enter键combox下拉出来,再按一次enter键就离开combox跳到下一个控件,
该如何呢?

象vfoxpro版的combox一样.
Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
if combo1.tag="" then
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
combo1.tag="1"
else
command1.setfocus
combo1.tag=""
end if
end if


End Sub

[chinahyq]

谢谢qiqi5521(琪琪) .

哪能控制combox下拉出来的高度吗?(数据多时很难找)