Question

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

Answer 1

MSComm1.CommPort = 3 '这里搞一个你的电脑上没有的串口号,例如我的电脑没有串口3 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的控件，然后在程序中就可以使用上面的代码了。这段代码演示了一个无效串口号的运行效果。 你可以将上面的代码改成自己所需要的代码，或者做得更通用一些~~~~~~例如，设置一个输入参数， 以及返回结果。 PrivateFunction Test_COM1( n As Integer) As Integer On Error GoTo Comm_Error MSComm1.CommPort =n '这里接收传入的串口号 MSComm1.PortOpen = True MSComm1.PortOpen = False Test_COM1=0 '如果操作成功，则说明当前串口可用，返回0，表示串口可用Exit SubComm_Error: MsgBox "无效的串口号！" & Chr(13) & Chr(10) & "错误代码：" & comPortInvalid & Chr(13) & Chr(10) & "错误原因：你的人品有问题。", vbOKOnly + vbCritical, "串口错误"ElseMsgBox "其它错误。错误号:" & Err.Number, vbOkOnly + vbCritical, "串口错误"End IfTest_COM1=Err.Number '如果出错，则返回错误代码Exit SubResume NextEnd Sub