VB显示可用串口程序

概述Private Sub Form_Load() On Error GoTo errline '如果出错，进入错误处理程序 Dim i As Integer '定义可访问的串口总数 Dim Counter As Integer

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控件

点此下载工程

总结

以上是内存溢出为你收集整理的VB显示可用串口程序全部内容，希望文章能够帮你解决VB显示可用串口程序所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。