[asemshahen5]

تعديل بسيط على كود الاخ سعود لاضافة كود للزر المضاف عند النقر :

PHP كود :

Public Class Form1
    Dim lst As New List(Of String)
    Dim WithEvents b As bt
    Private Sub BtnClick(sender As System.Object, e As System.EventArgs)
        Dim btn1 As Button = CType(sender, Button)
        MsgBox(btn1.Text)
        MsgBox(btn1.Tag)
    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
                .Tag = i
            End With
            With b.Label1
                .Text = i
                .ForeColor = Color.Green
            End With
            f.Controls.Add(b)
            AddHandler b.Button1.Click, AddressOf BtnClick
        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