串口连续扫描报超时错误，单次扫描并且隔几秒再扫没问题。请帮忙，代码如下：
监视器代码
Forms("数据扫描").Controls("bar").value =e.Port.ReadTo(Chr(10))
串口代码
Dim txt As String=e.Form.controls("com").value
If Ports.Contains(txt) = False Then
Ports.Add(txt)
End If
If Ports(txt).Isopen=True Then
Ports(txt).Close()
End If
With Ports(txt)
.Parity = Parity.None
.Handshake = Handshake.None
.StopBits = StopBits.One
.BaudRate = 38400
.DataBits = 8
.ReadBufferSize() = 4096
.WriteBufferSize() = 2048
.Encoding = Encoding.ASCII
.Open
End With
messagebox.show("打开成功")
加好友 
发短信
Post By：2018/1/24 10:45:00 [只看该作者]
