扫描实际就是快速的键盘输入。
你把焦点移动到文本框里,然后扫描,编写keydown事件
If e.KeyCode = 13 Then msgbox(e.Sender.Text) e.cancel = True e.Sender.SelectAll End If