VB显示可用串口程序
发布时间:2020-12-17 08:16:41 所属栏目:百科 来源:网络整理
导读:Private Sub Form_Load() On Error GoTo errline '如果出错,进入错误处理程序 Dim i As Integer '定义可访问的串口总数 Dim Counter As Integer '用于记录经检查可以使用的串口号 Counter = 0 '计数器清零 For i = 1 To 16 '循环检查可能存在的16个串口 MSC
Private Sub Form_Load()
On Error GoTo errline '如果出错,进入错误处理程序
Dim i As Integer '定义可访问的串口总数
Dim Counter As Integer '用于记录经检查可以使用的串口号
Counter = 0 '计数器清零
For i = 1 To 16 '循环检查可能存在的16个串口
MSComm1.CommPort = i '依次打开每个串口
MSComm1.PortOpen = True '打开串口
If MSComm1.PortOpen = True Then '如果打开成功,说明该串口可用
MSComm1.PortOpen = False '检查完毕,关闭串口
Combo1.AddItem "COM" + CStr(i),Counter '将可用串口增加到组合框
Counter = Counter + 1 '计数器加1
End If
Next i
Combo1.ListIndex = 0 '将第一个可用串口设为默认值
Exit Sub
errline:
If Err.Number = 8005 Then '若有的串口已被其他程序打开,也应该将其加入组合框内
Combo1.AddItem "COM" + CStr(i),Counter '将可用串口增加到组合框内
Counter = Counter + 1 '计数器加1
End If
Resume Next '回到出错入口处,继续执行巡检串口程序
End Sub
程序中加入Mscomm控件,加入ComboBox控件 点此下载工程 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |