如何屏蔽mscomm控件的Oncomm事件弹出的实时错误窗口？

Question

当有通信错误发生，比如打开一个已经打开的的端口，会弹出“实时错误8005，端口已经打开”的窗口，我想在程序中实现当有类似错误时，屏蔽这个弹出窗口，转而让它执行我自己编辑的程序，应该怎么实现？
比如：   
    Select Case MSComm1.CommEvent        Case 8005
            MsgBox "端口已打开！"    End Select

Answer 1

楼主看看这个：
http://download.csdn.net/source/1498637
http://download.csdn.net/source/1498644

Answer 2

不是问题难，是你问的大家不知道怎么回答你。依我看来你的问题是当执行MSComm1.PortOpen＝True时，如果端口已经打开了，那么就会出现你所说的错误。那你就要避免这样的情况出现啊，要避免也很简单只需如此即可：
If MSComm1.PortOpen=False Then MSComm1.PortOpen=True

Answer 3

Sub ...
on error goto ABC
...
exit sub
ABC:
 if Err.Number=xxx then
  resume next
 end if
 msgbox Cstr(Err.Number)+" "+Err.Description
End Sub

Answer 4

on error 出错处理，你不弹提示就行了