Private Sub cmdreceive_Click()
textreceive.Text = Comm1.Input
buf = Trim(Comm1.Input)
If Len(buf) = 0 Then
textreceive.Text = Empty
Else
textreceive.Text = buf
End If
End Sub
调试,提示实时错误‘424’,请教如何修改
...全文
651打赏收藏
调试,提示实时错误‘424’,请教如何修改
Private Sub cmdreceive_Click() textreceive.Text = Comm1.Input buf = Trim(Comm1.Input) If Len(buf) = 0 Then textreceive.Text = Empty Else textreceive.Text = buf End If End Sub 调试,提示实时错误‘424’,请教如何修改