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"

    '孫ノードの作成
    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に追加
    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
    '選択ノードがない場合は処理をしない
    If TreeView1.SelectedNode Is Nothing Then
        Exit Sub
    End If

    '選択したノードを折りたたむ
    TreeView1.SelectedNode.Collapse()
End Sub