DocCount und anderes

app/DD_Clipboard_Searcher/frmProfileMatch.vb

@@ -12,9 +12,13 @@ Public Class frmProfileMatch
         If My.Settings.frmProfileMatchSize.IsEmpty = False Then
             Size = My.Settings.frmProfileMatchSize
         End If
-
+        If USER_LANGUAGE = "de-DE" Then
+            Me.Label1.Text = $"Clipboard Watcher hat mehr als einen Match für Ihre Suche [{CURR_MATCH_RESULT}] gefunden:"
+        Else
+            Me.Label1.Text = $"Clipboard Watcher found more than on match for Your search [{CURR_MATCH_RESULT}]:"
+        End If
         CreateTiles()
-        CurrSearch2Load = Nothing
+        CurrDocSearch2Load = Nothing
     End Sub
 
     Sub CreateTiles()
@@ -23,6 +27,7 @@ Public Class frmProfileMatch
             Dim oSecondaryFont As New Font("Segoe UI", 10)
 
             Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles")
+            oGroup.Items.Clear()
 
             For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
                 Dim oItem As New TileItem() With {.Tag = oRow.Item("GUID")}
@@ -40,6 +45,21 @@ Public Class frmProfileMatch
                 oCommentElement.Appearance.Normal.Font = oSecondaryFont
                 oItem.Elements.Add(oCommentElement)
 
+                Dim oCountElement = New TileItemElement()
+                oCountElement.TextAlignment = TileItemContentAlignment.BottomRight
+                oCountElement.Appearance.Normal.Font = oSecondaryFont
+                Dim oText As String
+                If oRow.Item("COUNT") = 99999 Then
+                    oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!"
+                ElseIf oRow.Item("COUNT") = 99998 Then
+                    oText = "DocCount (MatchCountConfig has not been configured)"
+                Else
+                    oText = $"{oRow.Item("COUNT")} files!"
+                End If
+
+                oCountElement.Text = oText
+                oItem.Elements.Add(oCountElement)
+
                 oGroup.Items.Add(oItem)
             Next
         Catch ex As Exception
@@ -48,11 +68,13 @@ Public Class frmProfileMatch
     End Sub
 
     Sub OpenResults_Doc()
-        Me.Hide()
         Dim ofrmresult As Form = New frmResultDoc
-        ofrmresult.ShowDialog()
+        ofrmresult.Show()
+    End Sub
+    Sub OpenResults_Data()
+        Dim ofrmresult As Form = New frmResultSQL
+        ofrmresult.Show()
     End Sub
-
 
     Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
@@ -83,11 +105,27 @@ Public Class frmProfileMatch
                     oResult &= "," & oRow.Item("GUID")
                 End If
             Next
-            CurrSearch2Load = oResult
+            CurrDocSearch2Load = oResult
+            CurrDataSearch2Load = oResult
         Else
-            CurrSearch2Load = oProfileId
+            CurrDocSearch2Load = oProfileId
+            CurrDataSearch2Load = oProfileId
         End If
 
         OpenResults_Doc()
+        OpenResults_Data()
+        Me.Hide()
+    End Sub
+
+    Private Sub frmProfileMatch_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
+        If Me.Visible = True Then
+            If CurrSearchOpen = True Then
+
+            End If
+        Else
+            If CurrSearchOpen = True Then
+
+            End If
+        End If
     End Sub
 End Class