AW: ListView, TreeView Erfahrungen
10.05.2005 09:51:50
OttoH
Hallo Holger,
zum Bestücken eines Treeviews dient z.B. folgender Code:
Private Sub Form_Open(Cancel As Integer)
Dim Erster As Node
Dim Zweiter As Node
Dim Dritter As Node
Set Erster = Baum.Nodes.Add(, tvwNext, "K001", "Anton")
Set Zweiter = Baum.Nodes.Add("K001", tvwChild, "K001001", "Antons 1. Sohn")
Set Dritter = Baum.Nodes.Add("K001001", tvwChild, "k001001001", "Antons 1. Enkel")
Set Dritter = Baum.Nodes.Add("K001001", tvwChild, "k001001002", "Antons 2. Enkel")
Set Dritter = Baum.Nodes.Add("K001001", tvwChild, "k001001003", "Antons 3. Enkel")
Set Zweiter = Baum.Nodes.Add("K001", tvwChild, "K001002", "Antons 2. Sohn")
Set Dritter = Baum.Nodes.Add("K001002", tvwChild, "k001002001", "Antons 4. Enkel")
Set Dritter = Baum.Nodes.Add("K001002", tvwChild, "k001002002", "Antons 5. Enkel")
Set Dritter = Baum.Nodes.Add("K001002", tvwChild, "k001002003", "Antons 6. Enkel")
Set Zweiter = Baum.Nodes.Add("K001", tvwChild, "K001003", "Antons 3. Sohn")
Set Dritter = Baum.Nodes.Add("K001003", tvwChild, "k001003001", "Antons 7. Enkel")
Set Dritter = Baum.Nodes.Add("K001003", tvwChild, "k001003002", "Antons 8. Enkel")
Set Dritter = Baum.Nodes.Add("K001003", tvwChild, "k001003003", "Antons 9. Enkel")
Set Erster = Baum.Nodes.Add(, tvwNext, "K002", "Berti")
Set Zweiter = Baum.Nodes.Add("K002", tvwChild, "K002001", "Bertis 1. Sohn")
Set Zweiter = Baum.Nodes.Add("K002", tvwChild, "K002002", "Bertis 2. Sohn")
Set Zweiter = Baum.Nodes.Add("K002", tvwChild, "K002003", "Bertis 3. Sohn")
Set Erster = Baum.Nodes.Add(, tvwNext, "K003", "Conny")
Set Zweiter = Baum.Nodes.Add("K003", tvwChild, "K003001", "Connys 1. Sohn")
Set Zweiter = Baum.Nodes.Add("K003", tvwChild, "K003002", "Connys 2. Sohn")
Set Zweiter = Baum.Nodes.Add("K003", tvwChild, "K003003", "Connys 3. Sohn")
End Sub
Gruß OttoH