access函数_判断是否扫码枪输入的通用函数源码

【Access源码】判断是否扫码枪输入的通用函数源码分享，有用得到的人请自取。

    现在在仓库管理，超市贩售等场合，扫码枪等扫码输入设备已经成了必不可少的工具，基本上不再需要人工去输入商品编码了。

    那么我们在用Access开发软件时，能和扫码枪结合使用吗？答案是肯定的。实际上绝大部分扫码枪的原理，都是用的模拟键盘输入，也就是说只要能用键盘，扫码枪就能用。但你用Access开发的软件不能用键盘吗？绝对不可能嘛！

是否扫码枪扫码输入判别原理：

    由于很多扫码枪是通过模拟键盘的方式进行输入，因此难以直接从输入来源判断。但是因为扫描输入间隔短而规律，手工输入间隔长短不一，所以通过判断按键之间的间隔时间来判断，是相对可行和可靠的方案。

    在本示例中，我将基于此原理的判断功能封装为一个通用的函数 IsScannerInput 方便大家调用。

    如果你对VBA编程完全熟悉了，可以直接看下面的函数源代码即可，当然也可以下载文末的示例附件。

函数源码：

Win32API函数声明

获取开机到现在过去的时间(此Win32 API函数可以精确到毫秒数)

Public Declare Function ApiGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long 

=====================================

函数名称： IsScannerInput

用途说明： 用于判断是否使用扫码枪等扫描设备输入。在输入框KeyDown事件中调用。

输入参数： 

    KeyCode     输入框KeyDown事件的KeyCode参数，传址调用。

    KeyPressInterval    扫描设备输入时两次按键的最大间隔时间。

    RepeatCount      连续按键次数，通过判断连续多次的按键间隔时间，以增加准确度。

    EndKeyCode      扫描设备输入结束标志字符，一般情况下默认是回车键，但在设备上 应该是可以通过跳线或开关进行设置的。

返 回 值： 当捕获到输入结束标志字符(一般是回车)时，如果前面RepeatCount个字符的输入间隔，满足，则返回True，否则返回False。

作    者： 红尘如烟 2012-02-14

修    改： 红尘如烟 2019-01-23

注意事项： 很多扫描枪是通过模拟键盘的方式进行输入，因此难以直接从输入来源判断。此函数的判断原理，是通过判断按键之间的间隔，扫描输入间隔短而规律，手工输入间隔长短不一。

====================================

Public Function IsScannerInput _

    ( _

          ByRef KeyCode As Integer _

          Optional KeyPressInterval As Long = 100 _

          Optional RepeatCount As Long = 5 _

          Optional EndKeyCode As Integer = vbKeyReturn _

    ) As Boolean

    Static slngKeyPressTime(255) As Long

    IsScannerInput = False

    slngKeyPressTime(RepeatCount - 1) = slngKeyPressTime(RepeatCount)

    slngKeyPressTime(RepeatCount) = ApiGetTime()

    Dim lngI As Long

    For lngI = 1 To RepeatCount - 2

        slngKeyPressTime(lngI) = slngKeyPressTime(lngI + 1)

    Next

    If KeyCode = EndKeyCode Then

        Dim blnScanMode As Boolean: blnScanMode = True

        For lngI = 1 To RepeatCount - 1

            If slngKeyPressTime(lngI + 1) - slngKeyPressTime(lngI) > KeyPressInterval Then

                blnScanMode = False

                Exit For

            End If

        Next

        If blnScanMode Then

            KeyCode = 0

            IsScannerInput = True

        End If

    End If

End Function

示例下载:

    在屏幕左下角的

- End - 推荐阅读 快速开发《财务管理系统》  学课程得软件。学员参加本课程学习，可获得财务管理系统源代码，立即投入到实际工作中。【详情>> 】   Access专家课堂 是Access数据库爱好者提升技能的专业课堂，由微软最有价值专家张志创办，课堂有不少的免费课程，可通过电脑或微信学习。【详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>> 】   从Excel到Access数据库  为广大Excel用户了解、学习Access数据库开设的一个实用课程，侧重于数据统计分析。【详情>> 】   Access每天3分钟  视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】