[RaggiTech]

بالنسبة لما قمنا به فى الرد السابق - نستطيع أن نقوم به بالكود

فيمكن انشاء ImageList بالكود ووضع الصور فيه وترتب بالفهرس

كود :

Dim myImageList As New ImageList
myImageList.Images.Add(Image.FromFile("Default.gif"))
myImageList.Images.Add(Image.FromFile("Selected.gif"))

ثم نربط TreeView بأداة الصور

كود :

TreeView1.ImageList = myImageList

ثم نبدأ فى بناء العناصر ( العقد ) ونربط كل عقدة برقم فهرس صورة محددة

كود :

Dim rootNode As New TreeNode

rootNode.Text = "الجذر"
rootNode.ImageIndex = 0


rootNode.SelectedImageIndex = 1


Dim childNode1 As New TreeNode
Dim childNode2 As New TreeNode

childNode1.Text = "الابن1"
childNode1.ImageIndex = 0


childNode1.SelectedImageIndex = 1
childNode2.Text = "الابن2"
childNode2.ImageIndex = 0


childNode2.SelectedImageIndex = 1


rootNode.Nodes.Add(childNode1)
rootNode.Nodes.Add(childNode2)


TreeView1.Nodes.Add(rootNode)

وهذا الأمر شرحناه من قبل