Question

vb中 的一个问题。textbox 4个 一个扫描器usb接口的，想实现扫描条形码录入textbox1中

条件是实现扫描其它条形码时存入到 textbox（1.2.3.4）中的信息 再清空textbox 4 个控件。注意第一次运行也是清空下录入数据没存入，等我扫描第2张条形码的时候数据存到数据库中，数据库方面不用考虑，我有代码了，相当于，第一次扫描时提起数据库中的记录显示到4个text文本中，更改后我就扫描第2张，把前一张的数据存进去了，不扫描或者扫描同一张不存
补充一下代码扫描后，并不是提取数据库中的记录显示到text各文本中，是我输入的

Answer 1

其实很简单的：
你需要再建一个scancode用于存放扫描出来的条码。而且扫描时焦点要聚焦到这个scancode上，如果你的扫描枪返回条码加回车的话，在scancode的onkeyup事件中加入对回车的判断。如果按键为13即回车就码上，把这次扫描的条码存入一个变量中，然后焦点聚焦到textbox1上供你输入内容，然后回车，在这个textbox1的onkeyup事件中加入对回车的判断,如果按键为13即回车就马上到,算了我直接写代码吧，

Dim ScanKey As String '保存上一次扫描的条码
Dim Date1, Date2, Date3, Date4 As String '即保存输入的textbox（1.2.3.4）中的信息

Private Sub Form_Load()
InitDate
ScanKey = ""
End Sub

'用于清空各文本框中的内容
Private Sub InitDate()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
scancode.Text = "" '用于当前扫描的条码框
End Sub

Private Sub Form_Paint()
scancode.SetFocus '将焦点聚焦到扫描的条码框上，因为有焦点佻才能扫描进去。
End Sub

Private Sub scancode_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '这里如果你的扫描枪返回条码时包括了回车则不需要你自己打个回车，不然需要你自己打个回车，你也可以想办法自己处理后自动加回车
if ScanKey<>"" then
'保存ScanKey条码,Date1,Date2,Date3,Date4进数据库
end if
'保存后清空各个变量
ScanKey = ""
Date1 = ""
Date2 = ""
Date3 = ""
Date4 = ""
Text1.SetFocus '将焦点聚焦到到Text1上供你输入第一个内容
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus 'textbox1输入完后按回车自动转到textbox2上
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text3.SetFocus 'textbox2输入完后按回车自动转到textbox3上
End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text4.SetFocus 'textbox3输入完后按回车自动转到textbox4上
End Sub

Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'textbox4输入完后按回车后
ScanKey = scancode.Text '将本次的条码保存进变量中
Date1 = Text1.Text '将四个文本框中的内容依次保存进Date1-Date4
Date2 = Text2.Text
Date3 = Text3.Text
Date4 = Text4.Text
InitDate '清空文本框中的内容，因为本次内容已经全部保存进变量中了，清空是为了下一次输入作准备。
scancode.SetFocus '将焦点聚焦到到scancode上供你扫描。
End If
End Sub

原理是:当扫描框扫描进内容后，回车将存取变量清空，然后依次转到四个框中，供你输入内容，关健是第4个框时，你必须要回车，以触发将本次内容全部保存进变量。然后清空控件,当第二次扫描时触发将上次内容保存进数据库。然后循环按下来的操作.

追问

额，你们怎么学vb的，书本上好多方法都没啊

追答

书上只是基础,其它的都需要自己学习实践,在网上搜索资料

Answer 2

百度HI吧！牵扯许多问题的。