阿琦的枚举串口
Local oCom as Object
oCom = thisform.mscomm1
For i=1 To 10
Try
oCom._CommPort =i
oCom.portOpen=.t.
oCom.portOpen =.f.
Thisform.combo1.AddItem('COM'+Alltrim(Str(i)))
Catch
EndTry
EndFo
- 留言列表
- 发表留言
-
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
Local oCom as Object
oCom = thisform.mscomm1
For i=1 To 10
Try
oCom._CommPort =i
oCom.portOpen=.t.
oCom.portOpen =.f.
Thisform.combo1.AddItem('COM'+Alltrim(Str(i)))
Catch
EndTry
EndFo