105 lines
2.7 KiB
VB.net
105 lines
2.7 KiB
VB.net
Public Class ClassLicense
|
|
|
|
Private _modulename As String
|
|
Private _expires As Date
|
|
Private _Typ As String
|
|
Private _anzProf As String
|
|
|
|
|
|
' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
''' <summary>
|
|
''' Konstruktor der Lizenz
|
|
''' </summary>
|
|
''' <param name="modulename">Name des Moduls</param>
|
|
''' <param name="expires">Gültigkeitsdatum der Lizenz</param>
|
|
''' <remarks></remarks>
|
|
Sub New(ByVal modulename As String, ByVal expires As Date, ByVal _type As String, ByVal _anzprofile As String)
|
|
Me._modulename = modulename
|
|
Me._expires = expires
|
|
Me._Typ = _type
|
|
Me._anzProf = _anzprofile
|
|
End Sub
|
|
|
|
|
|
' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
''' <summary>
|
|
''' Liefert oder setzt den Namen des Moduls für diese Lizenz
|
|
''' </summary>
|
|
''' <value></value>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Property Modulename() As String
|
|
Get
|
|
Return Me._modulename
|
|
End Get
|
|
Set(ByVal value As String)
|
|
Me._modulename = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
''' <summary>
|
|
''' Liefert oder setzt das Gültigkeitsdatum der Lizenz für das Modul
|
|
''' </summary>
|
|
''' <value></value>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Property Expires() As Date
|
|
Get
|
|
Return Me._expires
|
|
End Get
|
|
Set(ByVal value As Date)
|
|
Me._expires = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
''' <summary>
|
|
''' Liefert ob die Lizenz schon abgelaufen ist
|
|
''' </summary>
|
|
''' <value></value>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public ReadOnly Property IsExpired()
|
|
Get
|
|
If Date.Today > Me._expires Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Liefert den Typend er Lizenz
|
|
''' </summary>
|
|
''' <value></value>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Property Type() As String
|
|
Get
|
|
Return Me._Typ
|
|
End Get
|
|
Set(ByVal value As String)
|
|
Me._Typ = value
|
|
End Set
|
|
End Property
|
|
''' <summary>
|
|
''' Liefert die Anzahl der Profile
|
|
''' </summary>
|
|
''' <value></value>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Property Anz_Profile() As String
|
|
Get
|
|
Return Me._anzProf
|
|
End Get
|
|
Set(ByVal value As String)
|
|
Me._anzProf = value
|
|
End Set
|
|
End Property
|
|
|
|
End Class
|