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

Imports System.Xml
:
: 省略
:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim xmlDoc As New XmlDocument

    'XmlDocumentオブジェクトを作成
    xmlDoc.Load("Test.xml")
    Try
        Dim xmlRoot As XmlElement = xmlDoc.DocumentElement
        'ルート要素の子要素数をカウントする
        MessageBox.Show("ルート要素の下には子要素が" & _
                xmlRoot.ChildNodes.Count & "個あります")
    Catch ex As XmlException
        MessageBox.Show(ex.Message)
    End Try
End Sub