15-08-23

Connectors.Form/frmMain.vb

@@ -91,11 +91,9 @@ Partial Public Class frmMain
         Select Case pActiveModule
             Case "slt"
                 oSync = New slt.sltSync(LogConfig, Database, ConfigManager.Config)
-                AddHandler oSync.OnLogEntry, AddressOf Sync_OnLogEntry
 
             Case "Sharepoint"
                 oSync = New Sharepoint.SharepointSync(LogConfig, Database, ConfigManager.Config)
-                AddHandler oSync.OnLogEntry, AddressOf Sync_OnLogEntry
 
             Case Else
 
@@ -103,11 +101,32 @@ Partial Public Class frmMain
 
         End Select
 
+        AddHandler oSync.OnLogEntry, AddressOf Sync_OnLogEntry
+        AddHandler oSync.OnFileError, AddressOf Sync_OnFileError
+        AddHandler oSync.OnFileProcessed, AddressOf Sync_OnFileProcessed
+
         Return oSync
     End Function
 
-    Private Sub Sync_OnLogEntry(sender As Object, e As String)
-        AddInfoEntry(e)
+    Private Sub Sync_OnFileProcessed(sender As Object, e As String)
+        FilesProcessed += 1
+        txtFilesProcessed.Caption = String.Format("{0} Dateien", FilesProcessed)
+    End Sub
+
+    Private Sub Sync_OnFileError(sender As Object, e As String)
+        ErrorsOccurred += 1
+        txtErrorsOccurred.Caption = String.Format("{0} Fehler", ErrorsOccurred)
+    End Sub
+
+    Private Sub Sync_OnLogEntry(sender As Object, e As Tuple(Of String, BaseModule.LogLevel))
+        Select Case e.Item2
+            Case BaseModule.LogLevel.Info
+                AddInfoEntry(e.Item1)
+            Case BaseModule.LogLevel.Warn
+                AddWarnEntry(e.Item1)
+            Case BaseModule.LogLevel.Error
+                AddErrorEntry(e.Item1)
+        End Select
     End Sub
 
     Private Async Function frmMain_Closing(sender As Object, e As CancelEventArgs) As Threading.Tasks.Task Handles Me.Closing