VB 6.0串口自动查询串口代码

ID:60076 · 发表于 2014-4-25 23:50

Public Function set_comm_pro(com_pro As Integer) AsInteger
On Error ResumeNext       '屏蔽错误
MSComm1.CommPort = com_pro  '设置COM口
MSComm1.PortOpen = True
If ErrThen                '如果打开com口错误返回 -1
   set_comm_pro = -1
Else
   set_comm_pro = com_pro  '否则返回COM口号
End If
MSComm1.PortOpen =False '关闭串口
End Function
Public Function find_comm() As Integer
Dim com_proAsInteger    '定义发现的COM口号
Dim com_findAsInteger '定义COM口上限

On Error ResumeNext          '屏蔽错误
For com_find= 0 To16    '循环发现COM口
   If set_comm_pro(com_find) <> -1Then    '返回值不等于-1 即查找到COM口
         Combo1.Text = "COM" &(set_comm_pro(com_find))  '显示COM口并且设置COM口
         find_comm = set_comm_pro(com_find)
         Exit For
   End If
Nextcom_find

End Function

帐号		自动登录	找回密码
密码			立即注册

VB 6.0串口 自动查询串口代码

VB 6.0串口自动查询串口代码