PHP كود :
Public Class Form1
Dim lst As New List(Of String)
Dim WithEvents b As bt
'Private Sub Badded(sender As Object, e As System.EventArgs)
' Dim lbl As New Label
' With lbl
' .Text = "b"
' .AutoSize = True
' .ForeColor = Color.Red
' .Top = sender.bottom
' .Left = sender.left
' End With
' f.Controls.Add(lbl)
'End Sub
Private Sub ad(ByVal t As Control)
Dim lbl As New Label
With lbl
.Text = "b"
.AutoSize = True
.ForeColor = Color.Red
.Top = t.Bottom
.Left = t.Left
End With
f.Controls.Add(lbl)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To lst.Count - 1
b = New bt
With b.Button1
.Text = lst(i)
.ForeColor = Color.Blue
End With
With b.Label1
.Text = i
.ForeColor = Color.Green
End With
f.Controls.Add(b)
Next
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
lst.Add("Cars")
lst.Add("Planes")
lst.Add("Cats")
End Sub
End Class
نسيت احذف احداث ad و Badded
ماضبطت معي واستخدمت usercontrol
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

