標題: 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 '定義發(fā)現(xiàn)的COM口號
Dim com_findAsInteger '定義COM口上限
On Error ResumeNext '屏蔽錯誤
For com_find= 0 To16 '循環(huán)發(fā)現(xiàn)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