学习VB.NET时，你可能会遇到VB.NET串口通讯问题，这里将介绍VB.NET串口通讯问题的解决方法，在这里拿出来和大家分享一下。VB.NET串口通讯支持总是让人觉得有所不足，在使用VB6的MsComm32.ocx时，很多人都会在VB.NET的开发中觉得很困扰。这里讲述的VB.NET串口通讯类使用native代码，并且它是通API调用实现的，你会发现VB.NET串口通讯就是这么简单。

在说明如何使用这个类前，需要说明的是，本类只是一个VB.NET串口通讯演示，你可能需要根据你的情况修改后使用。另外，本类的目的是通过例子教会你在无需ocx控件和第三方组件的支持下用VB.NET开发串口通讯程序，所有并没有完善的异常错误处理。

1.初始化并打开串口

创建一个CRs232类的实例，并在调用Open方法前设置好串口通讯参数。

Dim moRS232 as New Rs232()  
With moRs232  
.Port = 1'//Uses COM1  
.BaudRate = 2400 
'//波特率 2400  
.DataBit = 8   
'//8 data bits  
.StopBit = Rs232.DataStopBit.StopBit_1  
'//停止位 1  
.Parity = Rs232.DataParity.Parity_None  
'//无奇偶校验  
.Timeout = 500   
'//超时时间500 ms  
End With  
 
'// 初始化并打开串口  
moRS232.Open ()  
'// 串口打开后，你可以随意地控制DTR/RTS  
moRS232.Dtr = True 
moRS232.Rts = True 

2.发送数据

本类为Rx和Tx准备了两个缓冲区(buffer)，发送数据时，只需要设置TxData属性为你需要发送的数据，然后调用Tx方法就可以了。

moRS232.TxData = txtTx.Text  
moRS232.Tx() 

3.接收数据

先调用Rx方法（参数为您需要从串口读取的字节数），然后读取RxData属性。

moRS232.Rx(10)  
'// 从串口通讯缓冲区里读取10字节  
Dim sRead as String=moRs232.RxData 

需要注意的是，当本类无法用串口读取到所需的字节数，程序线程在超时异常发生前是锁死的，超时时间通过Timout属性设置。

【编辑推荐】

1. 是否了解VB.NET Derived Class
2. 迅速掌握VB.NET Shared变量技能
3. 事例讲解VB.NET Constructor函式
4. 剖析VB.NET写Object Oriented编程
5. 全面讲解VB.NET调用Web Service