公司有一个vb 软件是通过扫描枪扫描条形码获得信息，但用扫描枪扫描后Text中的条形码一闪就没了。

Posted 2023-04-26

信息可以正确获得，但想把条形码也保留住，本人是VB菜鸟，求助

我用的metrologio扫描枪
扫描枪工作流程 1.扫描条型码 2.编绎条型码 3.模拟键盘输入： 条型码字符 + 回车
可以看出，当出现回车时就代表输入结束，可以执行代码了
用keydown ,keyup 或者keypress 事件
下面用keypress举例：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ‘回车键的asc键值为13
'省略要执行的代码
text1.text="" '清空文本框
'上面这个是最简单的，要想保留条型码只要删除上这行了
End If
End Sub
'我觉得还是清空文本框比较好，方便多次扫描
因为没有代码，所以不能确定是不是这样，能达到同样效果还有别的方法，基本上都差不多的，就不说了追问

Private Sub Text1_change()
If Text1.Text = "" Then
Text1.SetFocus
Label3.Caption = ""
Shape21.BackColor = &HFFC0C0
Timer1.Enabled = False
Exit Sub

text 的程序是上面的，扫描后或者键盘输入后text内的条形码一闪就没了（不用按回车，扫描后直接一闪就没了）

追答

timer1里的代码是什么？你这段是不会出现你说的问题的……
我说的 条型码+回车，不是手动键入回车。。。你可以打开一个文本框 再扫描一下条型码，打出条型码后会自动换行的,这是系统自动输入的，所以一般最简单的方法就是我上面说的....
至于你的没有代码，不能判断。。。

参考技术A 扫描器输出有两种格式，一种是带回车，另一种不带回车，你的应该是设置了带回车，且文本框是多行或有回车事件，故产生此现象，你可以设置扫描枪为不带回车的，具体请参考扫描枪说明书，很简单的，多都是扫一两个条码就能设置了！

现在一张表格上有一个QRcode二维码，我想用VB做个小软件用扫描枪(USB)读取里面内容

条形码里面的各个数据直接填充至VB程序里面的指定文本框

请教怎样设计
可以发我邮件[e-mail]
可以加分

参考技术A 我可以做 追问

望赐教，可以加分感谢

本回答被提问者采纳