منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - إضافة أدوات على الفورم وقت التشغيل مع إضافة الأحداث كلها....متجدد

كاتب الموضوع : anas SY

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

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

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

كود :
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

End Sub

الآن إضافة الحدث

[صورة مرفقة: 18_01349123822.jpg]

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

كما في الصورة

[صورة مرفقة: 18_01349123860.jpg]

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

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

[صورة مرفقة: 18_01349123884.jpg]

الموضوع متجدد وسأضيف طريقة إضافة الأدوات الآتية وقت التشغيل وكيفية استخدامها مع أمثلة لكن قد أتأخر بسبب الدراسة
(PictureBox-Timer-TextBox-WebBrowser) وبعض الأدوات الأخرى
كلمة شكرا تكفي

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

RaggiTech