如何让COMBOBOX控件自动展开？

[howel]

当组合框获得焦点后，自动展开其内容，而不用点右边的三角形？

[Kain]

Sendmessage combo1.hwnd,cb_showdropdown,true,byval 0&

[howel]

不成啊，兄弟。

[liberte]

sendkeys {F4}

[lihonggen0]

'关于标准下拉框的
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
Const CB_SHOWDROPDOWN = &H14F
Const CB_GETDROPPEDWIDTH = &H15F
Const CB_SETDROPPEDWIDTH = &H160

'改变下拉框的宽度,NewWidth为新宽度,可用strtmp取得最长的下拉框中的字符串,NewWidth=TextWidth(strTmp) * cbo1.FontSize / 9
SendMessage cbo1.hwnd, CB_SETDROPPEDWIDTH, NewWidth, 0

'弹出下拉框
SendMessage cbo1.hwnd, CB_SHOWDROPDOWN, True, 0

[rainstormmaster]

兄弟，没错。不过，要事先声明函数和常量，像下面：
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 Command1_Click()
'Me.Combo1.SetFocus
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
End Sub

[loveerror]

同意上面的。　没什么好说的了。

[zhoujianfengren]

up