[Basil Abdallah]

مرحبا 

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 


عيب هذا الكود انه يقوم بانشاء زر واحد فقط
الان انا ارغب البرنامج يقوم بانشاء ازرار غير متناهية و يمكن اعطائهم حدث ؟

[عبدالله الدوسري]

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 


[Basil Abdallah]

تقريبا الكود الي كتبتو و الي انتا كتبتو نفس الشي