With MSC
Select Case .CommEvent ''''判断通信事件
Case comEvReceive: ''''收到Rthreshold个字节产生的接收事件
SwichVar 1
If Out(1) = 2 Then ''''判断是否为数据的开始标志
.RThreshold = 0 ''''关闭OnComm事件接收
End If
Do
DoEvents
Loop Until .InBufferCount >= 3 ''''循环等待接收缓冲区>=3个字节
'''' nRece = nRece 1
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
