+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اضافة Nodes الى TreeView عن طريق FullPath (/showthread.php?tid=1084)
اضافة Nodes الى TreeView عن طريق FullPath - Mr.ILI - 26-11-13
السلام عليكم
اخواني .... كيف يتم اضافة نود الى TreeView عن طريق FullPath يعني مثلا نود مسارة فيTreeView
"1\2\3\4"
و اضافة نود مثلا باسم "vbarb" عن طريق Fullpath
ويصبح المسار : "1\2\3\4\V4arb"
ومن دون الاعتماد على Index الخاص في Items يعني من ودون زي هيك كود :
PHP كود :
TreeView1.Nodes.Item(0).Nodes.Add(line)
وشكرا جزيلا ....
[/align]
RE: اضافة Nodes الى TreeView عن طريق FullPath - Genius Live - 03-03-14
هذا مثال علي استخدام المسار لإضافة الابناء
PHP كود :
Private Function AddNodeWithPath(nodes As TreeNodeCollection, path As String) As TreeNode
Dim leaf = IO.Path.GetFileName(path)
If path <> leaf Then
nodes = AddNodeWithPath(nodes, IO.Path.GetDirectoryName(path)).Nodes
End If
Dim node = nodes.Find(leaf, False).FirstOrDefault()
If node Is Nothing Then
node = nodes.Add(leaf, leaf)
End If
Return node
End Function
PHP كود :
Dim nodes = TreeView1.Nodes
AddNodeWithPath(nodes, "Grandparent1\Parent1\Child1")
