Using the last project I gave you.
Remove all nodes
Code:
Private Sub cmdRemoveAll_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdRemoveAll.Click
If (MessageBox.Show("Remove all nodes?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = MsgBoxResult.Yes) Then
Dim Document As New XDocument
Document = XDocument.Load(EntryFile)
Dim Items = (From T In Document...<Entries>).FirstOrDefault
If Items IsNot Nothing Then
Items.RemoveAll()
Document.Save(EntryFile)
bsData.DataSource = New List(Of Person)
End If
End If
End Sub
Count all elements which you can then make an informed decision whether to allow more elements to be added or not.
Code:
Dim Document As New XDocument
Document = XDocument.Load(EntryFile)
Dim PersonCount = (From T In Document...<Entry> Select T).Count