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
