2024年4月19日发(作者：)

代码如下：

Imports

Public Class Form1

Dim fRI, fDCD, fDSR, fCTS As Boolean '设定旗标

'**************************************************************

'表单的Load事件中先将所有的通讯埠先列出来

'将通讯埠排序，并将第一个通讯埠设为预设值

'**************************************************************

Private Sub Form1_Load(ByVal sender As , ByVal e As rgs) Handles

For Each sp As String In tNames()

(sp)

Next

= True '排序

edIndex = 0 '第一个是预设选项

=

=

=

=

=

=

End Sub

'**************************************************************

'『开启通讯埠』按钮的Click事件

'此事件将设定通讯埠参数，并开启通讯埠

'**************************************************************

Private Sub btnPortOpen_Click(ByVal sender As , ByVal e As rgs) Handles

Dim mPortName As String

mPortName = ng '欲开启的通讯埠

me = mPortName

If Not Then '尚未开启

() '开启通讯埠

Else

MsgBox("~~通讯埠开启错误(通讯埠已被开启)~~", al Or el)

End

End If

End Sub

'**************************************************************

'『关闭通讯埠』按钮的Click事件

'以Cｌose方法关闭通讯端口，并释放对象所占用的资源

'**************************************************************

Private Sub btnClose_Click(ByVal sender As , ByVal e As rgs) Handles

If RS232 Is Nothing OrElse Not Then '尚未开启

MsgBox("~~通讯埠尚未开启~~", al Or el)

Exit Sub

End If

()

RS232 = Nothing '释放资源

End Sub

'**************************************************************

'『结束程序』按钮 的Click事件