本文在VB.NET中利用异步委托调用的方法，将串口的自收自发放进一个单独线程，具体实现如下：

（1）声明代理（委托）

   Private Delegate Sub dele_1()

（2）定义自收自发函数

Private Sub Communicate()

    SerialPort1.Open()

    SerialPort1.WriteLine(txtSend.Text.Trim())

    System.Threading.Thread.Sleep(100)

    txtShow.Text = SerialPort1.ReadExisting()

    SerialPort1.Close()

End Sub

（3）定义异步回调函数

Private Sub result(ByVal ar As IAsyncResult)

    '获得委托对象的引用

    Dim deleg As dele_1 = DirectCast(ar.AsyncState, dele_1)

    deleg.EndInvoke(ar)

End Sub

（4）点击按钮Button时，开始异步掉用；在BeginInvoke的第一个参数中获得异步回调函数的地址，线程结束后自动执行异步回调函数

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim dele As New dele_1(AddressOf Communicate)

    '开始异步调用

    Dim ar As IAsyncResult

    ar = dele.BeginInvoke(New AsyncCallback(AddressOf result), dele)

End Sub

（5）窗体Load事件

    '下面这句话很重要，使得异步出来的线程可以访问主线程创建的控件

    Control.CheckForIllegalCrossThreadCalls = False

    '串口初始化

    SerialPort1.PortName = "COM1"

    SerialPort1.BaudRate = 9600

    SerialPort1.StopBits = IO.Ports.StopBits.One

    SerialPort1.Parity = IO.Ports.Parity.None

    SerialPort1.ReadTimeout = 3000

    SerialPort1.DataBits = 8

    txtSend.Text = "11111111"

（6）调试运行

实现了串口的自收自发。

本文还有很多不足之处，请大家多多指点。