ساخت آرایه از نوع کنترل

[3Dmajid]

لطفا یه کد واسم بنویسید که آرایه ی 10 عنصری از نوع Label ایجاد کنه و همه شونو روی فرم Load کنه :لبخند:

[ACorvinus]

سلام.

اینم مثالش. البته خیلی بهینه تز از این مثال میشه نوشت ولی اینجوری درکش براتون آسون تره.

لینک دانلود: 44829

[Cybersilent]

با سلام

PublicClass Form1
Dim lbl(10) As Label

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
For i AsInteger = 0 To 10
lbl(i) = New Label
lbl(i).Name = "txt_" & i.ToString.Trim
lbl(i).Location = New Point(10, i * 30 + 5)
Me.Controls.Add(lbl(i))
AddHandler lbl(i).TextChanged, AddressOf lbl_TextChanged
AddHandler lbl(i).Validated, AddressOf lbl_Validated

Next
EndSub
PrivateSub lbl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

EndSub
PrivateSub lbl_Validated(ByVal sender AsObject, ByVal e As System.EventArgs)
Dim lbl AsString = sender.Name
MsgBox(sender.Text)
EndSub
EndClass

[sari-1369]

http://barnamenevis.org/forum/showpost.php?p=718173&postcount=11
(http://barnamenevis.org/forum/showpost.php?p=718173&postcount=11)