Imports System.Text
Imports System.Xml

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            SavePath = FolderBrowserDialog1.SelectedPath
        End If
        Dim name As String = TextBox1.Text
        Dim number As String = TextBox2.Text
        Dim classroom As String = TextBox3.Text
        Dim face As String = TextBox4.Text
        Dim moblie As String = TextBox5.Text
        WriteXML(name, number, classroom, face, moblie)
        MessageBox.Show("保存成功!")
    End Sub

    Dim SavePath As String = String.Empty
    Private Sub WriteXML(name As String, number As String, classroom As String,
                              face As String, moblie As String)
        Dim path As String = SavePath
        If String.IsNullOrWhiteSpace(path) Then
            MessageBox.Show("请先选择路径")
            Return
        End If
        Try
            Dim filename As String = path + "\\" + DateTime.Now.ToString("yyyyMMddHHssmm") + ".xml"
            Dim xml As XmlTextWriter = New XmlTextWriter(filename, Encoding.UTF8)
            xml.Formatting = Formatting.Indented
            xml.WriteStartDocument()

            xml.WriteStartElement("记录")

            xml.WriteStartElement("姓名")
            xml.WriteCData(name)
            xml.WriteEndElement()

            xml.WriteStartElement("学号")
            xml.WriteCData(number)
            xml.WriteEndElement()

            xml.WriteStartElement("班级")
            xml.WriteCData(classroom)
            xml.WriteEndElement()

            xml.WriteStartElement("政治面貌")
            xml.WriteCData(face)
            xml.WriteEndElement()

            xml.WriteStartElement("联系方式")
            xml.WriteCData(moblie)
            xml.WriteEndElement()

            xml.WriteEndDocument()

            xml.Flush()
            xml.Close()
        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            SavePath = OpenFileDialog1.FileName
        End If

        Try
            Dim doc As XmlDocument = New XmlDocument
            Dim path As String = SavePath
            doc.Load(path)

            Dim name As String = doc.GetElementsByTagName("姓名").Item(0).InnerText
            Dim number As String = doc.GetElementsByTagName("学号").Item(0).InnerText
            Dim classroom As String = doc.GetElementsByTagName("班级").Item(0).InnerText
            Dim face As String = doc.GetElementsByTagName("政治面貌").Item(0).InnerText
            Dim mobile As String = doc.GetElementsByTagName("联系方式").Item(0).InnerText

            TextBox1.Text = name
            TextBox2.Text = number
            TextBox3.Text = classroom
            TextBox4.Text = face
            TextBox5.Text = mobile

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Dim close As DialogResult
        close = MsgBox("确定关闭窗口？", MsgBoxStyle.OkCancel, "提示")
        If close = 2 Then
            e.Cancel = True
        End If
    End Sub
End Class