منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

لدي برنامج به تري فيو وليست فيو وأريد كود بحيث عند الضغط علي عنصر بالتري فيو تظهر Nodes الخاصة به في الليست فيو استخدمت هذا الكود لكني فشلت فأرجو التعديل علي هذا الكودولكم مني جزيل الشكر

ListView1.listItems.Add=TreeView1.SelectedItem.Node

السلام عليكم...

إذا كنت تريد إظهار العقد الفرعية (Child Nodes) التابعة للعقدة التي يتم النقر عليها فاستعمل الكود التالي في الحدث NodeClick للـ TreeView:

كود :

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

    Dim NextChild As Node

    ListView1.ListItems.Clear

    If Node.Children > 0 Then

        Set NextChild = Node.Child

        Do While Not (NextChild Is Nothing)

            ListView1.ListItems.Add , , NextChild.Text

            Set NextChild = NextChild.Next

        Loop

    End If

End Sub

نرجو الاستفادة و السلام.

جزاك الله كل خير أخي الكريم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ahmed Abdulla

ناجي إبراهيم

Ahmed Abdulla