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’,请教如何修改
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’,请教如何修改
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货