Question

我想在VB中接收从条码扫描仪传来的条码数据,哪位高手帮传个程序出来啊,急!急!急!

条码数据包含11个字符,不管是用控件,还是用其它方法,只要在扫描时,能实时接收到就行(赋给文本框或变量都行)
我的代码如下,大家看有什么问题.
Option Explicit
Dim Strcom As String
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.RThreshold = 11
.InputLen = 11
.InBufferCount = 0
.InBufferSize = 1024
.InputMode = comInputModeText
.PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text1.Text = MSComm1.Input
Strcom = Text1.Text
List1.AddItem Strcom
MSComm1.InBufferCount = 0
End Select
End Sub

Private Sub cmdEnd_Click()
MSComm1.PortOpen = False
End
End Sub

Answer 1

其实很简单，不用什么api，也不用任何辅助的控件。
条形码扫描枪其实就是一个输入的设备，等于键盘一样的功能，如果你把焦点设置到一个可以输入的控件中，使用条形码扫描枪，其结果就像在键盘上打字一样。
大多数条形码扫描枪在扫完之后可以设定多加一个回车作为标志，这样你可以根据收到这个回车来执行代码就行了。

Answer 2

去找那个条形码扫描器的API库，问题就解决了。
生产设备厂家会提供的。
如果运气好还可以去厂家网站下载。

Answer 3

是串口传输的话,可以用mscomm控件