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
        'ルート要素が子要素を持っているかを確認します
        If xmlRoot.HasChildNodes Then
            MessageBox.Show("子要素があります")
        Else
            MessageBox.Show("子要素はありません")
        End If
    Catch ex As XmlException
        MessageBox.Show(ex.Message)
    End Try
End Sub