Question

VB中如何通过组合框来选择串口通信端口号

无效的端口号，commport这里怎么设置？





Answer 1

简单的很啊 假设你使用的通讯控件mscomm1 你那个端口选择是combo1那么代码如下

 mscomm1.commprot=val(combo1.text)
‘如果需要截取字段的话 例如 你combo1.text显示的是 COM1 COM2 ....代码如下

mscomm1.commprot=Val(Right(Combo1.Text, InStrRev(Combo1.Text, "C")))'这样截取出来的结果就是 1    

Answer 2

Private Sub Combo1_Click()
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",""))