[RaggiTech]

بالطبع نحن أضفنا جذر ومنه يتفرع كل شئ

وقلنا أن أن الجذر أو الأب أو الابن أعى عنصر داخل أداة TreeView هو عقدة مثل أمر الشجرة بالضبط عمرها بعدد العقد وهذه الأداة عدد عناصر بعدد العقد

تعال لننظر كيف نضع تحت الجذر أب وهكذا

كود :

' هنا سنعرف متغير ونجعله نسخة من الفئة TreeNode
' وسيكون الجذر الرئيسى
Dim rootNode As New TreeNode

' وهذا سيكون أول ابن

Dim childNode1 As New TreeNode

' وهذا سيكون ثاني ابن

Dim childNode2 As New TreeNode

' وهذا سيكون أول حفيد

Dim grandChildNode1 As New TreeNode

' وهذا سيكون ثاني حفيد

Dim grandChildNode2 As New TreeNode

' وهذا سيكون ثالث حفيد

Dim grandChildNode3 As New TreeNode

لاحظ أننا عرفنا كل هذه المتغييرات بنوع TreeNode ولكن التمميز فى اسمها ومكان اضافتها

كود :

' اعطينا اسم للمتغير الذى أردناه أن يكون هو الجذر
rootNode.Text = "الجذر الرئيسى"

' ثم اعطينا اسم للأب الأول
childNode1.Text = "الأبن1"
' ثم اعطينا اسم للأب الثاني
childNode2.Text = "الأبن2"

' ثم اعطينا اسم للحفيد الأول
grandChildNode1.Text = "الحفيد1"
' ثم اعطينا اسم للحفيد الثاني
grandChildNode2.Text = "الحفيد2"
' ثم اعطينا اسم للحفيد الثالث
grandChildNode3.Text = "الحفيد3"

هنا سيكون الأمر الهام وهو الذى يحدد من الأب ومن الأين

كود :

' هنا أضفنا للابن الأول الحفيد الأول
childNode1.Nodes.Add(grandChildNode1)

' هنا أضفنا للابن الأول الحفيد الثاني

childNode1.Nodes.Add(grandChildNode2)

' هنا أضفنا للابن الثاني الحفيد الثالث
childNode2.Nodes.Add(grandChildNode3)


' هنا سنضيف للجذر هذه الأبناء
rootNode.Nodes.Add(childNode1)
rootNode.Nodes.Add(childNode2)

' هنا سنضيف الجذر للشجرة مباشرة بعد أن حددنا له عائلته الكريمة

TreeView1.Nodes.Add(rootNode)