作者auk109 (大邪)
看板Visual_Basic
标题Re: [VB6 ] 自动扫描 comport 的程式
时间Fri Nov 16 11:48:49 2007
自问自答一下
取之於网路，用之於网路，小弟在别的地方找到了类似的 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
1F：→ auk109:就可以执行看看成功後 , text有没有秀出字 12/28 13:31
2F：→ auk109:回水球按到推文@@.. 12/28 13:33