Private Sub Command1_Click()
Text1 = "" '清除数值
BarCodeCtrl1 = "" '清除条码
End Sub
Private Sub MSComm1_OnComm()
Dim st As String
If MSComm1.CommEvent = comEvReceive Then
st = MSComm1.Input
If st <> Chr(3) Then
st_all = st_all st
Else
Txt_Pt.Text = Trim(Mid(st_all, InStr(st_all, Chr(2)) 1, 10))
st_all = ""
Process_no
End If
End If
End Sub
Private Sub Text1_Change()
If Text1 <> "" Then Me.BarCodeCtrl1.Value = Trim(Me.Text1.Text)
End Sub
vb写的usb扫码枪，读取数据并记录
需积分: 46 20 浏览量
2022-07-04
13:48:28
上传
评论 1
收藏 14KB RAR 举报
FYSM2.rar （9个子文件） 
新建文本文档.txt 530B
FYSM2 - 副本 
fySM.frx 3KB fySM.vbw 83B fySM.vbp 750B fySMbas.bas 11KB MSSCCPRJ.SCC 189B ICO fy.ico 3KB fySM.frm 3KB
fySM.exe 32KB
评论0