怎样在vb中自动检测到可用串口号的具体程序代码

j = 0

专业领域包括成都网站制作、成都网站设计、商城网站建设、微信营销、系统平台开发， 与其他网站设计及系统开发公司不同，创新互联公司的整合解决方案结合了帮做网络品牌建设经验和互联网整合营销的理念，并将策略和执行紧密结合，为客户提供全网互联网整合方案。

For i = 1 To 16 Step 1

If comISP.PortOpen = True Then '先关闭串口

comISP.PortOpen = False

End If

comISP.CommPort = i

On Error Resume Next '说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

comISP.PortOpen = True

If Err.Number 8002 Then '无效的串口号。这样可以检测到虚拟串口，如果用Err.Number = 0的话检测不到虚拟串口

If j = 0 Then

j = i

End If

cboPort.AddItem "COM" i '生成串口选择列表

End If

comISP.PortOpen = False

Next i

If j = 1 Then

cboPort.Text = "COM" j '自动打开可用的最小串口号

comISP.CommPort = j

comISP.PortOpen = True

cmdOpenCom.Caption = "关闭串口"

shpCOM.FillColor = vbGreen

If Err.Number = 8005 Then '串口已打开,vbExclamation '

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom.Caption = "打开串口"

shpCOM.FillColor = vbRed

End If

End If

VB点虐 串口通信数据处理问题，大家帮帮忙

上述网址的问题与本题一样，提问者：jlfly7671，与你是一个人吧？

用MSCOMM控件实现

定义数组a=mscomm1.input

因为程序需要两个窗体，mscomm配置连接等代码写在frm1中

在frm2中写入操作返回数据的代码总是报错，所以我想将a写在模块中调用，不知道能否解决？若可以的话 模块中a该怎么写？

刚才试过不能用a=frm1.mscomm1.input 定义

分不多，心意尽到 大家帮帮忙

另外像这样的情况frm2中需要拖一个MSCOMM控件吗？

vb点虐 读取扫描枪USB接口数据的实例

USB比较难抓数据，建议是USB模拟串口，或者直接就是串口，这样数据比较好抓。

USB上传模式是鼠标光标在哪数据就上传在哪，所以你抓USB的数据的很难！

X猫-思刊办公专营店

文章名称：vb点虐 串口扫描 vbnet串口控件
路径分享：http://azwzsj.com/article/ddioesp.html