版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
回忆上一节的代码，其中“发”按钮对应的代码：
SerialPort1.WriteLine(TextBox1.Text)
修改接收部分的代码如下：
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim btr() As Byte
ReDim btr(SerialPort1.BytesToRead)
SerialPort1.Read(btr, 0, SerialPort1.BytesToRead)
Dim strRead As String = System.Text.Encoding.UTF8.GetString(btr)
TextBox2.Text = strRead
End Sub
然后查看运行情况：
可以看到发送的是"xxxxx"，但是，多了个换行。
在如下位置插入一个断点：
运行后查看btr包含的内容：
可以看到多了个字节：10，chr(10)也就是换行符。因此推测WriteLine()会自动在发送的字符串后面加个chr(10)，当然，在使用ReadLine()的时候把chr(10)省略掉了。
那么对应Read()的写入字节方法，可以使用Write()方法来发送字节数组：
Dim sendByte() As Byte
sendByte = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
SerialPort1.Write(sendByte, 0, sendByte.Count)
或者使用Write()方法发送字符串：
SerialPort1.Write(TextBox1.Text)
但请提前设置串口类的编码：SerialPort1.Encoding = System.Text.Encoding.UTF8
另外，补充一下：可以使用BytesToWrite和BytesToRead属性来获得缓冲区中需要发送和需要读取的字节数
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show(SerialPort1.BytesToWrite)
MessageBox.Show(SerialPort1.BytesToRead)
End Sub
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看 vb.net教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
