neu

Aviso/frmHauptfenster.vb

@@ -150,6 +150,8 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+
+
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         Me.AutoScaleMode = AutoScaleMode.Dpi
         hideErr.Interval = 3000
@@ -253,7 +255,7 @@ Public Class frmHauptfenster
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "ATILLA" ' Case "VERAG", "IMEX"
-                lklErweitereSuche.Visible = False
+                lblErweitereSuche.Visible = False
                 MDMParkplatzkartenToolStripMenuItem.Visible = False
 
                 Button10.Visible = False
@@ -596,7 +598,7 @@ Public Class frmHauptfenster
             '.Columns(12).HeaderText = "Änderungen"
 
             initDauerLKWFertig()
-
+            ._TRANSLATE()
         End With
     End Sub
 
@@ -1102,7 +1104,7 @@ Public Class frmHauptfenster
                 .Columns("AvisoTVHinweis").Visible = False ' = 60
                 .Columns("Dauer").Visible = False ' = 60
 
-         
+
                 .Columns("Datum").Visible = False     'Mitarb. nicht anzeigen
                 '.Columns("Datum").Width = 145 '115
                 '.Columns("Datum").HeaderText = "Erfasst"
@@ -1284,6 +1286,7 @@ Public Class frmHauptfenster
                 '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
                 .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                 .ClearSelection()
+                ._TRANSLATE()
             End With
 
         Catch ex As Exception
@@ -2330,6 +2333,7 @@ Public Class frmHauptfenster
 
         End If
         tbcntrAviso.Width = Panel1.Width
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
     End Sub
 
     WithEvents timerStart As New Timer
@@ -2930,7 +2934,7 @@ Public Class frmHauptfenster
 
 
 
-    Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklErweitereSuche.LinkClicked
+    Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblErweitereSuche.LinkClicked
         initPnlSearch()
     End Sub
     Sub initPnlSearch()
@@ -3578,6 +3582,24 @@ Public Class frmHauptfenster
         Dim frmSecretAviso As New frmSecretAviso
         frmSecretAviso.Show(Me)
     End Sub
+
+    Private Sub DeutschToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeutschToolStripMenuItem.Click
+        If True Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE"
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub
+
+    Private Sub TürkischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TürkischToolStripMenuItem.Click
+        If True Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "TR"
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions