السلام عليكم ورحمة الله وبركاته  في هذا الدرس إن شاء الله سأقوم بشرح أداة ال ListView بشيء من التفصيل

في البداية يمكننا إضافة الأداة من ال ToolBox كما في الصورة


أساليب عرض البيانات في أداة ال ListView

أداة ال ListView توفر خمسة خيارات لعرض البيانات في هذه الأداة وذلك عن طريق الخاصية View وهي كما يلي :-

أولاً : عرض التفاصيل أو عرض البيانات كما في أداة ال DataGridView

لاحظ الصورة التالية :


نقوم بضبط الخاصية View = View.Deatils كما يلي


كود:

الكود:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        ListView1.View = View.Details


    End Sub  

كما نلاحظ في الصورة هناك عمودين يحتويان على عناصر , لإضافة عمود نستخدم الخاصية Columns كما يلي وللخاصية Columns بعض الوظائف من أهمها ما يلي :

1) Add : وهذه الوظيفة تمكننا من إضافة عمود ولها الباراميترات من أهمها :
• Text : وهو لتعيين النص الذي يظهر على عنوان العمود
• Width : وهو لتحديد عرض العمود
• TextAlign : وهو لضبط إزاحة النص في عنوان العمود

والكود التالي لإضافة عمودين في أداة ال ListView


كود:

الكود:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


ListView1.View = View.Details  


ListView1.Columns.Add("Name", 100)


ListView1.Columns.Add("Number", 100, HorizontalAlignment.Center)


End Sub

 
ملاحظة : العمود الأول لا يمكن تغيير خاصية ال TextAlign له

2) Clear : وهذه الوظيفة تستخدم لمسح جميع الأعمدة والبيانات أيضاً
3) RemoveAt : حذف عمود بناء على رقم ذلك العمود مع العلم أن رقم أول عمود = 0

إنشاء مثال تطبيقي

الآن نأتي لكيفية إضافة عناصر لأداة ال ListView .. سنقوم بإنشاء مثال كما في الصورة التالية:


قم بفتح مشروع جديد ثم أضف أداة الـ ListView إلى الـ From ثم قم بضبط الخاصية View = View.Deatils كما ذكرنا سابقاً ثم نقوم بإضافة ثلاثة أعمدة باستخدام باستخدام الخاصية Columns ليصبح الكود قبل إضافة البيانات كما يلي


كود:

الكود:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


ListView1.View = View.Details  


ListView1.Columns.Add("Name", 100)


ListView1.Columns.Add("Number", 100, HorizontalAlignment.Center)


ListView1.Columns.Add("Address", 100, HorizontalAlignment.Center)


End Sub  

الآن لكي نضيف بيانات إلى الـ ListView سنستخدم الخاصية Items .. سنتعرف على أهم الوظائف لهذه الخاصية وهي :-

1) Add : وهذه الوظيفة تمكننا من إضافة بيانات داخل أداة الـ ListView ولها الباراميترات من أهمها ما يلي
• Text : وهو لإضافة النص الذي نريد عرضه داخل أداة ال ListView
• ImageIndex : وهي رقم الصورة التي ستظهر في الـ ListView في حال أردنا إضافة صورة .. طبعاً يجب ضبط خاصية SmallImageList كما يلي


كود:

الكود:

ListView1.SmallImageList = ImageList1  

وهنا أخذنا الصور من أداة الـ ImageList1 .

2) Clear : وهي لمسح جميع البيانات داخل أداة الـ ListView .. وبدون حذف الأعمدة.
3) Insert : وهي لإضافة صف في مكان معين في أداة الـ ListView .. والباراميترات لها تقريباً نفس باراميترات الوظيفة Add ما تختلف عنها هو وجود الباراميتر Index وهو رقم الصف الذي نريد إضافة صف جديد قبله.
4) RemoveAt : وهي لحذف صف معين من خلال تمرير رقم الصف لها.
5) Item : هذه الخاصية يمكن من خلالها التحكم في البيانات داخل أداة الـ ListView ولها العديد من الوظائف أهمها ما يلي :-
•BackColor : لتغيير لون خلفية العنصر بلون معين .. مثال

كود:

الكود:

ListView1.Items.Item(0).BackColor = Color.Green

 
وهنا قمنا بتغيير لون خلفية العنصر الأول إلى اللون الأخضر .

ملاحظة : في حالة كانت خاصية FullRowSelect = True لأداة الـ ListView ففي هذه الحالة سيتم تلوين جميع الصف أما في حالة كانت = False فسيتم تغيير أول حقل فقط من الصف .

• BeginEdit : تستخدم لبدء عملية تحرير الحقل الأول في السطر الذي نريده

ملاحظة : في هذه الحالة يجب ضبط خاصية LabelEdit = True لأداة الـListView

كود:

الكود:

ListView1.Items.Item(0).BeginEdit()  

• Checked : تستخدم لوضع علامة صح أمام العنصر ولها قيمتان إما True أو False

ملاحظة : في هذه الحالة يجب ضبط خاصية CheckBoxes = True لأداة الـListView

كود:

الكود:

ListView1.Items.Item(0).Checked = True  

• Font : لضبط نوع الخط للصف الذي نريده


كود:

الكود:

ListView1.Items.Item(0).Font = New Font("Arial", 16, FontStyle.Bold)  

• ForeColor : لتغيير لون الخط للعناصر


كود:

الكود:

ListView1.Items.Item(0).ForeColor = Color.Blue  

• Remove : حذف الصف

كود:

الكود:

ListView1.Items.Item(0).Remove()  

• Selected : وضع شريط التحديد على الصف


كود:

الكود:

ListView1.Items.Item(0).Selected = True


ListView1.Focus()  

• SubItems : للتحكم في الحقول الموجودة في الأعمدة وأهم خاصية لها هي Text وهي لجلب نص من حقل معين أو إضافة نص في حقل معين .


كود:

الكود:

MessageBox.Show(ListView1.Items.Item(0).SubItems(1).Text)

 
هنا سيتم إظهار نص الحقل الموجود في الصف الأول وفي العمود الثاني .. لأن ترقيم الأعمدة والصفوف يبدأ من الرقم 0

• Text : لإضافة أو جلب نص من الحقل الموجود في العمود الأول للصف

كود:

الكود:

MessageBox.Show(ListView1.Items.Item(0).Text)  

* نعود الآن لبرمجة مثالنا .. نبدأ بوضع كود زر إضافة حيث يمكننا برمجته بطريقتين كما يلي :

كود:

الكود:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


ListView1.Items.Add(TextBox1.Text)


ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(TextBox2.Text)


ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(TextBox3.Text)


End Sub

 
في السطر الأول من الكود قمنا بإضافة صف جديد ويتم وضع النص الموجود في الـ TextBox1 في الحقل الأول من العمود .. وفي السطر الثاني يتم وضع النص الموجود في الـ TextBox2 في الحقل الثاني من العمود .. وفي السطر الثالث يتم وضع النص الموجود في الـ TextBox3 في الحقل الثالث من العمود .. وقد قمنا باستخدام الخاصية ListView1.Items.Count لإضافة النص الموجود في الـ TextBox2 و TextBox3 في آخر صف والذي رقمه = عدد الصفوف – 1 .


الطريقة الثانية

نقوم بتعريف متغير من نوع ListViewItem ثم نقوم بإسناده للوظيفة Add وبعد ذلك نضيف العناصر في الصف كما يلي

كود:

الكود:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim Lst As ListViewItem


Lst = ListView1.Items.Add(TextBox1.Text)


Lst.SubItems.Add(TextBox2.Text)


Lst.SubItems.Add(TextBox3.Text)


End Sub  

والآن برمجة الزر حذف المحدد

نستخدم الخاصية FocusedItem لجلب رقم الصف المحدد .. طبعاً في البداية يجب أن نتحقق من وجود بيانات داخل الأداة كما يلي


كود:

الكود:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


If ListView1.Items.Count > 0 Then


ListView1.Items.RemoveAt(ListView1.FocusedItem.Index)


End If


End Sub  

زر حذف الكل وهذا سهل جداً وذلك عن طريق الوظيفة Clear كما يلي


كود:

الكود:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


ListView1.Items.Clear()


End Sub  

الآن بقي آخر شيء في المثال وهو عن الضغط على صف معين يتم إظهار بيانات ذلك الصف في الـ TextBoxes .. سنستخدم الحدث Click لأداة الـ ListView كما يلي :-


كود:

الكود:

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click


TextBox1.Text = ListView1.SelectedItems(0).Text


TextBox2.Text = ListView1.SelectedItems(0).SubItems(1).Text


TextBox3.Text = ListView1.SelectedItems(0).SubItems(2).Text


End Sub  

متابعة

شكرا جزيلا
ربي يحفظك ويعطيك ما تتمناه

شكرا

شكرا لك والله يبارك فيك يا رب


والله يعطيك الف عافيه



شرح رائع بل اروع من الرائع

[img][/img]