不胜感谢!!

解决方案 »

  1.   

    Option ExplicitPrivate Sub Command1_Click()
        MSComm1.Output = Trim(txtSend.Text)
    End SubPrivate Sub Command2_Click()
        Dim buf$
        buf = Trim(MSComm1.Input)
        If Len(buf) = 0 Then
            txtReceive.Text = "Empty"
        Else
            txtReceive.Text = buf
        End If
    End SubPrivate Sub Command3_Click()
        MSComm1.PortOpen = False
        End
    End SubPrivate Sub Form_Load()
        MSComm1.PortOpen = True
    End Sub
    就這個是回路測試哦,別看它少,但是是可以用的
      

  2.   

    并口可以找一下对端口操作的DLL.