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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يمكنني تنفيذ كود تحت زر قمت بانشاءه برمجيا ؟؟ (/showthread.php?tid=25523)

كيف يمكنني تنفيذ كود تحت زر قمت بانشاءه برمجيا ؟؟ - dametucorazon - 27-06-18

السلام عليكم ورحمه الله وبركاته
قمت بانشاء زر برمجيا  بهذا الكود
كود :
Dim newButton = New Button()
       newButton.Location = New Point(180, 50)
       newButton.Text = "100"
       Me.Controls.Add(newButton)
واريد ان اضيفه له حدث ؟
واريد ان انشي زر اخر بحدث اخر بعدد لا نهائي كيف ذلك 
بمعني اذا كان الزر رقم 1 موجود يقم بانشاء زر 2 وكيف اضيف حدث له

RE: كيف يمكنني تنفيذ كود تحت زر قمت بانشاءه برمجيا ؟؟ - mrnooo2000 - 27-06-18

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

كود :
       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