[ناجي إبراهيم]

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

إذا كنت تريد إظهار العقد الفرعية (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

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