wince.net下串口控件
使用方法:
Dim m_cs232 As New CRs232
m_cs232.openPort() '打开串口
Dim send() As Byte = {&H1, &H2, &H3}
m_cs232.write(send) '发送
Dim i as integer = m_cs232.GetReadBuffer() '得到串口输入缓冲区当前字节数
Dim rev() As Byte
rev = m_cs232.read(3) '读取3个字节
m_cs232.clsPort() '清空串口输入缓冲区
m_cs232.closePort() '最后别忘记关了串口
备注：
此控件功能较少，能但能满足大部分需要，多次测试，运行稳定
提供源代码，可自行修改
.NET Compact Framework1.1
vb.net2003下测试通过。
