Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

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

时 间: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


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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助