VB.NET, C#, PowerShell Tipsサイト

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '親ノードの作成
    Dim rootNode As New TreeNode
    Dim childNode1 As New TreeNode
    Dim childNode2 As New TreeNode
    Dim grandChildNode1 As New TreeNode
    Dim grandChildNode2 As New TreeNode
    Dim grandChildNode3 As New TreeNode

    '親ノードの作成
    rootNode.Text = "ルート"

    '子ノードの作成
    childNode1.Text = "子ノード1"
    childNode2.Text = "子ノード2"

    childNode1.SelectedImageIndex = 3
    '孫ノードの作成
    grandChildNode1.Text = "孫ノード1"
    grandChildNode2.Text = "孫ノード2"
    grandChildNode3.Text = "孫ノード3"

    '孫ノードを親ノードに追加
    childNode2.Nodes.Add(grandChildNode3)
    childNode1.Nodes.Add(grandChildNode1)
    childNode1.Nodes.Add(grandChildNode2)

    '子ノードを親ノードに追加
    rootNode.Nodes.Add(childNode1)
    rootNode.Nodes.Add(childNode2)

    '親ノードをTreeViewに追加
    rootNode.SelectedImageIndex = 3
    TreeView1.Nodes.Add(rootNode)

    '全展開する
    TreeView1.ExpandAll()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'ノードを結合する色を赤にする
    TreeView1.LineColor = Color.Red
End Sub