怎样在Combo中检索数据的问题

Question

怎样在Combo中检索数据就是当我程序运行之后在Combo中里有数据,比如是时间
有N个数据2006-4-26 10:11:12 好几个,然后当我输入2006-4的时候就把4月份的所有数据都显示出来了,如果我输入2006-4-26就把这一天的数据就都检索出来了
这样怎么实现.

Answer 1

给你个思路,在combo的change事件下写代码,加一list控件,然后比对combo中的条目和正在输入的字符,将比对的结果赋给list控件,简单写了几行,我觉的可行,不过网上应该有第三方控件的Private Sub Combo1_Change()
    Dim i As Integer
    List1.Visible = True
    If Combo1.Text <> "" Then
        For i = 1 To Combo1.ListCount
            If StrComp(Combo1.Text, Combo1.List(i)) Then
                List1.AddItem Combo1.List(i)
            End If
        Next
    End If
End Sub

Answer 2

怎么才能让我输入数据的时候让Combo的下拉框自动弹出来

Answer 3

Private Sub Combo1_Change()
    SendKeys "{F4}"
    '如果再次发送f4的话，则收起
    '也可以发送alt-down
    'SendKeys "%{down}"
    '发送alt-up则为收起，即
    'SendKeys "%{up}"
End Sub