标题: VB 6.0串口 自动查询串口代码 [打印本页] 作者: liumei 时间: 2014-4-25 23:50 标题: VB 6.0串口 自动查询串口代码 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