在VB中使用MSCOmm控件，如何判斷串口號無效？

MSComm1.PortOpen = TrueMSComm1.PortOpen = FalseExit SubComm_Error:If (Err.Number = comPortInvalid) ThenMsgBox "無效的串口號！" & Chr(13) & Chr(10) & "錯誤代碼：" & comPortInvalid & Chr(13) & Chr(10) & "錯誤原因：妳的人品有問題。", vbOKOnly + vbCritical, "串口錯誤"ElseMsgBox "其它錯誤。錯誤號:" & Err.Number, vbOkOnly + vbCritical, "串口錯誤"End IfExit SubResume NextEnd Sub在窗體上放壹個MSComm1的控件，然後在程序中就可以使用上面的代碼了。這段代碼演示了壹個無效串口號的運行效果。妳可以將上面的代碼改成自己所需要的代碼，或者做得更通用壹些~~~~~~例如，設置壹個輸入參數，以及返回結果。