update ui

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -234,7 +234,7 @@ Public Class ClassInit
         End Try
     End Sub
 
-    Public Shared Sub Refresh_Profile_Links()
+    Public Shared Function Refresh_Profile_Links() As String
         Dim oWhereClause = $"T1.USER_ID = {USER_ID} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {USER_ID}))"
 
         Dim ProfileSQL As String = $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}"
@@ -246,8 +246,7 @@ Public Class ClassInit
             DT_USER_PROFILES = Database.GetDatatable(ProfileSQL)
 
             If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
-                MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
-                Exit Sub
+                Return "Es wurden noch keine Profile für den aktuellen Benutzer konfiguriert."
             End If
 
             DTPROFILE_REL_PROCESS = Database.GetDatatable(oProcessSQL)
@@ -256,6 +255,9 @@ Public Class ClassInit
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
+            Return "Fehler bei Aktualisierung!"
         End Try
-    End Sub
+
+        Return "Aktualisierung erfolgreich."
+    End Function
 End Class