用过键盘口式的扫条码工具的朋友就知道,它就如同在鍵盘上按下数字鍵一样,基本不需任何编程和处理。但假如你使用的是其它接口的话,可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。?
Dim sData As String?
Private Sub Form_Load()?
With MSComm1 ?
.CommPort = 3 '设为COM3,试运行的系统而定。?
.PortOpen = True'打开通讯端口?
End With?
End Sub?
Private Sub MSComm1_OnComm()?
Dim EndPos As Integer?
Select Case MSComm1.CommEvent?
Case comEvReceive '当有数据传送过来时?
sData = sData