jj 26.06

Global_Indexer/frmLicense.vb

@@ -1,6 +1,8 @@
-Imports DLLLicenseManager
+Imports System.Resources
+Imports DLLLicenseManager
 Public Class frmLicense
     Public _lizenzManager As ClassLicenseManager
+    Private LocRM As ResourceManager
     Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
         If Me.txtPW.Text <> "" Then
             If Me.txtPW.Text = "35452dd!" Then
@@ -11,7 +13,8 @@ Public Class frmLicense
                 Me.btnPW_check.Visible = False
             Else
                 Me.grbBoxlicense.Visible = False
-                MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
+                'MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
+                MsgBox(LocRM.GetString("PasswortStimmtNicht"), MsgBoxStyle.Critical, LocRM.GetString("FalseEingabe"))
                 Me.txtPW.Text = ""
                 Me.txtPW.Focus()
             End If
@@ -55,9 +58,9 @@ Public Class frmLicense
             txtNewlicences.Text = lizenzzahl
             dtpGueltig_GI.Value = split(1)
             If CDate(split(1)) < CDate(Now.ToShortDateString) Then
-                License_Expired = True
+                LICENSE_EXPIRED = True
             Else
-                License_Expired = False
+                LICENSE_EXPIRED = False
             End If
 
             txtProfile.Text = split(2)
@@ -68,10 +71,10 @@ Public Class frmLicense
                 txtHotKey.Text = 0
             End Try
 
-            Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl
+            Me.lblAktuelleLizenzen.Text = LocRM.GetString("AnzahlLizenzen") & lizenzzahl
             If Neu = True Then
                 If CInt(lizenzzahl) > 0 Then
-                    MsgBox("Die Lizenz wurde aktualisiert!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                    MsgBox(LocRM.GetString("LizenzAktualisiert"), MsgBoxStyle.Information, LocRM.GetString("Erfolgsmeldung"))
                 End If
             End If
         Catch ex As Exception
@@ -81,6 +84,7 @@ Public Class frmLicense
 
     Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         Try
+            LocRM = New ResourceManager("Global_Indexer._frmLicense", GetType(frmLicense).Assembly)
             grbBoxlicense.Visible = False
             Me.lblPW.Visible = True
             Me.txtPW.Visible = True