求助！控件数组问题。。

Question

兄弟姐妹们，帮我看看这个程序哪里出错啦！
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End SubPrivate Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End SubPrivate Sub Command3_Click(Index As Integer)
End
End SubPrivate Sub Form_Load()
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub

Answer 1

Private Sub Command1_Click(Index As Integer) 
Timer1.Enabled = True 
Command1.Enabled = False 
Command2.Enabled = True 
End Sub 改成:
Private Sub Command1_Click(Index As Integer) 
Timer1.Enabled = True 
Command1(Index).Enabled = False 
Command2(Index).Enabled = True 
End Sub　　要注意一下:你的控件数组Command1和Command2的成员个数是不是一样多的。不一样的话，你要注意处理“下标越界”的问题。
　　Command2_Click(Index As Integer)中的更正类似，自己处理。

Answer 2

可能是 Command1(0) 楼主不会加 Command1(1)  Command1(2) 不然怎么冒出一个Command2又是数组.还有Label为何又不用 Label1(0) Label1(1).......是否楼主不会使用 ? 是的话我再帮你改代码

Answer 3

呵呵, 看得出来, 不过没关系,两年多以前我也与你现在一样.把代码发给我看看吧,我帮你改 [email protected]

Answer 4

你这个程序其实没有用到控件数组，只要把Index As Integer删掉就不会报错了
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End SubPrivate Sub Command3_Click()
End
End SubPrivate Sub Form_Load()
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub这样就没有错了。