主题：[讨论]请教关于串口通信控件的问题
hn04
[专家分：0] 发布于 2009-04-08 15:08:00
我想实现像串口调试助手那样的能够列出所在电脑上的所有可用的串口号，不知道如何实现？
回复列表 （共1个回复）
沙发
hn04 [专家分：0] 发布于 2009-04-08 15:33:00
在网上找到了下面的代码，可以识别，但是有一个问题，那就是如果存在的这个串口已经被打开使用，那就识别不到了，不知道应该怎么解决？
Dim a As Integer
Private Sub Form_Load()
Me.AutoRedraw = True
On Error GoTo uerror
For a = 1 To 16 'WINXP下可搜索到16
MSComm1.CommPort = a
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
Print "可用Com号= "; a
MSComm1.PortOpen = False
Else
End If
Next
Exit Sub
uerror:
Print "出错或占用Com号= "; a
Resume Next
End Sub
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — [讨论]请教关于串口通信控件的问题