→ auk109:就可以執行看看成功後 , text有沒有秀出字 12/28 13:31
→ auk109:回水球按到推文@@.. 12/28 13:33
自問自答一下
取之於網路，用之於網路，小弟在別的地方找到了類似的 Sub
分享給大家^^..
原文： http://wukm.blogspot.com/2007/05/com-port.html
引用項目：
先到 "專案" → "設定使用元件" → 勾選 "Microsoft Comm Control 6.0"。
物件名稱：
將 MSComm1 命名成 mc
函式程式：
Private Sub SearchPort(ByVal StartPortNumber As Integer, _
ByVal ReallyPortNumber As Integer, _
ByVal EndPortNumber As Integer)
On Error GoTo Err_SearchPort:
mc.CommPort = StartPortNumber
mc.PortOpen = True
Err_SearchPort:
'判斷是否發生錯誤
If Err.Number = 0 Then
'若沒發生錯誤，則 Port 開啟正常 ( 代表 RS-232 Port 可用 )
cboPort.AddItem "COM" & StartPortNumber
cboPort.ItemData(ReallyPortNumber) = StartPortNumber
'開啟成功後，要記得關掉....
mc.PortOpen = False
ReallyPortNumber = ReallyPortNumber + 1
End If
'當尋找 Port 大於 EndPortNumber 時離開此函式
If StartPortNumber >= EndPortNumber Then Exit Sub
'遞回
SearchPort StartPortNumber + 1, ReallyPortNumber, EndPortNumber
End Sub
使用方式：
SearchPort 1, 0, 10 '尋找 COM Port 1~10
--
/\ \ /\__\ /\__\ 科 來
/::\ \ /:/ _/_ /:/ _/_ 技 自
/::\:\__\ /:/_/\__\ /::-"\__\ 始 於 墮
\/\::/ / \:\/:/ / \;:;-",-" 終 性
/:/ / \::/ / |:| | ！
\/__/ \/__/ \|__|
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.112.235