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

当前位置:

首页 > 编程开发 > vb >

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 教程目录

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/85014393

栏目列表

首页 > 编程开发 > vb >

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

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