组合框弹出列表是dropdown，怎么收起列表？

tz-chf

如题

Henry D. Sy

好像没有这种方法。
一般在失去焦点都会自动收起的。

Henry D. Sy

try：
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long，ByVal wParam As Long,lParam As Any) As Long
Public Const CB_SHOWDROPDOWN=&H14F
     当程序中某处需要拉下组合框Combol的列表时，写如下调用语句：
SendMessage Combol.hwnd,CB_SHOWDROPDOWN,True,0
     当需要收起组合框Combol的列表时，写如下语句：
SendMessage Combol.hwnd,CB_SHOWDROPDOWN,False,0

tz-chf

要用api就算了

是在组合框,输入拼音首字母检索时弹出列表,希望按回退键重新检索时收起列表.不过关系也不大.

Henry D. Sy

原来只是这样啊
try

1. Private Sub Combo0_Change()
   
2.     Me.Combo0.Dropdown
   
3. End Sub
   
4. 
   
5. Private Sub Combo0_KeyUp(KeyCode As Integer, Shift As Integer)
   
6.     If KeyCode = 8 Then
   
7.         Me.Recalc
   
8.     End If
   
9. End Sub

复制代码

tz-chf

Me.Recalc会闪动
可以去焦点,再回来

Henry D. Sy

也可以
不过需要定位selstart的位置。

[ 本帖最后由 Henry D. Sy 于 2008-12-10 22:42 编辑 ]

tz-chf

组合框显示的是品名，输入的是拼音首字母检索品名，所以就是选中状态，回退键就是删除了，也不用定位了。现在还是决定不收回列表了，就让它弹开好了。