vb MSCOMM控件IPC与IPC通信问题

小默

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = 0
MSComm1.PortOpen = True
End Sub

Private Sub Cmdsend_Click()
MSComm1.Output = Trim(TextSend.Text)
End Sub

Private Sub TextSend_Change()
End Sub

Private Sub Timer1_Timer()

Dim buf$
buf = Trim(MSComm1.Input)
If lon(buf) <> 0 Then
TextReceive.Text = TextReceive.Text + buf
End If
End Sub


Private Sub Cmdquit_Click()
MSComm1.PortOpen = False
Unload Me
End Sub


   

运行后      红色部分出错   “8002”（无效端口）  怎么回事？

z903057128

端口1被占用了么

小默

没呀      我再调调

小默

在属性窗口找不到portopen 怎么回事