-DefaulT

Public Class Form1

    Dim dsItemDex As DataSet = New DataSet

    Private Sub LoadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadToolStripMenuItem.Click

        Dim dir As String
        Dim xmlfile As String
        dir = My.Computer.FileSystem.CurrentDirectory

        OpenFileDialog1.FileName = ""
        OpenFileDialog1.InitialDirectory = dir
        OpenFileDialog1.Title = "Open PokeNet XML..."
        OpenFileDialog1.Filter = "PokeNet (*.xml)|*.xml"
        xmlfile = OpenFileDialog1.FileName

        OpenFileDialog1.ShowDialog()

        dsItemDex.Reset()
        TextBox1.ResetText()

        dsItemDex.ReadXml(OpenFileDialog1.FileName)
        Dim dv As DataView = New DataView(dsItemDex.Tables(0))
        DataGrid1.DataSource = dv

        Dim swXML As New System.IO.StringWriter()
        dsItemDex.WriteXmlSchema(swXML)
        TextBox1.Text = swXML.ToString

    End Sub

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click

        Dim dir As String
        dir = My.Computer.FileSystem.CurrentDirectory
        Dim SaveFile As New SaveFileDialog
        SaveFile.Title = "Save PokeNet XML As"
        SaveFile.Filter = "PokeNet (*.xml)|*.xml"
        SaveFile.InitialDirectory = dir

        SaveFile.ShowDialog()

        dsItemDex.WriteXml(SaveFile.FileName)

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AToolStripMenuItem.Click
        dsItemDex.Reset()
        TextBox1.ResetText()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        AboutBox1.Show()
    End Sub
End Class