'------------------------------------------------------------------------------ ' ' 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 ' 'This source code was auto-generated by xsd, Version=4.6.1586.0. ' ''' _ Partial Public Class License 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