'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System.Xml.Serialization Imports System.ComponentModel Imports System.CodeDom.Compiler ' 'This source code was auto-generated by xsd, Version=4.6.1586.0. ' ''' Partial Public Class LicenseSchema Private modulesField() As LicenseModule ''' Public Property Modules() As LicenseModule() Get Return Me.modulesField End Get Set Me.modulesField = Value End Set End Property End Class ''' Partial Public Class LicenseModule Private usersField() As LicenseModuleUser Private nameField As String Private validUntilField As Date Private validUntilFieldSpecified As Boolean ''' Public Property Users() As LicenseModuleUser() Get Return Me.usersField End Get Set Me.usersField = Value End Set End Property ''' Public Property Name() As String Get Return Me.nameField End Get Set Me.nameField = Value End Set End Property ''' Public Property ValidUntil() As Date Get Return Me.validUntilField End Get Set Me.validUntilField = Value End Set End Property ''' Public Property ValidUntilSpecified() As Boolean Get Return Me.validUntilFieldSpecified End Get Set Me.validUntilFieldSpecified = Value End Set End Property End Class ''' Partial Public Class LicenseModuleUser Private typeField As UserType Private countField As String Private testField As Boolean Private validUntilField As Date Private validUntilFieldSpecified As Boolean Public Sub New() MyBase.New Me.testField = True End Sub ''' Public Property Type() As UserType Get Return Me.typeField End Get Set Me.typeField = Value End Set End Property ''' Public Property Count() As String Get Return Me.countField End Get Set Me.countField = Value End Set End Property ''' Public Property Test() As Boolean Get Return Me.testField End Get Set Me.testField = Value End Set End Property ''' Public Property ValidUntil() As Date Get Return Me.validUntilField End Get Set Me.validUntilField = Value End Set End Property ''' Public Property ValidUntilSpecified() As Boolean Get Return Me.validUntilFieldSpecified End Get Set Me.validUntilFieldSpecified = Value End Set End Property End Class ''' Public Enum UserType ''' PowerUser ''' [ReadOnly] ''' [WriteOnly] ''' ReadWrite End Enum