+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23393)
حدث لكل زر تم انشائه - Basil Abdallah - 18-01-18
السلام عليكم
ما هو الكود المناسب
ارغب ببرمجة زر يقوم بانشاء ازرار و تلقائيا مع كل كود ينتجه ينتج حدث خاص به يعني
عند الضغط ع ١Button يقوم بانشاء New Button و عند النقر ع نفس الزر Button1 ايضا يقوم بانشاء ازرار الى ما لا نهاية ما دام المستخدم ينقر على الزر
و ايضا مع انشاء الازرار زر حدثه الخاص
جربت هذا للكود
DIM bun as New Button
Me.Controls.add (bun)
Add Handels bun.click (),..
لكن مشكلته انه بصنع زر واحد فقط لا غير
RE: حدث لكل زر تم انشائه - HASAN6.0 - 18-01-18
PHP كود :
Dim x As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bun As New Button
bun.Left = x
bun.Text = "New btn" + Now.Millisecond.ToString
Me.Controls.Add(bun)
AddHandler bun.Click, AddressOf NewButton_Click
x += bun.Width
End Sub
Private Sub NewButton_Click(sender As Object, e As EventArgs)
MsgBox("I'm new Button My Text is : " + sender.text)
End Sub