vb mscomm 读 有几个 硬件串口
3个回答
2012-06-12
展开全部
怎样在vb中自动检测到可用串口号?.
遇到网友提这样的问题!
试着写了几行代码,运行后正确的列出了3个串口!
form上放2个控件:mscomm一个,combo一个。
代码如下:
Private Sub Form_Load()
On Error GoTo Handle_Error
For i = 1 To 16
MSComm1.CommPort = i
MSComm1.PortOpen = True
'If Err.Number = comPortInvalid Then
' Print "Error"
'Else
Combo1.AddItem "COM" & i
'End If
MSComm1.PortOpen = False
Next i
Handle_Error: Print "Error"
End Sub
遇到网友提这样的问题!
试着写了几行代码,运行后正确的列出了3个串口!
form上放2个控件:mscomm一个,combo一个。
代码如下:
Private Sub Form_Load()
On Error GoTo Handle_Error
For i = 1 To 16
MSComm1.CommPort = i
MSComm1.PortOpen = True
'If Err.Number = comPortInvalid Then
' Print "Error"
'Else
Combo1.AddItem "COM" & i
'End If
MSComm1.PortOpen = False
Next i
Handle_Error: Print "Error"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询