大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
要防止出现报错,先判断一下端口是否已经打开。如果打开则关闭 If MSComm1.PortOpen Then MSComm1.PortOpen = FalseEnd If 或者,加一个错误处理 On Error Resume Next '打开错误捕获MSComm1.PortOpen = FalseOn Error Goto 0 '关闭错误捕获
10年积累的成都做网站、成都网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有贡井免费网站建设让你可以放心的选择与我们合作。
对同一个串口的操作应该放在单个线程里,你的程序应该将串口接收和串口关闭的执行都放在一个线程里进行,这样在接收数据的间隙就可以正常执行close动作。而不会造成两个线程都在操作串口。
Private Sub Command5_Click()
If MSComm1.PortOpen = False Then '判断串口是否打开
Command5.Caption = "打开串口" '=False则说明,串口是关闭的,则显示"打开串口"
Else
Command5.Caption = "关闭串口" '否则,则说明,串口是打开的,则显示"关闭串口"
End If
End Sub
这样试试看!