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

السلام عليكم
ما هو الكود المناسب
ارغب ببرمجة زر يقوم بانشاء ازرار و تلقائيا مع كل كود ينتجه ينتج حدث خاص به يعني
عند الضغط ع ١Button يقوم بانشاء New Button و عند النقر ع نفس الزر Button1 ايضا يقوم بانشاء ازرار الى ما لا نهاية ما دام المستخدم ينقر على الزر
و ايضا مع انشاء الازرار زر حدثه الخاص
جربت هذا للكود
DIM bun as New Button

Me.Controls.add (bun)
Add Handels bun.click (),..
لكن مشكلته انه بصنع زر واحد فقط لا غير

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 

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

Basil Abdallah

HASAN6.0