2个回答
展开全部
简单的很啊 假设你使用的通讯控件mscomm1 你那个端口选择是combo1那么代码如下
mscomm1.commprot=val(combo1.text)
‘如果需要截取字段的话 例如 你combo1.text显示的是 COM1 COM2 ....代码如下
mscomm1.commprot=Val(Right(Combo1.Text, InStrRev(Combo1.Text, "C")))'这样截取出来的结果就是 1
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
大雅新科技有限公司
2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器，VGA延长器,VGA视频延长器,DVI KVM 切换器等，优质供应商，...
点击进入详情页
本回答由大雅新科技有限公司提供
展开全部
Private Sub Combo1_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Val(Combo1.Text)
End Sub
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Val(Combo1.Text)
End Sub
追问
无效的端口号，commport这里怎么设置？
追答
CommPort 设置的是数字~
你combo列表里写的是 字母+数字
需要这样修改下
MSComm1.CommPort = Val(replace(combo1.text,"COM",""))
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
