تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعلم أضافة الأدوات على الفورم وقت التشغيل وإضافة أحداث الضغط وما شايه لها
#1
كاتب الموضوع : 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

يتبع إن شاء الله
"يرجى التقييم وسأكون شاكرا"
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب مكان الفورم علي شاشة الكمبيوتر silverlight 2 3,158 18-06-23, 03:26 PM
آخر رد: kebboud
Video [درس فيديو] تقارير الكريستال ريبورت وتغيير مسار الصور أثناء التشغيل رمضان272 0 1,607 28-03-22, 03:18 AM
آخر رد: رمضان272
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 4 6,097 18-07-21, 02:53 AM
آخر رد: kebboud
  [VB.NET] كود يجعل الفورم فى المقدمة دائماً [ بناءاً لطلب احد الاخوة وحتى سيتفاد منه الجميع ] elgokr 5 2,902 16-06-19, 08:32 AM
آخر رد: sendbad100
Rainbow [VB.NET] كلاس ResizeControls وطريقة جديد ومميزة لتكبير وتصغير ادوات الفورم تلقائيا الماجيك مسعد 8 8,731 01-10-18, 03:03 AM
آخر رد: LEO
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 8 6,264 01-07-18, 01:21 AM
آخر رد: YousefOkasha
  الفورم بخاصية none محمود صالح 1 2,049 30-12-17, 03:52 AM
آخر رد: طالب برمجة
  رسم الفورم و طباعته silverlight 1 2,398 19-06-17, 05:44 PM
آخر رد: silverlight
  [نقاش] هل تعلم هذا عن Select Case ali.alfoly 3 3,400 30-12-16, 07:00 PM
آخر رد: Basil Abdallah
  [VB.NET] تحريك الادوات بالماوس وقت التشغيل Ahmed_online 4 3,416 26-11-15, 02:28 PM
آخر رد: eldmasy11

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم