如何让组合控件的listbox自动消失？
我做了一个组合控件，上面为Text,下面为listbox，可在Text中输入，list中自动查找。然而，将此控件放在窗体上，在text中按 DOWN ARROW 显示listbox后，鼠标移到别的地方点击（不点别的控件），listbox无法自动消失，如何解决？
问题点数：99、回复次数：6Top
1 楼comstar（凡星）回复于 2002-04-13 21:09:07 得分 0
再说明一下，listbox原来隐藏，在text中按下ＤＯＷＮ ＡＲＲＯＷ ，listbox才显示。Top
2 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-04-13 21:09:08 得分 49
消失：SendMessage hWnd, CB_SHOWDROPDOWN, 0, 0Top
3 楼comstar（凡星）回复于 2002-04-13 21:10:55 得分 0
是列表ｌｉｓｔ，不是下拉列表ｃｏｍｂｏTop
4 楼water_j（随心所欲）回复于 2002-04-13 21:38:31 得分 0
Private Sub listbox_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If 不在（X-Y）范围 Then
List1.Visible = False
End If
End Sub
Top
5 楼water_j（随心所欲）回复于 2002-04-13 21:41:30 得分 20
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If 不在list1（X-Y）范围 Then
List1.Visible = False
End If
End Sub
Top
6 楼wgku（云霄）回复于 2002-04-13 21:42:33 得分 30
用listbox的lostfocus事件，让失去焦点的listbox.visible=falesTop
