PGlabo

« [VB.NET] ListViewへ項目の追加 | メイン | [VB.NET] Sub Main（二重起動防止・スタートフォーム） »

2005年10月21日

[VB.NET] TreeViewへ項目の追加

        'ノード作成
        Dim A_02_01 As New TreeNode("A0201")
        Dim A_02_02 As New TreeNode("A0202")
        Dim A_02_Folder() As TreeNode = {A_02_01, A_02_02}
        Dim A_02 As New TreeNode("A02", A_02_Folder)

        Dim A_01 As New TreeNode("A01")

        Dim A_03 As New TreeNode("A03")

        Dim A_Folder() As TreeNode = {A_01, A_02, A_03}

        Dim A As New TreeNode("A", A_Folder)

        Dim B As New TreeNode("B")

        Dim C_01 As New TreeNode("C01")

        Dim C_02 As New TreeNode("C02")

        Dim C_Folder() As TreeNode = {C_01, C_02}

        Dim C As New TreeNode("C", C_Folder)

        Dim Root() As TreeNode = {A, B, C}

        TreeView1.Nodes.Clear()

        '最上位階層（Root）に対してまとめてノードを追加

        TreeView1.Nodes.AddRange(Root)

        '最初のノード（TopNode）を開く

        TreeView1.TopNode.ExpandAll()

    +--[A]
    |     |--[A01]
    |     +--[A02]
    |     |     |--[A0201]
    |     |     +--[A0202]
    |     |
    |     +--[A03]
    |
    +--[B]
    |
    +--[C]
          |--[C01]
          +--[C01]

2005 / 10 / 21