منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يمكنني تنفيذ كود تحت زر قمت بانشاءه برمجيا ؟؟

السلام عليكم ورحمه الله وبركاته
قمت بانشاء زر برمجيا بهذا الكود

كود :

Dim newButton = New Button()

        newButton.Location = New Point(180, 50)

        newButton.Text = "100"

        Me.Controls.Add(newButton)

واريد ان اضيفه له حدث ؟
واريد ان انشي زر اخر بحدث اخر بعدد لا نهائي كيف ذلك
بمعني اذا كان الزر رقم 1 موجود يقم بانشاء زر 2 وكيف اضيف حدث له

كلما تحتاجه هو سطر واحد فقط

كود :

       Dim newButton = New Button()

        newButton.Location = New Point(180, 50)

        newButton.Text = "100"

        AddHandler newButton.Click, AddressOf Me.Button_Click

        Me.Controls.Add(newButton)

و بالتأكيد ستحتاج الى كود الحدث الذى سيتم تنفيذه

كود :

   Private Sub Button_Click()

        MsgBox("مبروك")

    End Sub

يمكنك اضافة أى عدد من الازرار
و من خلال الاجراء Button_Click
يمكنك تحديد أى زر ماذا سيفعل

كود :

 Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim btn As Button = CType(sender, Button)

    MsgBox("You clicked " + btn.Text)

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dametucorazon

mrnooo2000