| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 959 人关注过本帖
标题:实时错误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
帖 子:4947
专家分:30084
注 册: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册: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
快速回复:实时错误424 要求对象
数据加载中...
 
   



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

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