台灣最大程式設計社群網站
線上人數
1354
 
會員總數:246274
討論主題:189809
歡迎您免費加入會員
討論區列表 >> VB6 >> 請問如何自動偵測 comport
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請問如何自動偵測 comport
價值 : 10 QP  點閱數:2427 回應數:0
樓主

詩屋
門外漢
0 4
134 21
發送站內信

小弟現在 在研究rs232 有看到別人分享的部分但是 卻沒有辦法有動作
主要是 可以在程式開啟時 自動偵測 COM 隨時都可以


Private Sub SearchPort(ByVal StartPortNumber As Integer, _
ByVal ReallyPortNumber As Integer, _
ByVal EndPortNumber As Integer)

On Error GoTo Err_SearchPort:
MSComm1.CommPort = StartPortNumber
MSComm1.PortOpen = True
Err_SearchPort:
If Err.Number = 0 Then
Combo1.AddItem "COM" & StartPortNumber
'Combo1.AddItem StartPortNumber
Combo1.ItemData(ReallyPortNumber) = StartPortNumber
MSComm1.PortOpen = False
ReallyPortNumber = ReallyPortNumber + 1
End If
'當尋找 Port 大於 EndPortNumber 時離開此函式
If StartPortNumber >= EndPortNumber Then Exit Sub

'遞回
SearchPort StartPortNumber + 1, ReallyPortNumber, EndPortNumber

End Sub

希望有高手能指點

本篇文章發表於2010-11-07 11:31
目前尚無任何回覆
   

回覆
如要回應,請先登入.