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)
End Sub

'全展開の例
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TreeView1.ExpandAll()
End Sub


'選択ノードの展開例
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '選択ノードがない場合は処理をしない
    If TreeView1.SelectedNode Is Nothing Then
        Exit Sub
    End If

    TreeView1.SelectedNode.Expand()
End Sub

'選択ノードのすべての展開例
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '選択ノードがない場合は処理をしない
    If TreeView1.SelectedNode Is Nothing Then
        Exit Sub
    End If

    TreeView1.SelectedNode.ExpandAll()
End Sub