有关combo list

[liangbb2000]

请问怎么实现当在combo上打字时，能使list下拉打开，以及怎么实现排序。谢谢！

[riluo]

SendMessage函数可以实现

[dragon525]

Private Declare Function SendMessageLong 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_change()
dim r as long
if combo1.text<>""
r = SendMessageLong(Combo1.hWnd, CB_SHOWDROPDOWN, True, 0) '下拉框
else
r = SendMessageLong(Combo1.hWnd, CB_SHOWDROPDOWN, False, 0)'关闭
end if
End sub
试试看？
至于排序，自己再写吧，应该不难。