Question

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

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

Answer 1

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

Answer 2

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