端口的检测问题

用MS comm控件,比如定义它为comm1
comm1.commport=1
if comm1.openport then
   msgbox "端口1已经被占用!"
end if
个人观点,仅供参考!

解决方案 »

  1.   

    对啊。用mscomm控件。
    付值端口然后检测openport 就好了啊
      

  2.   

    那只是判断端口被用已否，并没有自动选择另一端口啊？
    在MSComm1.CommPort预先定为“1”，执行以下代码：
    Private Sub Form_Load()
    If MSComm1.PortOpen Then
    MSComm1.CommPort = 2
    MSComm1.PortOpen = True
    Else
    MSComm1.PortOpen = True
    End If
    如果COM1口已经打开，程序报错！
    什么原因？？？？？？？？
      

  3.   

    用ON ERROR GOTO来解决应该也可以啊！！