---

Ich bin gerade dabei die Product-Struktur eines geöffneten Products auszulesen und in einem TreeView über VB.NET darzustellen.

Das rekursive Auslesen funktioniert problemlos, jedoch klappt die Darstellung im TreeView nicht reibungslos (Stichwort: Verschachtelung).

Das Problem ist, dass ich vorher nicht die Struktur-Tiefe der Verschachtelung kenne...

Hat jemand eine Idee?

Grüße Dominik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Einfach immer Variable ByValue an die Kinder weitergeben, die dann je Tiefe um eins hochgezählt wird.
Da sie byValue ist wird sie beim Parent nicht weiter beinflusst und die Tiefe ist immer bekannt.
Ansonsten wäre eine andere Alternative immer den parent-Node zu übergeben.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe es über den parent-node versucht, jedoch habe ich irgendwo einen Denkfehler drin.

Rekursiver Aufruf:

Code:

---

...
TreeView1.Nodes.Add("RootProduct", "Root_" & oProduct.Name)
SUB_ProdScan(CATIA.ActiveDocument.Product.Products, "RootProduct")
...

Sub SUB_ProdScan(ByVal oProducts As Products, ByVal oParent As String)
        For i = 1 To oProducts.Count
            If oProducts.Item(i).Products.Count > 0 Then
                'ist ein produkt: weitere unterprodukte

                TreeView1.Nodes.Item(oParent).Nodes.Add("Product_" & oProducts.Item(i).Name, "Product_" & oProducts.Item(i).Name)

                Dim oProductsUebergabe As Products
                oProductsUebergabe = oProducts.Item(i).Products
                SUB_ProdScan(oProductsUebergabe, "Product_" & oProducts.Item(i).Name)
            Else
                'ist ein part
                TreeView1.Nodes.Item(oParent).Nodes.Add("Part_" & oProducts.Item(i).Name, "Part_" & oProducts.Item(i).Name)
            End If
        Next
    End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP