如何检测组合框是否已经dropdown

tz-chf

因为不管是否dropdown，每次都dropdown会闪一下

Henry D. Sy

1. Private Sub Combo0_Change()
   
2.     Dim bln As Boolean
   
3.     'bln = False
   
4.     If bln = False Then
   
5.         Me.Combo0.Dropdown
   
6.         bln = True
   
7.     End If
   
8. End Sub

复制代码

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

tz-chf

组合框是过滤用的,每输入一下拼音首字母都要过滤弹出的列表,我写在keyup里,也可以用公共变量判断一下,如果不是闪得利害就不管它了.

没有现在的属性,好象

可以这样:

        If Not flg Then
            Me.药品ID.Dropdown
            flg = True
        End If
关键是什么情况下列表会收起来,flg恢复到false
试了一下,不行,每下输入都是关闭列表再打开的,所以会闪,可能是每次都改变了记录源(为了过滤列表效果)

[ 本帖最后由 tz-chf 于 2008-12-14 10:25 编辑 ]