address.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 57 行

Imports System.IO
Imports System.Xml

Public Class Address
    Public Name As String
    Public Address As String
    Public City As String
    Public Region As String
    Public PostalCode As String
    Public Country As String

    Public Sub WriteXML(ByVal elementName As String, _
    ByVal writer As XmlTextWriter)
        writer.WriteStartElement(elementName)
        writer.WriteElementString("Name", Name)
        writer.WriteElementString("Address", Address)
        writer.WriteElementString("City", City)
        writer.WriteElementString("Region", Region)
        writer.WriteElementString("PostalCode", PostalCode)
        writer.WriteElementString("Country", Country)
        writer.WriteEndElement()
    End Sub

    Public Sub ReadXML(ByVal reader As XmlTextReader, _
    ByVal elementName As String)
        Do While reader.Read
            Select Case reader.NodeType
                Case XmlNodeType.Element
                    Select Case reader.Name
                        Case "Name"
                            reader.Read()
                            Me.Name = reader.Value
                        Case "Address"
                            reader.Read()
                            Me.Address = reader.Value
                        Case "City"
                            reader.Read()
                            Me.City = reader.Value
                        Case "Region"
                            reader.Read()
                            Me.Region = reader.Value
                        Case "PostalCode"
                            reader.Read()
                            Me.PostalCode = reader.Value
                        Case "Country"
                            reader.Read()
                            Me.Country = reader.Value
                    End Select
                Case XmlNodeType.EndElement
                    If reader.Name = elementName Then
                        Return
                    End If
            End Select
        Loop
    End Sub
End Class