解決方法:
使用
On
Error
Resume
Next,遇到錯誤時繼續運行
在要發送數據時,或某些必要的情況下,檢查
Mscomm1.PortOpen是否=True,若不是,可以嘗試打開壹次端口,或彈出提示信息對話框
比如:
On
Error
Resume
Next
If
Mscomm1.PortOpen
=
False
Then
MSComm1.PortOpen=True
If
MSComm1.PortOpen
=
False
Then
MsgBox
"COM1沒有成功打開!"
End
If
每次操作前都檢查壹遍端口,雖然麻煩,但是非常有效。