子程序或函数未定义

chengche 发布于 2013-06-21 16:34， 639 次点击

我写一个代码，运行出现错误，提示子程序或函数未定义：错误地方用其他颜色标示
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

6 回复

风吹过b2013-06-21 17:30

Cmd 是一个控件名，你检查一个你窗体上有这个名字的控件吗？
是一组控件。

chengche2013-06-21 17:37

有的，cmd0 cmd1 cmd2 cmd3 cmd4.
现在问题是最下面的Text1.Text=Number1，提示实时错误424，要求对象。
请问这有是哪里出问题了？？

风吹过b2013-06-21 17:58

cmd0 <> cmd(0)

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

类推……

chengche2013-06-21 21:52

依照cmd（0）的命名方法，命名了cmd（0），cmd（1），cmd（2），cmd（3），cmd（4），可是运行还是显示要求对象，
text1.text=number1，
？？？？

吾心无待2013-06-21 22:37

用.NET就容易解决多了，VB6忘记了

chengche2013-06-21 23:11

回复 3楼 chengche

我已找到问题，是text1的name属性错误设置为Txt_Num，导致程序找不到text1，应该是书出错了。问题已解决，拜谢！