在开始点击事件里，根据Frame控件大小调整Label的大小，动态产生N个Label控件元素并启动Timer控件 5
1个回答
展开全部
'设置第一个控件为数组控件 如名为 label1 把 index属性设置为0 下面代码为0
Private Sub Command1_Click()
'生成 n个
Dim n As Integer
n = 4
For i = 1 To n
Load Label1(i)
Label1(i).Caption = "Label1" & i
Label1(i).Width = Frame1.Width
Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height
Label1(i).Visible = True
Next
Timer1.Enabled = True'这个前提是 这个属性为 false 且 Interval 不能为0
End Sub
来自：求助得到的回答
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
