>Public Shared Sub XML_SaveUserInfo(ByVal fileName As String, _
> ByVal userId As Integer, ByVal firstName As String, _
> ByVal lastName As String)
> Dim xmlDocument As System.Xml.XmlDocument = _
> New System.Xml.XmlDocument
> '-----------------------------------------
> 'Добавить элемент документа высшего уровня
> '-----------------------------------------
> Dim rootNodeForDocument As System.Xml.XmlElement
> rootNodeForDocument = xmlDocument.CreateElement( _
> XML_ROO T_TAG)
> xmlDocument.AppendChild(rootNodeForDocument)
> '----------------------------------
> 'Добавить данные в элемент UserInfo
> '----------------------------------
> Dim topNodeForUserData As System.Xml.XmlElement
> topNodeForUserData = xmlDocument.CreateElement( _
> XML_USERINFO_TAG)
> rootNodeForDocument.AppendChild(topNodeForUserData)
> '---------------------------------------
> 'Добавить значение UserID в наш документ
> '---------------------------------------
> 'Создать подузел для информации о пространстве имен
> Dim subNodeForUserID As System.Xml.XmlElement
> subNodeForUserID = _
> xmlDocument.CreateElement(XML_USERID_TAG)
> subNodeForUserID.InnerText = _
> System.Convert.ToString(userId)
> 'Присоединить подузел UserID к узлу высшего уровня
> topNodeForUserData.AppendChild(subNodeForUserID)
> '---------------------------------------------
> 'Добавить все значения NameInfo в наш документ
> '---------------------------------------------
> 'Создать подузел для информации о пространстве имен
> Dim subNodeForNameInfo As System.Xml.XmlElement
> subNodeForNameInfo = xmlDocument.CreateElement( _
> XML_NAMEINFO_TAG)
> 'Имя (FirstName)
> Dim subNodeFirstName As System.Xml.XmlElement
> subNodeFirstName = xmlDocument.CreateElement( _
> XML_FIRSTNAME TAG)
> subNodeFirstName.InnerText = firstName
> 'Фамилия (LastName)
> Dim subNodeLastName As System.Xml.XmlElement
> subNodeLastName = xmlDocument.CreateElement( _
> XML_LASTNAME_TAG)
> subNodeLastName.InnerText = lastName
> 'Присоединить подузлы имени и фамилии к родительскому узлу
> 'NameInfo
> subNodeForNameInfo.AppendChild(subNodeFirstName)
> subNodeForNameInfo.AppendChild(subNodeLastName)
> 'Присоединить подузел NameInfo (вместе с его дочерними узлами)
> 'к узлу высшего уровня
> topNodeForUserData.AppendChild(subNodeForNameInfo)
> '------------------
> 'Сохранить документ
> '------------------
> Try
> xmlDocument.Save(fileName)
> Catch ex As System.Exception
> MsgBox( _
> "Ошибка при сохранении XML-документа - " + ex.Message)
> End Try
>End Sub 'Конец функции
>End Class 'Конец класса
Листинг 10.2. Вызов кода, предназначенного для сохранения и загрузки XML-документа