ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
数据管理利器Foxtable2022下载 Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 Power Query数据清洗实战攻略 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 159|回复: 12

[求助] text如何禁止键盘输入但允许蓝牙设备输入?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-11-24 09:01 | 显示全部楼层 |阅读模式
各位大侠:
我在公司编了一个程序,希望实现在text框中禁止人为地用键盘输入,但是允许用条码枪等蓝牙设备在text框中读入数字,这个如何实现?请赐教,谢谢。

TA的精华主题

TA的得分主题

发表于 2021-11-24 09:14 | 显示全部楼层
这个似乎VBA办不到。。。

TA的精华主题

TA的得分主题

发表于 2021-11-24 09:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2021-11-24 10:25 | 显示全部楼层
用KeyDown事件和Change事件两者相结合,可以解决:
KeyDown事件中,给一个模块内的全局的布尔变量赋值True,以此标记文本内容的改变来源于键盘。(并事先将原文本内容保存到文本框的Tag属性中。)
Change事件中,判断前述布尔变量值,如果为True,就把文本的内容改回Tag中保存的内容,并把布尔变量的值改为False。

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

评分

参与人数 1鲜花 +2 收起 理由
游乐缘 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-11-24 10:52 | 显示全部楼层
MOY838840554 发表于 2021-11-24 09:38
状态设为禁用。。。

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

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

发表于 2021-11-24 11:25 | 显示全部楼层
wangjun.shc 发表于 2021-11-24 10:52
状态设定为禁止的话,蓝牙设备也不能输入了呀

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

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

发表于 2021-11-24 11:39 | 显示全部楼层

TA的精华主题

TA的得分主题

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

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

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

评分

参与人数 1鲜花 +2 收起 理由
daisywxd + 2 太强大了

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-12-4 03:33 , Processed in 0.072455 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表