requestdetail.vb

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

Imports System.IO
Imports System.Xml

Public Class Requestdetail
    Public ProductID As Integer
    Public Quantity As Integer

    Public Sub WriteXML(ByVal writer As XmlTextWriter)
        writer.WriteStartElement("Detail")
        writer.WriteElementString("ProductID", ProductID)
        writer.WriteElementString("Quantity", Quantity)
        writer.WriteEndElement()
    End Sub

    Public Sub ReadXML(ByVal reader As XmlTextReader)
        Do While reader.Read
            Select Case reader.NodeType
                Case XmlNodeType.Element
                    Select Case reader.Name
                        Case "ProductID"
                            reader.Read()
                            Me.ProductID = reader.Value
                        Case "Quantity"
                            reader.Read()
                            Me.Quantity = reader.Value
                    End Select
                Case XmlNodeType.EndElement
                    If reader.Name = "Detail" Then
                        Return
                    End If
            End Select
        Loop
    End Sub
End Class