请教VB.NET如何编写与串口通信的程序？

[alikwok]

如题（新手，望高手们能给出详细的代码，谢谢）

[banni2003]

建议楼主参照一下Visual Basic串口通信程序设计
http://it.sohu.com/2004/03/12/04/article219410424.shtml

[alikwok]

有用API的吗？

另外，我想检索当前系统中已连接设备的端口（串口）信息，可以实现吗？？

[Ninputer]

有现成控件，.NET版的，就在Visual Basic.net Resource Kit里

[earlsen]

Private Sub InitRecDataCtl(ByVal intCom As Integer, ByVal intTimeOut As Integer, ByVal intLength As Integer, ByVal intStop As Integer, ByVal intCheck As Integer, ByVal intSpeed As Integer, ByVal strPath As String, ByVal strSendPath As String)
If intCom = -1 Then
intCom = 0
End If
If intSpeed = -1 Then
intSpeed = 4
End If
RecDataCtl.setcom(intCom) '串口
RecDataCtl.setreqtime(intTimeOut) '10 '响应终止时间
RecDataCtl.setlength(intLength) '0 --8Bit 1 -- 7Bit '数据长度8
RecDataCtl.setparity(intCheck) '校验位 0 None parity,1 Odd parity ,2 Even parity
RecDataCtl.setsbit(intStop) '停止位 1
RecDataCtl.setspeed(intSpeed) '传输速率 0--1200bps 1--2400bps 2--4800bps 3--9600bps 4--19200bps 5--38400bps 6--57600bps 7--115200bps

RecDataCtl.setpath(strPath) '扫描文档路径

End Sub

[alikwok]

To Ninputer(装配脑袋)
能说举出具体位置吗？

earlsen(earlsen)
RecDataCtl?? 是个什么东东？（我很菜，别笑我*_*)

[Ninputer]

Visual Basic.net Resource Kit，在msdn.microsoft.com/vbasic下载

[njx]

买这期的MSDN开发精选会送Visual Basic.net Resource Kit的：）

[CMIC]

Ms访问串口的例子
http://msdn.microsoft.com/msdnmag/issues/02/10/NETSerialComm/default.aspx

[alikwok]

谢谢各位的帮助，现问题已解决^o^