mscomm超难问题

[舍南舍北]

我在我的计算机－属性－－硬件──设备管理员里查看com1时，除了com1外，com2──com8都在使用
查看com2时，除了它自己com1－com8都在使用，使用超级终端com1不能打开，我想把com1—com8都关闭
Dim i As Integer
For i = 1 To 8
With MSComm1
If .PortOpen = True Then '都显示false
.PortOpen = False
　　　　　　　else
.PortOpen = True
End If
End With
Next i

[舍南舍北]

Dim i As Integer
For i = 1 To 8
With MSComm1
If .PortOpen = True Then
.PortOpen = False
Else
.PortOpen = False
End If
End With
Next i
我就是關不掉

[舍南舍北]

Dim i As Integer
For i = 1 To 8
With MSComm1
If .PortOpen = True Then
.PortOpen = False
End If
End With
Next i

[舍南舍北]

Dim i As Integer
For i = 1 To 8
With MSComm1
.CommPort = i　'com口
If .PortOpen = True Then
.PortOpen = False
End If
End With
Next i
不好意思沒有寫com口

[YaDa]

'MSComm1(0)-MSComm1(7)，对应com1－com8。一个端口对应一个MSComm控件。
Dim i As Integer
For i = 0 To 7
MSComm1(i).PortOpen = False
Next i

[舍南舍北]

不行啊，
明明是MSComm1(i).PortOpen = False，但是 MSComm1(i).PortOpen =true是就顯示端口已經打開了

[YaDa]

你的问题可能是：端口重叠了，即：比如端口1与端口2、3、4实际上是同一个端口。实际的端口可能只有2个。

[舍南舍北]

哎呀，MSComm1(i).PortOpen = False，但是 MSComm1(i).PortOpen =false　設備不能打開
我們電腦是用來測試的，都出現幾次了，每次只有重裝系統才解決