+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: TabControl (/showthread.php?tid=5276)
معلومة ::: TabControl - RaggiTech - 06-10-12
كاتب الموضوع : BADRMEDIA
أداة TabControl أو أداة الصفحات
وهى أكثر أداة مفيدة تجعلك توصل للمستخدم عدة شاشات فى فورم واحد
وهذا ملاحظ جداً دائماً فى نوافذ الخصائص - فى نظام التشغيل ويندوز والبرامج الخدمية
===================
قم بوضع أداة TabControl على الفورم من صندوق الأدوات ToolBox
سنجد أن عندما وضع الأداة TabControl على الفورم أنها تكونت من عدد 2 TabPage
بالطبع هذا صحيح - لأنك طالما تريد أن تستخدمها - إذن لأنك تريد تعدد الصفحات وأقل شئ هو عدد2 TabPage ولو كان أقل من ذلك فلما تستخدمها
ويمكن أن تبدأ فى زيادة عدد الصفحات وتخصيص خصائص لكل صفحة من الخاصية
TabPages
من نافذة الخصائص للأداة
سيظهر لك معالج لإضافة TabPage أو حذف TabPage وتحرير الخصائص
والخاصية Text داخل هذا المعالج مع كل TabPage تستطيع أن تضع له عنوان
ويمكن أن نضيف TabPage بالكود هكذا :
نعلن عن TabPage جديدة
كود :
Dim Tab1 As New TabPage()وضعنا لها عنوان من الخاصية Text
كود :
Tab1.Text = "صفحة 1"سنقوم بعد ذلك باضافة TabPage إلى TabControl
كود :
TabControl1.TabPages.Add(Tab1)معلومة ::: TabControl - RaggiTech - 06-10-12
نستطيع أن نعرف عدد TabPages فى الأداة TabControl
سنظهر رسالة بذلك
كود :
MessageBox.Show(TabControl1.TabPages.Count)=================================
كل TabPage تأخذ رقم فهرس - ورقم الفهرس يبدأ معها من صفر
لو فكرت تحذف TabPage الثانية - إذن سيكون رقم الفهرس لها هو 1
وسنستخدم الأمر RemoveAt التابع للخاصية TabPages
كود :
TabControl1.TabPages.RemoveAt(1)=====================================
من الممكن أن تقوم بحذف كل TabPages دون الاهتمام بأى واحدة منها
سيكون الأمر هو :
كود :
TabControl1.TabPages.Clear()====================================
يمكن أن نعرف رقم فهرس TabPage المحددة الآن
نظهر ذلك فى رسالة
كود :
MessageBox.Show(TabControl1.SelectedIndex)وهذا يفيد فى حالة التحقق من رقم الفهرس للصفحة قبل القيام بمهمة معينة
كود :
If TabControl1.SelectedIndex = 1 Then
' Statement
Else
' Statement
End Ifمعلومة ::: TabControl - RaggiTech - 06-10-12
لو نظرنا للصورة رقم 1 سنجد أن
عندما زاد عدد TabPages عن صفحة العرض ظهر زر تمرير للتنقل بين الصفحات
لكن فى الصورة رقم 2 نجد أنه لما زاد عدد أصبحت TabPages تحت بعضها
كل ذلك عبر الخاصية Multiline وجعل القيمة لها True
كود :
TabControl1.Multiline = Trueمعلومة ::: TabControl - RaggiTech - 06-10-12
رأس TabPages تظهر فى أعلى الصفحة وهذا هو الافتراضى
كود :
TabControl1.Alignment = TabAlignment.Topكود :
TabControl1.Alignment = TabAlignment.Bottomلليسار
كود :
TabControl1.Alignment = TabAlignment.Leftكود :
TabControl1.Alignment = TabAlignment.Right