VB.Net/XML/XML Attribute

Материал из VB Эксперт
Версия от 15:42, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Use XmlElementAttribute and XmlAttributeAttribute

<source lang="vbnet"> Imports System.Xml Imports System.Xml.Serialization Imports System.IO

Public Class MainClass

  Public Shared Sub Main()
       Dim serialize As XmlSerializer = _
           New XmlSerializer(GetType(Product))
       Dim MyMovieOrder As Product = _
           New Product("PC", 101, 10)
       serialize.Serialize(Console.Out, MyMovieOrder)
  End Sub

End Class

Public Class Product

   <XmlElementAttribute("Name")> Public name As String
   <XmlAttributeAttribute("ID")> Public filmId As Integer
   <XmlAttributeAttribute("count")> Public quantity As Integer
   Public Sub New()
   End Sub
   Public Sub New(ByVal name As String, _
                  ByVal filmId As Integer, _
                  ByVal quantity As Integer)
       Me.name = name
       Me.filmId = filmId
       Me.quantity = quantity
   End Sub

End Class

      </source>