现在在仓库管理,超市贩售等场合,扫码枪等扫码输入设备已经成了必不可少的工具,基本上不再需要人工去输入商品编码了。
那么我们在用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年获微软最有价值专家。【详情>>】