在VB.NET中使用LINQ向现有XML文件添加元素

加载时，我的程序执行以下代码以确定XML文件是否已存在，如果不存在，则创建一个：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If IO.File.Exists("Dictionary.xml") = False Then

        Dim Dictionary As XDocument = <?xml version="1.0" encoding="utf-8"?>
                                      <Root></Root>

            MessageBox.Show("XML dictionary file created.")
    End If
End Sub

Private Sub Form1\u Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
如果IO.File.Exists（“Dictionary.xml”）=False，则
Dim Dictionary作为XDocument=
Show（“创建了XML字典文件”）
如果结束
端接头

然后，我尝试从4个文本框中获取用户输入，并为每个单词添加到这个xml文件中。到目前为止，我还没有找到一个好的例子来说明如何做到这一点

    Private Sub Save_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_Data.Click

    Dim Dictionary As XDocument = XDocument.Load("Dictionary.xml")
    Dictionary.Add
    <Word>
        <English>Textbox1.Text</English>
        <Transcription>Textbox2.Text</Transcription>
        <Meaning>Textbox3.Text</Meaning>
        <Sound>Textbox4.Text</Sound>
    </Word>

End Sub

Private Sub Save_Data_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理保存数据。单击
Dim Dictionary作为XDocument=XDocument.Load（“Dictionary.xml”）
字典。添加
Textbox1.Text
Textbox2.Text
Textbox3.Text
Textbox4.Text
端接头

Dictionary.Root.Add( _
    New XElement("Word",Textbox1.Text, _
        New XElement("English",Textbox1.Text), _
        New XElement("Transcription",Textbox2.Text), _ 
        New XElement("Meaning",Textbox3.Text), _ 
        New XElement("Sound",Textbox4.Text))