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

مرحبا

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

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

Basil Abdallah