16,717
社区成员
发帖
与我相关
我的任务
分享 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lbl() As Label
ReDim lbl(10)
Dim i As Int16
For i = 0 To lbl.Length - 1
lbl(i) = New Label
With lbl(i)
.Name = "lbl_" & i.ToString
.Text = "lbl_" & i.ToString
.Tag = i '很有用
End With
Next
Me.Controls.AddRange(lbl)
End Sub
Public Class Form1
Dim MyLable() As Label
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ReDim MyLable(TextBox1.Text)
For i = 0 To Val(TextBox1.Text) - 1
MyLable(i) = New Label
Controls.Add(MyLable(i))
MyLable(i).Text = i
MyLable(i).Location = New Point(0, i * 30)
Next
MsgBox(MyLable.Length - 1)
End Sub
End Class