[RaggiTech]

هذا هو الكود فى المثال السابق

ضعه فى حدث Load للفورم

كود :

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
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)

كيف نقرأ عقدة ( جذر - أب - ابن - لقيط ) محددة


ضع زر على الفورم واكتب تحته هذا الكود :

كود :

If TreeView1.SelectedNode Is Nothing Then
Exit Sub
End If

Dim SelectedNode As New TreeNode

SelectedNode = TreeView1.SelectedNode

MessageBox.Show("[" & SelectedNode.Text & "]")

قمنا أولاً بمعرفة هل هناك محدد فى الأداة أم لا

If TreeView1.SelectedNode Is Nothing

فإذا لم يكن هناك عنصر محدد أوقفنا الاجراء

Exit Sub



أما لو كان هناك عنصر محدد - فسنحدد ننشأ متغير نسميه SelectedNode من نوع الفئة TreeNode


ثم نساويه بالعنصر المحدد

كود :

SelectedNode = TreeView1.SelectedNode

ثم قرأناه فى رسالة - أى قرأنا اسمه

كود :

MessageBox.Show("[" & SelectedNode.Text & "]")