方法一：try catch
http://www.foxtable.com/help/topics/2070.htm
方法二：用read以后，自己判断是否有换行符。
语法：
Read(buffer, offset, count)
buffer: 字节数组，从输入缓冲区中读取的字节将写入此数组。offset: 开始写入的偏移量。 count: 要读取的字节数。
示例
Dim cnt As Integer = Ports("COM2").BytesToReadIf cnt > 0 Then '缓冲区是否有数据 Dim Val(cnt - 1) As Byte Ports("COM2").Read(val,0,cnt)End If
加好友 
发短信
Post By：2015/11/22 14:28:00 [显示全部帖子]
