[VB.NET] XML Attribute

[Ludder231]

Hi,

ich hab mit der XSD.exe von Microsoft mir ne vb Klasse erstellen lassen um XML zu serialisieren/deseralisieren.

Leider fehlen dort die Attribute.
Und ich bekomme es nicht hin die einzufügen in die Klasse.

 Spoiler

PHP Code:

Imports System.Xml.Serialization

<Serializable()>
<XmlRoot("nachricht")>
Public Class nachricht
    Private quittungField As New nachrichtQuittung

    Public Property quittung() As nachrichtQuittung
        Get
            Return Me.quittungField
        End Get
        Set(ByVal value As nachrichtQuittung)
            Me.quittungField = value
        End Set
    End Property
End Class

<Serializable()>
<XmlRoot("quittung")>
Public Class nachrichtQuittung
    Private nachrichtField As New nachrichtQuittungNachricht
    '''
    Public Property nachricht() As nachrichtQuittungNachricht
        Get
            Return Me.nachrichtField
        End Get
        Set(ByVal value As nachrichtQuittungNachricht)
            Me.nachrichtField = value
        End Set
    End Property
End Class

<Serializable()>
<XmlRoot("nachricht")>
Public Class nachrichtQuittungNachricht
    Private nrField As New nachrichtQuittungNachrichtNR
    Private statusField As New nachrichtQuittungNachrichtStatus
    Private empfaengerField As String
    Private senderField As String
    Private uhrzeitField As String
    Private datumField As String
    Private typField As String
    Private stringiField As String
    '''

    Public Property nr() As nachrichtQuittungNachrichtNR
        Get
            Return Me.nrField
        End Get
        Set(ByVal value As nachrichtQuittungNachrichtNR)
            Me.nrField = value
        End Set
    End Property
    '''
    Public Property status() As nachrichtQuittungNachrichtStatus
        Get
            Return Me.statusField
        End Get
        Set(ByVal value As nachrichtQuittungNachrichtStatus)
            Me.statusField = value
        End Set
    End Property
    '''
        _
    Public Property empfaenger() As String
        Get
            Return Me.empfaengerField
        End Get
        Set(ByVal value As String)
            Me.empfaengerField = value
        End Set
    End Property
    '''
        _
    Public Property sender() As String
        Get
            Return Me.senderField
        End Get
        Set(ByVal value As String)
            Me.senderField = value
        End Set
    End Property
    '''
        _
    Public Property uhrzeit() As String
        Get
            Return Me.uhrzeitField
        End Get
        Set(ByVal value As String)
            Me.uhrzeitField = value
        End Set
    End Property

    Public Property datum() As String
        Get
            Return Me.datumField
        End Get
        Set(ByVal value As String)
            Me.datumField = value
        End Set
    End Property



    Public Property typ() As String
        Get
            Return Me.typField
        End Get
        Set(ByVal value As String)
            Me.typField = value
        End Set
    End Property
    '''
        _
    Public Property stringi() As String
        Get
            Return Me.stringiField
        End Get
        Set(ByVal value As String)
            Me.stringiField = value
        End Set
    End Property
End Class
'''
     _
Public Class nachrichtQuittungNachrichtNR
    Private packRefField As String
    '''
    Public Property PackRef() As String
        Get
            Return Me.packRefField
        End Get
        Set(ByVal value As String)
            Me.packRefField = value
        End Set
    End Property
End Class
'''
     _
Public Class nachrichtQuittungNachrichtStatus
    Private codeField As String
    Private bezeichnungField As String
    Private uhrzeitField As String
    '''
    Public Property code() As String
        Get
            Return Me.codeField
        End Get
        Set(ByVal value As String)
            Me.codeField = value
        End Set
    End Property
    '''
    Public Property bezeichnung() As String
        Get
            Return Me.bezeichnungField
        End Get
        Set(ByVal value As String)
            Me.bezeichnungField = value
        End Set
    End Property
    '''
        _
    Public Property uhrzeit() As String
        Get
            Return Me.uhrzeitField
        End Get
        Set(ByVal value As String)
            Me.uhrzeitField = value
        End Set
    End Property
End Class 


Wenn ich bei den Private Variablen das <XmlAttribute("xxxx")> setzte funktionierts nicht