vb.net 教程 3-9 窗体编程 串口组件3 SerialPort传输的简单范例2

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

上一节中使用的是Serial组件，本节谈谈使用Serial类。

设计窗体同上一节的窗体，但是不用加入Serail 组件。

添加对IO.Ports的引用

Imports System.IO.Ports

新建一个窗体级变量：

 Dim WithEvents SerialPort1 As New SerialPort

然后的代码和上一节差不多。

打开某个串口：

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "COM1"
                SerialPort1.PortName = "COM1"
            Case "COM2"
                SerialPort1.PortName = "COM2"
            Case "COM3"
                SerialPort1.PortName = "COM3"
            Case "COM4"
                SerialPort1.PortName = "COM4"
        End Select
        SerialPort1.Encoding = System.Text.Encoding.UTF8

        Try
            If SerialPort1.IsOpen = True Then
                SerialPort1.Close()
            End If
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

数据发送：

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SerialPort1.WriteLine(TextBox1.Text)
    End Sub

数据的接收在DataReceived事件完成，注意，一开始的窗体级变量带有WithEvents关键字，vb.net自动会识别这个关键字，并允许我们在写代码时添加使用该对象的事件。

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        TextBox2.Text = SerialPort1.ReadLine
    End Sub

然后我们运行。

OK，你没有看错，确实出错了。

接收数据的代码居然出错了。

打开msdn，上面有具体的解释：

DataReceived 时将引发事件在辅助线程上从接收数据 SerialPort 对象。

看到线程两个字，大家就知道原因了：不允许跨线程访问控件。

简单的处理如下，以后讲多线程的时候再具体说。

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CheckForIllegalCrossThreadCalls = False
    End Sub

然后再运行就可以了。

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录