怎么自动扫描串口

yanlove92 发布于 2012-11-06 15:14， 520 次点击

求教，vb串口通信怎么自动扫描串口号

4 回复

邵帅2012-11-07 16:27

执行下面的过程即可，之前要添加一个mscomm控件、一个下拉列表、一个按钮，不足的是要假设一个比较大的值6.
Private Sub Command1_Click()
On Error Resume Next
For i = 1 To 6 '基本上都在6以下，如果多可以修改
= i
Err.Clear '错误清除clear应该在这里
MSComm1.PortOpen = True
If Err.Number = 0 Then
List1.AddItem "com" & i '用list1控件记录可用的com
MSComm1.PortOpen = False
End If
Next

yanlove922012-11-08 11:31

回复 2楼邵帅

额为什么我每次运行之后都会多个串口号啊不能清空吗？？？

Artless2012-11-08 13:38

list1.Clear

邵帅2012-11-15 09:42

回复 3楼 yanlove92

楼下已经帮我解决了，忘记初始化操作了……