MS

app/DD-Record-Organiser/frmMain.vb

@@ -9,8 +9,8 @@ Imports System.Globalization
 Imports System.Net
 Imports System.Net.Sockets
 
-
 Public Class frmMain
+
     Dim strIPAddress As String
     Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
 
@@ -115,7 +115,12 @@ Public Class frmMain
                 If Task_Popup_minutes <> 0 Then
                     TimerTasks.Interval = Task_Popup_minutes * 60000
                 End If
-
+                If USER_PERSONIFIED_TEST = True Then
+                    StatusPersonifiedLogin.Visibility = BarItemVisibility.Always
+                Else
+                    StatusPersonifiedLogin.Visibility = BarItemVisibility.Never
+                End If
+                TimerInformation.Start()
             Catch ex As Exception
                 MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End Try
@@ -742,9 +747,7 @@ Public Class frmMain
         If ERROR_INIT <> "INVALID USER" Then
             Dim cultureInfo As System.Globalization.CultureInfo
             cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
-
             cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
-
             Thread.CurrentThread.CurrentCulture = cultureInfo
             Thread.CurrentThread.CurrentUICulture = cultureInfo
             cultureInfo.DefaultThreadCurrentCulture = cultureInfo
@@ -889,4 +892,15 @@ Public Class frmMain
     Private Sub BarButtonItem25_ItemClick_1(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem25.ItemClick
         OpenStatisticsADDI()
     End Sub
+
+    Private Sub TimerInforamtion_Tick(sender As Object, e As EventArgs) Handles TimerInformation.Tick
+        If CURRENT_NOTIFICATION_MSG <> String.Empty Then
+            Dim caption = "Information Dateiimport"
+            If USER_LANGUAGE <> "de-DE" Then
+                caption = "Information File-Import"
+            End If
+            NotifyIcon.ShowBalloonTip(30000, caption, CURRENT_NOTIFICATION_MSG, ToolTipIcon.Info)
+            CURRENT_NOTIFICATION_MSG = ""
+        End If
+    End Sub
 End Class