vb如何读取条码扫描器的数据啊 ？急急急急急急急

Question

我要写一个仓库系统，物品入/出库要用条码扫描录入商品编号，应该怎么写？？
有代码示例最好

Answer 1

一般是在text的KeyDown事件中写处理代码，另外可能还要设置条码枪的属性，看看说明书。

Answer 2

对不起是KeyPress事件，例如
Private Sub txtBarcode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    
    If CheckRepeat Then
        If MsgBox("条码重复！是否录入该数据？", vbYesNo + vbCritical + vbDefaultButton2, "条码重复") = vbNo Then
            SetData
            Exit Sub
        End If
    End If
    
    Dim a
    a = myLetter.SplitBarcode(txtBarcode.Text)
    If a > 0 Then
        setValue myLetter.myBarCode.boxName, txtBoxName
        setValue myLetter.myBarCode.Emergency, txtEme
        setValue myLetter.myBarCode.Packing, txtPack
        setValue myLetter.myBarCode.RcvDept, txtRcvDept
        setValue myLetter.myBarCode.Security, txtSec
        setValue myLetter.myBarCode.SendDept, txtSendDept
        setValue myLetter.myBarCode.Serial, txtSerial
        setValue myLetter.myBarCode.LargeID, txtLargeID
    ElseIf a = -2 Then
        ocxLabel1.Visible = True
    End If
    SetFocus
End If
End Sub

Answer 3

没提供sdk吗？没有的话联系厂商索取sdk

Answer 4

如果不是离线式的那么一般是在key的什么事件中如果离线大部分用RS-232