请教！如何限制窗体中某字段不能键盘输入数据只能通过扫描条码输入

sxgaobo

同题！

roych

通过KeyUp事件计时，超过0.1秒的即为键盘输入。时间关系【今天有约】，下次再做例子。

sxgaobo

roych 发表于 2013-3-10 10:37
通过KeyUp事件计时，超过0.1秒的即为键盘输入。时间关系【今天有约】，下次再做例子。

谢谢版主
期待你的例子啊！！！

roych

扫描枪是模拟键盘输入并以Enter键结束，但读取时间比键盘输入要快很多。

通过这个原理，可以在获取焦点时记录一个时间，输入完成，按下Enter键时再记录一个时间。两个时间之差如果超过规定时间（例如0.5秒或者1秒），即可判断为手动输入。

从原理上看代码应该没问题，但由于手头上缺乏设备，因此也不能保证测试是否正常。请楼主自行测试，如有问题，请及时提出。

sxgaobo

roych 发表于 2013-3-11 02:48
扫描枪是模拟键盘输入并以Enter键结束，但读取时间比键盘输入要快很多。

通过这个原理，可以在获取焦点时 ...

谢谢版主！
取获取焦点时记录一个时间为第一时间，是不是太早啊？！
我用的是键按下和键释放事件，测试成功！
Option Compare Database
Option Explicit
Dim t1, t2

Private Sub 编号_KeyDown(KeyCode As Integer, Shift As Integer)
t1 = Timer()
End Sub

Private Sub 编号_KeyUp(KeyCode As Integer, Shift As Integer)
t2 = Timer()
If DateDiff("s", t1, t2) > 1500 Then
   Me.编号 = Null
End If
End Sub
各位是否有更好的方法啊！？

roych

sxgaobo 发表于 2013-3-11 09:57
谢谢版主！
取获取焦点时记录一个时间为第一时间，是不是太早啊？！
我用的是键按下和键释放事件，测 ...

我觉得，这个问题基本只能凭借输入速度来判断，可能没有更好的方式了。

路过蜻蜓

good point

tzh1600

是不是可以再创建个隐藏控件，扫描枪数据先输入到这个隐藏控件再用代码更新相应字段，这个字段不就可以设置成锁定了吗？