VB 串口修改问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:16:01
怎么设计一个窗口来修改 form1上的串口号，我自己弄老出错，用的是Option控件 6个 分别是C0M1-C0M6 只要点击任何一个 from1上mscomm的commport就能改变，请问代码怎么写啊？？急！！！！
这样写，如果当前串口被占用或者无效串口，这样就错误了，如果设置 错误陷阱避开也不行。

Option Explicit
Dim portNum

Private Sub Option1_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
portNum = 1
MSComm1.CommPort = portNum
openPort
End Sub

Private Sub Option2_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
portNum = 2
MSComm1.CommPort = portNum
openPort
End Sub

Private Sub Option3_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
portNum = 3
MSComm1.CommPort = portNum
openPort
End Sub

Private Sub Option4_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
portNum = 4
MSComm1.CommPort = portNum
openPort
End Sub

Private Sub Option5_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
portNum = 5
MSComm1.CommPort = portNum
openPort
En