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

【Access源码】判断是否扫码枪输入的通用函数源码分享。

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

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

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

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

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

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

函数源码：​

Win32API函数声明

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

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

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

函数名称： IsScannerInput

用途说明： 用于判断是否使用扫码枪等扫描设备输入。在输入框K