VB自动添加电脑现有的串口号
一般情况下,列出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
打开软件后,只会显示电脑现在已经存在的串口号,效果如下图所示: