OnComm事件如下:On Error GoTo onerr
With CommReceive
Select Case .CommEvent
Case comEvReceive
If Not IsReceive Then Exit Sub
.InputLen = 0
buffer = .Input
Sleep (400) ' 加上sleep 后,解决了数据短续,但是每次获取,整个程序也
跟着Sleep,很不爽 。
DoEvents
If TrimAll(buffer) <> "" Then
debug.Print buffer
end if
End Select
End With
onerr:
Exit Sub各位有没有更好的解决方法?
With CommReceive
Select Case .CommEvent
Case comEvReceive
If Not IsReceive Then Exit Sub
.InputLen = 0
buffer = .Input
Sleep (400) ' 加上sleep 后,解决了数据短续,但是每次获取,整个程序也
跟着Sleep,很不爽 。
DoEvents
If TrimAll(buffer) <> "" Then
debug.Print buffer
end if
End Select
End With
onerr:
Exit Sub各位有没有更好的解决方法?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货