组合框支持模糊筛选并能用上下键和回车键确定

时　间:2014-11-05 10:34:18
作　者:胡轶毓   ID：4318  城市：永康
摘　要:组合框支持模糊筛选并能用上下键和回车键确定
正　文:

前段时间在网上提了个贴，要求组合框支持模糊筛选功能的前提下可用键盘上下键和回车键确定内容（不用键盘、鼠标相互切换，能提高输入效率），几经折腾并咨询了几位老师后，都没有得到解决方案。

昨天突然想到模糊筛选的功能是在”键按下“事件中的，那如果在键按下时先判断如果是上下键和回车键就不进行筛选是否可行呢？进行测试，果真就实现我原先的要求了。真是”山重水复疑无路，柳暗花明又一村“。

下附例子：点击下载此附件

若想在开发平台中实现以上功能，可以对”SearchComboBox“模块中的最后一段代码改成下面代码就可实现：

Private Sub mcboSearch_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 0 Then
        Select Case KeyCode
        Case vbKeyUp, vbKeyDown, vbKeyReturn
            mcboSearch.OnChange = ""
        Case vbKeyTab
            If mcboSearch.Parent.Dirty Then
                If mcboSearch.ListCount > 0 Then
                    If mcboSearch.ColumnHeads Then
                        mcboSearch.Value = mcboSearch.ItemData(1)
                    Else
                        mcboSearch.Value = mcboSearch.ItemData(0)
                    End If
                End If
            End If
        Case Else
            mcboSearch.OnChange = "[Event Procedure]"
        End Select
    End If
End Sub

希望大家测试指正！同是也谢谢各位老师的指导！