VB 端口已打开

Question

VB:
一开始我的程序走的很正常，但是到了打印机这里时就会说我“端口已打开”（我查过自己的代码和电脑之前都没有打开过任何端口）
然后我在端口打开命令前面加了，如下命令：
If MSComm1.PortOpen=False Then
   MSComm1.PortOpen=True
End If希望能够避免“端口已打开”的问题，但是却又会遇到报错又说我端口没有打开。不知道有没有大侠可以帮助我解决这个问题啊！

Answer 1

弄个全局变量，端口打开了就设为True，关了就设为False，每次使用前 检查一下变量就行了

Answer 2

同意！
用下面这个测试一下IF执行了没有：
If MSComm1.PortOpen=False Then
  MSComm1.PortOpen=True 
  debug.print MSComm1.PortOpen'看这个值是多少 
End If

Answer 3

同意！
用下面这个测试一下IF执行了没有：
If MSComm1.PortOpen=False Then
  MSComm1.PortOpen=True
  debug.print MSComm1.PortOpen   
End If