Treeview 簡易 Example

Dim A As Int16 = 0

'Head
TreeView1.Nodes.Add((A + 1).ToString)

'1.1 & 1.1 Child
TreeView1.Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)

'1.2 & 1.2 Child
TreeView1.Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 1).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)

'1.3 & 1.3 Child
TreeView1.Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 2).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 3).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)

'1.4 & 1.4 Child
TreeView1.Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 3).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 4).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)

'1.5 & 1.5 Child
TreeView1.Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 1).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes(A).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 1).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 2).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 2).ToString & "." & (A + 1).ToString)
TreeView1.Nodes(A).Nodes(A + 4).Nodes(A + 1).Nodes.Add((A + 1).ToString & "." & (A + 5).ToString & "." & (A + 2).ToString & "." & (A + 2).ToString)