串口打开出错

Question

我用下面的代码打开COM1，可是说串口已打开，计算机重起，又可以打开
但打开以后，关闭程序后，再次打开串口，又说串口已打开 
MSComm1.CommPort = 1
   MSComm1.PortOpen = True
   Command1.Caption = "关闭串口"
   Combo1.Enabled = False
   Command2.Enabled = True
还有如果，MSComm1.CommPort = 3
会说是无效端口，怎么回事
能不能帮我分析一下
我等着交差

Answer 1

很可能是你的程序退出后没有及时关闭串口造成的。在Unload事件中加入如下代码：If MSComm1.PortOpen Then MSComm1.PortOpen=False

Answer 2

if MScomm1.portopen = false then
      mscomm1.portopen = true 
   else
      mscomm1.portopen = false
   end if'如果串口没打开，打开串口；反之关闭串口

Answer 3

那是因为你没有关闭串口。记住，当你退出窗体或程序时，应当关闭串口。
MSComm1.PortOpen = False1  If MSComm1.PortOpen Then MSComm1.PortOpen = False
   MSComm1.CommPort = 1
   MSComm1.PortOpen = True2 如果，MSComm1.CommPort = 3
会说是无效端口，怎么回事Com3 不存在