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()

    'チェックボックスを表示する
    TreeView1.CheckBoxes = True
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

    '選択されているノードのチェック状態を取得する
    If TreeView1.SelectedNode.Checked Then
        MessageBox.Show("選択されたノードはチェックされています")
    Else
        MessageBox.Show("選択されたノードはチェックされていません")
    End If
End Sub