Question

在VB中使用MSCOmm控件，如何判断串口号无效？

Answer 1

MSComm1.PortOpen = True MSComm1.PortOpen = FalseExit SubComm_Error: If (Err.Number = comPortInvalid) Then MsgBox "无效的串口号！" & Chr(13) & Chr(10) & "错误代码：" & comPortInvalid & Chr(13) & Chr(10) & "错误原因：你的人品有问题。", vbOKOnly + vbCritical, "串口错误"ElseMsgBox "其它错误。错误号:" & Err.Number, vbOkOnly + vbCritical, "串口错误"End IfExit SubResume NextEnd Sub在窗体上放一个MSComm1的控件，然后在程序中就可以使用上面的代码了。这段代码演示了一个无效串口号的运行效果。 你可以将上面的代码改成自己所需要的代码，或者做得更通用一些~~~~~~例如，设置一个输入参数， 以及返回结果。