Foxtable(狐表)用户栏目专家坐堂 → 文本框只允许扫描枪扫码输入,不允许在键盘打字输入


  共有3538人关注过本帖树形打印复制链接

主题:文本框只允许扫描枪扫码输入,不允许在键盘打字输入

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/27 16:24:00 [显示全部帖子]

不能识别的,只能变通处理:

 

从开始输入到输入结束,用时多少时间,如果是很快的,就判断成扫描枪输入。

 

为避免ctrl+V或者右键菜单粘贴,就在keydown事件禁用ctrl+V,而且要把文本框的右键菜单去掉

 

Dim t As object = e.Form.Controls("TextBox1").BaseControl
t.ContextMenuStrip = new System.Windows.Forms.ContextMenuStrip()


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/27 17:19:00 [显示全部帖子]

keydown事件

 

static stime As Date

If e.sender.Text.length = 1 Then
    stime = Date.Now
End If

If e.keycode = 13 Then
    msgbox((Date.now-stime).TotalSeconds)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/27 19:58:00 [显示全部帖子]

枚举实际上就是一个数字

 

msgbox(Keys.Enter)


 回到顶部