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

微信公开课小程序热门讨论「怎样在vb中自动检测到可用串口号的具体程序代码」最新回复-j=0Fori=1To16Step1IfcomISP.PortOpen=TrueThen先关闭串口comISP.PortOpen=FalseEndIfcomISP.CommPort=iOnErrorResumeNext说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用OnErrorGoTo。comISP.PortOpen=TrueIfErr.Number8002Then无效的串口号。这样可以检测到虚拟串口，如果用Err.Number=0的话检测不到虚拟串口Ifj=0Thenj=iEndIfcboPort.AddItemCOM&i生成串口选择列表EndIfcomISP.PortOpen=FalseNextiIfj=1ThencboPort.Text=COM&j自动打开可用的最小串口号comISP.CommPort=jcomISP.PortOpen=TruecmdOpenCom.Caption=关闭串口shpCOM.FillColor=vbGreenIfErr.Number=8005Then串口已打开,vbExclamationcomISP.PortOpen=FalsecboPort.Text=cmdOpenCom.Caption=打开串口shpCOM.FillColor=vbRedEndIfEndIf
直接给你代码不一定能调试成功，跟你说说思路，就是用com控件挨个端口去试。本回答被提问者采纳 更多有关「怎样在vb中自动检测到可用串口号的具体程序代码」的疑问请扫码关注微信公开课+小程序！了解更多