标题:实时错误424 要求对象
只看楼主
single104
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-8-1
结帖率:0
已结贴  问题点数:10 回复次数:4 
实时错误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,不知道哪里出错误了,请高手给指点指点
搜索更多相关主题的帖子: 软件 
2013-08-01 17:15
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:4 
MSComm1.Output = TxtSend.Text   单步运行到这儿,老提示:实时错误 424   要求对象


TxtSend 应该是一个文本框,检查你 窗体上有没有这个控件,或者名字对不对?

授人于鱼,不如授人于渔
早已停用QQ了
2013-08-01 17:21
single104
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-8-1
得分:0 
谢谢,刚接触VB,对象的概念还不是特别理解,文本框原来名字定义成Text1和Text2了,改了文本框的名字,问题就解决了,看书找的一个例子,本来以为这个例子绝对正确呢,看来庸书害死人啊
2013-08-02 09:30
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:4 
尽信书

DO IT YOURSELF !
2013-08-02 09:41
VB丶小宇
Rank: 3Rank: 3
来 自:河北省石家庄市
等 级:论坛游侠
帖 子:172
专家分:142
注 册:2013-3-11
得分:4 
创建一个Text控件,名称改为TxtSend试试。

编程最蛋疼的事:不是编程多么累,而是编完后,一点运行,出现四个字:程序错误。。。
2013-08-02 10:49



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-418422-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.141298 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved