[Ahmed Abdulla]

السلام عليكم

لدي برنامج به تري فيو وليست فيو وأريد كود بحيث عند الضغط علي عنصر بالتري فيو تظهر 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]

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