你定义的委托需要带参数才行，DataReceived事件中没有接收数据代码，下面的代码经测试可用
成都创新互联是专业的三门峡网站建设公司，三门峡接单;提供网站设计制作、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行三门峡网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Delegate Sub SetTextCallback(ByVal InputString As String)
Private Sub ShowString(ByVal comData As String)
txt_Rect.Text += comData '将收到的数据入接收文字框中
txt_Rect.SelectionStart = txt_Rect.Text.Length
txt_Rect.ScrollToCaret()
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim inData As String = SerialPort1.ReadExisting
Dim d As New SetTextCallback(AddressOf ShowString)
BeginInvoke(d, inData)
End Sub
直接发数字1。
一般可以直接发10进制的数字，当然要转换，比如16进制的21，你可以直接发33
.net中不用mscomm 而改用 searport
AxMSComm1.Input 只能一次，会把输入缓冲区的内容全都读出来并清空
如果没有产生Oncomm事件，你可以把输入经部区的大小改一下改成1就行了
