欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 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

End Function

歡迎光臨 (http://www.raoushi.com/bbs/)