论坛首页 › 通信 › vb MSCOMM控件IPC与IPC通信问题

小默 发表于 2012-8-12 17:06:38

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 发表于 2012-8-12 17:10:08

端口1被占用了么

小默 发表于 2012-8-13 15:29:50

没呀      我再调调

小默 发表于 2012-8-13 15:32:27

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

查看完整版本: vb MSCOMM控件IPC与IPC通信问题