For Each sp As String In Ports.PortNames if sp = cob1.Text thenIf Ports(cob1.Text).IsOpen=False Then
try
With Ports(cob1.Text)
.Close()
.Encoding=Encoding.ASCII
.BaudRate = cob2.Text
.DataBits = cob3.Text
.Parity = [Enum].Parse(Gettype(Parity), cob5.Text ) '奇效验
.StopBits = [Enum].Parse(Gettype(StopBits), cob4.Text ) '停止位 1
.Handshake = Handshake.None
'.ReadBufferSize() = 8192
'.WriteBufferSize() = 4096
.Open
End With
Catch ex As Exception
MessageBox.show("通讯端口已经被使用,请停用别的软件使用这个端口!","提示",MessageBoxButtons.OK)
Return
End Try
return
end if
Next
加好友 
发短信
Post By：2021/8/6 14:33:00 [显示全部帖子]
