VB自动添加电脑现有的串口号

  • 学习3408次

一般情况下,列出16个串口号,供用户自己选择,代码如下:

'添加通信端口号
For i = 1 To 16
Combo1.AddItem "COM" & i
Next i
Combo1.ListIndex = 0

效果如下图所示:

串口列表

需要用哪个串口,就选哪个。

如果需要只列出电脑现在存在的串口号,可以用下面程序解决:

 Dim i, j As Integer
 j = 0
 For i = 1 To 16
 MSComm1.CommPort = i
 On Error Resume Next
 MSComm1.PortOpen = True
 If Err.Number = 0 Then
 j = j + 1
 Combo1.AddItem "COM" & CStr(i)
 End If
 MSComm1.PortOpen = False
 Next i

 Combo1.ListIndex = 0

打开软件后,只会显示电脑现在已经存在的串口号,效果如下图所示:

列出只存在的串口号

发表评论