text如何禁止键盘输入但允许蓝牙设备输入？

wangjun.shc

各位大侠：
我在公司编了一个程序，希望实现在text框中禁止人为地用键盘输入，但是允许用条码枪等蓝牙设备在text框中读入数字，这个如何实现？请赐教，谢谢。

冰封气流

这个似乎VBA办不到。。。

MOY838840554

状态设为禁用。。。

ggmmlol

用KeyDown事件和Change事件两者相结合，可以解决：
KeyDown事件中，给一个模块内的全局的布尔变量赋值True，以此标记文本内容的改变来源于键盘。（并事先将原文本内容保存到文本框的Tag属性中。）
Change事件中，判断前述布尔变量值，如果为True，就把文本的内容改回Tag中保存的内容，并把布尔变量的值改为False。

这样一来，使用键盘对该文本框所进行的修改，都会自动被改回原先的值，也就相当于屏蔽了键盘对该文本框控件的编辑能力。

wangjun.shc

MOY838840554 发表于 2021-11-24 09:38
状态设为禁用。。。

状态设定为禁止的话，蓝牙设备也不能输入了呀

wangjun.shc

ggmmlol 发表于 2021-11-24 10:25
用KeyDown事件和Change事件两者相结合，可以解决：
KeyDown事件中，给一个模块内的全局的布尔变量赋值True ...

多谢大侠相助，我认真按你的方法研究后再试试

MOY838840554

wangjun.shc 发表于 2021-11-24 10:52
状态设定为禁止的话，蓝牙设备也不能输入了呀

设为禁用后，可以通过代码写入值，不能输入

wangjun.shc

ggmmlol 发表于 2021-11-24 10:25
用KeyDown事件和Change事件两者相结合，可以解决：
KeyDown事件中，给一个模块内的全局的布尔变量赋值True ...

我试了一下，蓝牙设备输入时也会触发keyDown事件的，好像不行。你还有好的方法吗

tspliu

拔键盘

ggmmlol

wangjun.shc 发表于 2021-11-24 11:36
我试了一下，蓝牙设备输入时也会触发keyDown事件的，好像不行。你还有好的方法吗

再配合KeyUp事件：
在KeyUp事件中，把布尔变量的值置为False

因为只有按键（包括模拟键盘、发送虚拟按键）才会触发KeyDown事件。蓝牙扫码（扫描）设备是不可能触发的。那么只能是按键触发的事件，但并未引起文本框的Change事件，比如在文本框获得输入焦点时，按下F2键之类，并不会触发Change事件，但布尔变量却因此变为True了，导致后面用蓝牙扫码输入的也当成手工键盘输入了。所以，只要在KeyUp事件中，把布尔变量改回False，就可以真正区分键盘输入与非键盘输入了。