主题：扫码

 也可以.

 

 你在keydown事件加入代码

 

If e.keycode = keys.Enter Then
    e.Sender.Text &= ","
    e.Cancel = True
    e.Sender.SelectionStart = e.Sender.Text.Length
End If

我还是判断每一行吧，这个扫码器有个换行的功能，文本框里面内容获取每一行，给个链接呗，我这个文本框当然是多行的

代码不好使

Dim ary() As String = e.Form.Controls("TextBox2").Text.replace(chr(10), "").Split(chr(13))
For Each s As String In ary
    msgbox(s)
Next

 

写的代码都不可能不好使

你这个前提条件是什么？

21楼，你每扫描一个，加一个逗号；

 

24楼，你单独做一个按钮获取文本框的值。

必须根据回车判断吗

 

每扫描完一个条码，扫描枪给的提示，就是回车，用这个可以检测是否录入数据啊