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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim dlgFile As New OpenFileDialog
    Dim dtSet As New DataSet

    dlgFile.Filter = "XMLファイル(*.xml)|*.xml"

    If dlgFile.ShowDialog = DialogResult.OK Then
        'ストリームを作成する
        Dim reader As IO.StreamReader = New     IO.StreamReader(dlgFile.FileName, _
            System.Text.Encoding.GetEncoding("Shift_Jis"))

        'データセットにXMLファイルを読み込む
        dtSet.ReadXml(reader)

        Dim dtTable As DataTable = dtSet.Tables(0)

        'DataGridに表示してみる
        DataGrid1.DataSource = dtTable
    End If

End Sub