+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23371)
توليد زر مع حدثها الخاص - Basil Abdallah - 17-01-18
مرحبا
PHP كود :
Dim WithEvents btn1 As New Button()
Controls.Add(btn1)
Me.btn1.BringToFront()
btn1.Location = New Point(400, 100)
PHP كود :
Private Sub Btn() Handles btn1.Click
PropertyGrid1.SelectedObject = btn1
End Sub
عيب هذا الكود انه يقوم بانشاء زر واحد فقط
الان انا ارغب البرنامج يقوم بانشاء ازرار غير متناهية و يمكن اعطائهم حدث ؟
RE: توليد زر مع حدثها الخاص - عبدالله الدوسري - 17-01-18
PHP كود :
Dim btn1 as New Button()
btn1.Name = "MyButton"
AddHandler btn1.Click, AddressOf MyButton_Click
MyButton_Click
هو إجراء أنت تكتبة
ممكن يكون أي أسم أنت تختارة
ستكون كالتالي :
PHP كود :
Private Sub MyButton_Click(sender As Object, e As EventArgs)
End Sub
RE: توليد زر مع حدثها الخاص - Basil Abdallah - 17-01-18
تقريبا الكود الي كتبتو و الي انتا كتبتو نفس الشي