[سؤال] كيف اتعامل مع button تم انشاؤه بالكود؟؟

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim btn As New Button

        Me.Controls.Add(btn)



End Sub

كود :

Dim btn As Button

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    btn = New Button

    btn.Text = "الزر الأول"

    btn.Location = New Point(10, 10)

    AddHandler btn.Click, AddressOf btn_Click

    Me.Controls.Add(btn)

    btn = New Button

    btn.Text = "الزر الثاني"

    btn.Location = New Point(10, 40)

    AddHandler btn.Click, AddressOf btn_Click

    Me.Controls.Add(btn)

End Sub

Private Sub btn_Click(sender As System.Object, e As System.EventArgs)

    ' حدث النقر

    MsgBox(sender.Text)

End Sub

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim btn As Button = New Button
        With btn
            .Text = "Any Text"
            .Location = New Point(10, 10)
        End With
        AddHandler btn.Click, AddressOf Btn_Click
        Me.Controls.Add(btn)
    End Sub

    Private Sub Btn_Click(sender As Object, e As EventArgs)
        ' اكتب ما تريده في الحدث

        Dim b As Button = CType(sender, Button)
        Select Case b.Text
            Case "Any Text"
                Me.Close()

        End Select

    End Sub

كود :

 Dim b As Button = CType(sender, Button)

        Select Case b.Text

            Case "Any Text"

                Me.Hide()







        End Select

        Select Case b.Text

            Case "Any Text1"

                Me.Close()





        End Select

PHP كود :

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim pt As Point = New Point(10, 10)
        For i As Integer = 0 To 5
            Dim btn As Button = New Button
            With btn
                btn.Location = pt
                btn.Text = "button" & (i + 1).ToString
                ' إضبط خصائص الباتون كيفما شئت
            End With
            ' هنا يتم ضبط مكان كل باتون
            pt.Y += btn.Height + 1
            Me.Controls.Add(btn)
        Next

        ' هنا نضيف الحدث لكل باتون
        For Each b As Button In Me.Controls
            AddHandler b.Click, AddressOf Btn_Click
        Next

    End Sub

    Private Sub Btn_Click(sender As Object, e As EventArgs)
        ' اكتب ما تريده في الحدث

        ' هنا نختار الباتون بناء علي التكست الخاص به
        ' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
        Dim b As Button = CType(sender, Button)
        Select Case b.Text
            Case "button1"
                Me.Close()
            Case "button2"
                Me.BackColor = Color.Blue
            Case "button3"
                Me.Text = "any text"
            Case "button4"

            Case "button5"

            Case "button6"

        End Select

    End Sub

كود :

For a As Integer = 0 To ds.Tables("ccc").Rows.Count - 1



            Dim flp As New FlowLayoutPanel

            flp.Name = "flpHead" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString

            flp.FlowDirection = FlowDirection.LeftToRight

            flp.AutoSize = True

            flp.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink

            flph.Controls.Add(flp)

            Dim lbl As New Label

            lbl.Name = "lbl" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString

            lbl.Text = ds.Tables("ccc").Rows(a).Item("Type_Info_name").ToString

            flp.Controls.Add(lbl)

            Dim pic As New PictureBox

            pic.Name = "pic" + ds.Tables("ccc").Rows(a).Item("Type_Info_id").ToString

            pic.Size = New Size(20, 20)

            pic.SizeMode = PictureBoxSizeMode.StretchImage

            pic.Image = Image.FromFile("D:\Users\dell\pic\reals.jpg")

            AddHandler pic.Click, AddressOf pic_click

            flp.Controls.Add(pic)

        Next

كود :

Private Sub pic_click(sender As Object, e As EventArgs)



        Dim b As PictureBox = CType(sender, PictureBox)





        Select Case b.Name



            Case "pic" + ds.Tables("ccc").Rows(0).Item("Type_Info_id").ToString

                MsgBox("010")

            Case "pic" + ds.Tables("ccc").Rows(1).Item("Type_Info_id").ToString

                MsgBox("020")

            Case "pic" + ds.Tables("ccc").Rows(2).Item("Type_Info_id").ToString

                MsgBox("030")

            Case "pic" + ds.Tables("ccc").Rows(3).Item("Type_Info_id").ToString

                MsgBox("040")

            Case "pic" + ds.Tables("ccc").Rows(4).Item("Type_Info_id").ToString

                MsgBox("050")

        End Select









    End Sub