vb6串口有关问题

2013-01-25

vb6串口问题求教form界面里串口发送接收数据，关闭form界面后还在接受数据，再打开form界面报串口已打开错误

vb6串口问题
求教
form界面里串口发送接收数据，关闭form界面后还在接受数据，再打开form界面报串口已打开错误，有什么好的方法可以避免吗？望各位指教
[解决办法]
Dim bClose As Boolean
-------------------------------------
while
DoEvents()
If bClose Then
    MSComm1.PortOpen = False
    Exit While
End If
......
wend
-------------------------------------

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    bClose = True
End Sub

[解决办法]

引用:

我现在就是这样子写的，但是偶尔还是报错，不过报错的几率大大减小了

说明你打开时，还会偶然遇到没有完全 Close 的情况。

打开时，也查询一下：


Do Until MSComm1.PortOpen = False
    DoEvents()
Loop
MSComm1.PortOpen = True

热点排行

VB

vb6串口有关问题