[mohammed moh]

السلام عليكم و رحمة الله
بطبيعة الحال عندما نريد إضافة زر للفورم منطقيا نذهب إلى القائمة "Toolbox" و نبحث عن الزر و نقوم بسحبه و نوقعه على الفورم أو نقوم بالنقر المزدوج عليه إلخ..
موضوعنا البسيط اليوم نتحدث فيه عن كيفية إضافة زر عن طريق الكود
على بركة الله

1 هناك طرق عديدة لإضافة الزر يعني ممكن عن طريق أداة التايمر أو عن طريق الزر نفسه أو عن طريق حدث ما المهم هناك الكثير من الطرق لكن نحن سنضع الكود في حدث "Form1_Load" كما يلي:

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       Dim btn As New Button
       Controls.Add(btn)
   End Sub

اوك الآن نقوم بتشغيل التطبيق فيظهر لنا مايلي:

كما تلاحظون في الصورة اعلاه الزر إتخذ أول موقع و هو (0.0) يعني لو نريد أن نتحكم في موقع الزر مثلا نعطيق هذه الإحداثية (12.12) ليصبح الكود كالآتي:

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       Dim btn As New Button
       btn.Location = New Point(12, 12)
       Controls.Add(btn)
   End Sub

و هذه الصورة تبين الموقع الجديد للزر






و هناك الكثير من خصائص الأزرار يمكنكم أن تكتشفوها بأنفسكم مثل خاصية تكست و الحجم و غيرها
بالتوفيق للجميع