| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 639 人关注过本帖
标题:子程序或函数未定义
只看楼主 加入收藏
chengche
Rank: 2
来 自:上海
等 级:论坛游民
帖 子:30
专家分:65
注 册:2013-6-12
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
子程序或函数未定义
我写一个代码,运行出现错误,提示子程序或函数未定义:错误地方用其他颜色标示
Dim Now_State AS Boolean
Dim Number1 AS Integer
Ptivate Sub Cmd_Click(Index AS Integer)
    If Now_State Then
       Cmd(Index).BackColor=&00&
    Else
       Cmd(Index).BackColor=&HFFFFFF
    End If
    Now_State=Not Now_State
    Number1=Number1+1
    Text1.Text=Number1
End Sub
Private Sub Form_Load()
    Now_State=True
    Number1=0
    Text1.Text=Number1
End Sub
   
搜索更多相关主题的帖子: 子程序 标示 
2013-06-21 16:34
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:9 
Cmd  是一个控件名,你检查一个你窗体上有这个名字的控件吗?
是一组控件。

授人于鱼,不如授人于渔
早已停用QQ了
2013-06-21 17:30
chengche
Rank: 2
来 自:上海
等 级:论坛游民
帖 子:30
专家分:65
注 册:2013-6-12
收藏
得分:0 
有的,cmd0 cmd1 cmd2 cmd3 cmd4.
现在问题是最下面的Text1.Text=Number1,提示实时错误424,要求对象。
请问这有是哪里出问题了??

争取每天能多一个小时,来做我没有做完的事情
离开QQ与论坛为伴
2013-06-21 17:37
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:9 
cmd0 <> cmd(0)

cmd(0) 的命名方法:
1、Name 属性里填:cmd
2、Index 属性里填 :0  
这样才能得到 cmd(0)

类推……

授人于鱼,不如授人于渔
早已停用QQ了
2013-06-21 17:58
chengche
Rank: 2
来 自:上海
等 级:论坛游民
帖 子:30
专家分:65
注 册:2013-6-12
收藏
得分:0 
依照cmd(0)的命名方法,命名了cmd(0),cmd(1),cmd(2),cmd(3),cmd(4),可是运行还是显示要求对象,
text1.text=number1,
????

争取每天能多一个小时,来做我没有做完的事情
离开QQ与论坛为伴
2013-06-21 21:52
吾心无待
Rank: 2
等 级:论坛游民
帖 子:8
专家分:11
注 册:2013-6-20
收藏
得分:3 
用.NET就容易解决多了,VB6忘记了
2013-06-21 22:37
chengche
Rank: 2
来 自:上海
等 级:论坛游民
帖 子:30
专家分:65
注 册:2013-6-12
收藏
得分:0 
回复 3楼 chengche
我已找到问题,是text1的name属性错误设置为Txt_Num,导致程序找不到text1,应该是书出错了。问题已解决,拜谢!

争取每天能多一个小时,来做我没有做完的事情
离开QQ与论坛为伴
2013-06-21 23:11
快速回复:子程序或函数未定义
数据加载中...
 
   



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

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