إضافة أدوات على الفورم وقت التشغيل مع إضافة الأحداث

السلام عليكم ورحمة الله وبركاته

الآن سنتعلم كيفية إضافة الأدوات على الفورم وقت التشغيل وإضافة أحداث الضغط ومرور الفأرة وكافة الأحداث الأخرى

أولا نقوم بوضع الكود الآتي وهو لوضع زر على الفورم

الكود:


 

NewBtn.SetBounds(96, 50, 75, 23)

NewBtn.Text = "زر جديد"

Me.Controls.Add(NewBtn)





وفي السطر الأول وضعنا أحداثيات الزر وحجمه أول رقمين (96 ,50) هما أحداثيات الزر وثاني رقمين (75 .23) هما حجم الزر

وفي السطر الثاني قمنا بضبط خاصية Text للزر على "زر جديد" أي اسمينا الزر ب"زر جديد"

وفي السطر الثالث قمنا بوضع الزر على الفورم



والآن تعريف NewBtn كزر وإضافة الحدث

أولا أكتب ما يلي

الكود:


 

Public Class Form1

DimWithEvents NewBtn AsNew Button

WithEvents newbtn As Button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

 System.EventArgs) Handles MyBase.Load

 


اضافة حدث
http://vb4arab.com/vb/attachment.php?attachmentid=23885&stc=1&d=1199231264

سيظهر لك الحدث أكتب فيه الكود

كما في الصورة




لنفترض إننا نريد من البرنامج إظهار رسالة عند ضغط الزر

فيكون الكود الكامل كما يلي