Question

使用VB寻找串口出错 代码如下，可是老是出错，有高人帮忙解决一下啊 谢谢

Private Sub Form_Load()
On Error GoTo tag1
'寻找串口
For i = 1 To 16
MSComm1.CommPort = i

If MSComm1.PortOpen = True Then '如果原来就是打开的串口，查询后要保持端口原样
Combo1.AddItem "COM" & i '保持端口原样以保持其他设备正常运作
k = k + 1
Else
MSComm1.PortOpen = True
'如果上面的语句错误则不执行下面的代码而继续循环
Combo1.AddItem "COM" & i
k = k + 1

End If

tag1:

Next i

If k = 0 Then
MsgBox "未发现有任何串口，请核查！", vbCritical, "ERROR MESSAGE"
MsgBox "安装好串口后请再次搜索", vbInformation, "INFORMATION"
Else
MsgBox "共发现" & k & "个串口", vbInformation, "FIND COM"
End If
'串口寻找结束
END SUB
有两个问题
1.如果一个串口被另外一个程序所打开，那么上述代码找不到被别人打开的程序。例如COM1被一个程序打开，那么上述代码就找不到COM1
2.提示错误不能打开一个已经打开的串口
我没学过C，大学时只学了VB

Answer 1

MSComm1.PortOpen = True
If Err.Number = comPortInvalid Then
MSComm1.PortOpen = False
goto tag1
Else
Combo1.AddItem "COM" & i
k=k+1
End If

Answer 2

能详细说一下弹出的是什么错误吗?
思路上没有什么大问题, 另外你确定你的端口有16个这么多?

我用C#做这种程序的时候 通常先建立COM列表, 然后再循环COM口检测的.