[Taha Okla]

لما تريد تنشئ زر (أمر) تكتب الكود التالي :
- كود التعريف :

كود :

Dim btnOk As New Button

كود الحجم والأبعاد :

كود :

btnOk.Size = New Size(90, 30)

تحديد موقع رسم الزر :

كود :

btnOk.Location = New Point(20, 100)

تحديد الاسم الظاهري له :

كود :

btnOk.Text = "OK"

ثم إضافة الزر للنافذة التي سيظهر فيها سواء كانت (نافذة - مجموعة- بانل)
مثلاً يضاف لـ نافذة (Form2) :

كود :

Form2.Controls.Add(btnOk)

أما بالنسبة للحدث الذي سيتم تنفيذه عند الضغط على الزر ، فهناك أكثر من طريقة 
إما تنشئ حدث جديد مثل التالي : 

كود :

Private Sub btnOk_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       MsgBox("123")
   End Sub

وتربطه بالزر من خلال الكود : 

كود :

AddHandler btnOk.Click, AddressOf btnOk_click

أو تنشئ حدث داخلي ضمن أكواد انشاء الزر وتضع فيه مباشرة الأكواد التي تريد تنفيذها :

كود :

AddHandler btnOk.Click, Sub(sender1 As Object, e1 As EventArgs)
                                   MsgBox("111")
                               End Sub

مكان كود عرض الرسالة : تضع الأكواد التي تريد تنفيذها وقت الضغط على الزر ..

---

---

يعني بالمجمل : 
- طريقة1 :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim btnOk As New Button
   btnOk.Size = New Size(90, 30)
   btnOk.Location = New Point(20, 100)
   btnOk.Text = "OK"
   Me.Controls.Add(btnOk)

   AddHandler btnOk.Click, AddressOf btnOk_click

End Sub

Private Sub btnOk_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   MsgBox("123")
End Sub

- طريقة2 :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim btnOk As New Button
   btnOk.Size = New Size(90, 30)
   btnOk.Location = New Point(20, 100)
   btnOk.Text = "OK"
   Me.Controls.Add(btnOk)

   AddHandler btnOk.Click, Sub(sender1 As Object, e1 As EventArgs)
                               MsgBox("111")
                           End Sub

End Sub