03-10-12, 09:29 AM
كاتب الموضوع : anas SY
السلام عليكم ورحمة الله وبركاته
الآن سنتعلم كيفية إضافة الأدوات على الفورم وقت التشغيل وإضافة أحداث الضغط ومرور الفأرة وكافة الأحداث الأخرى
أولا نقوم بوضع الكود الآتي وهو لوضع زر على الفورم
كود :
NewBtn.SetBounds(96, 50, 75, 23)
NewBtn.Text = "زر جديد"
Me.Controls.Add(NewBtn)
وفي السطر الأول وضعنا أحداثيات الزر وحجمه أول رقمين (96 ,50) هما أحداثيات الزر وثاني رقمين (75 .23) هما حجم الزر
وفي السطر الثاني قمنا بضبط خاصية Text للزر على "زر جديد" أي اسمينا الزر ب"زر جديد"
وفي السطر الثالث قمنا بوضع الزر على الفورم
والآن تعريف NewBtn كزر وإضافة الحدث
أولا أكتب ما يلي
كود :
Public Class Form1
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2][color=#0000ff]WithEvents[/color][/SIZE][SIZE=2] NewBtn [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Button[/SIZE]
[SIZE=3]WithEvents newbtn As Button[/SIZE]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
سيظهر لك الحدث أكتب فيه الكود
كما في الصورة
لنفترض إننا نريد من البرنامج إظهار رسالة عند ضغط الزر
فيكون الكود الكامل كما يلي
الكود الكامل
كود :
Public Class Form1
Dim WithEvents NewBtn As New Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NewBtn.SetBounds(96, 50, 75, 23)
NewBtn.Text = "زر جديد"
Me.Controls.Add(NewBtn)
End Sub
Private Sub newbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NewBtn.Click
MsgBox("anas sy")
End Sub
End Class
يتبع إن شاء الله
"يرجى التقييم وسأكون شاكرا"