Question

关于VB计时程序

窗体上有一个按钮，
要求：
第一次按下该按钮后，在窗体上创建第一个lable并显示第一个计时信息。
第二次按下该按钮后，在窗体上创建第二个lable并显示第二个计时信息。
依次类推。

同时每个计时任务，需要相互独立。
为什么vs2008里没有index属性？

Answer 1

添加两个命令按钮,一个标签框,一个计时器
设置标签框的index属性为0,visible属性为False
设置计时器的index属性为0
添加如下代码

Private Sub Command1_Click()
Load Label1(1)
Label1(1).Visible = True
Label1(1).AutoSize = True
Load Timer1(1)
Timer1(1).Interval = 1000
Timer1(1).Enabled = True
End Sub
Private Sub Command2_Click()
Load Label1(2)
Label1(2).AutoSize = True
Label1(2).Move Label1(1).Left, Label1(1).Top + 300
Label1(2).Visible = True
Load Timer1(2)
Timer1(2).Interval = 1000
Timer1(2).Enabled = True
End Sub
Private Sub Timer1_Timer(Index As Integer)
Label1(Index).Caption = "第" & Index & "个标签:" & Now
End Sub