FORM中只有一个LABEL1，希望自动循环显示多个LABEL1及其中的caption，如何写呢？

来源：百度知道 编辑：UC知道 时间：2024/09/27 21:31:16
FORM中只有一个LABEL1，希望自动循环显示多个LABEL1及其中的caption，如何写呢？
如：

for i=1 to 30
LABEL1.caption="循环显示"&i
next i

但发现无法正常运行。请高手帮忙改一改。

将Label1的Index属性设置成0,添加如下代码:
Private Sub Form_Load()
Randomize
Label1(0).Move 0, 0
Label1(0).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
For i = 1 To 10
Load Label1(i)
Label1(i).Caption="新添加的第" & I & "个Label"
Label1(i).Move 0, Label1(i - 1).Top + Label1(i - 1).Height + 30
Label1(i).Visible = True
Label1(i).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next
End Sub

设置定时器timer 把你的代码加进去