实时错误424 要求对象
我想编一个发送接收的小软件,代码如下:Private Sub CommExit_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub CommReceive_Click()
Dim buf$
buf = MSComm1.Input
If Len(buf) = 0 Then
txtReceive.Text = "Empty"
Else
txtReceive.Text = buf
End If
End Sub
Private Sub CommSend_Click()
MSComm1.Output = TxtSend.Text 单步运行到这儿,老提示:实时错误 424 要求对象
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
编译时单步运行,串口能打开,但是点击发送按钮和接收按钮时,老是提示:实时错误 424 要求对象
本人刚刚接触VB,不知道哪里出错误了,请高手给指点指点