MS FlowSearch EDMIService ObjectAdd

GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb

@@ -456,6 +456,7 @@ Partial Class frmFlowSearch
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Flow
+        Me.KeyPreview = True
         Me.Name = "frmFlowSearch"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1

GUIs.ZooFlow/Search/frmFlowSearch.vb

@@ -75,20 +75,7 @@ Public Class frmFlowSearch
     End Sub
 
     Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearchTerm.TextChanged
-        Try
 
-            If txtSearchTerm.Text = String.Empty Then
-                Reset_Form()
-                Exit Sub
-            End If
-            lblFoundResult.Visible = False
-            Start_FlowSearch()
-
-        Catch ex As Exception
-            lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log"
-            lblFoundResult.Visible = True
-            Logger.Error(ex)
-        End Try
     End Sub
     Sub Reset_Form()
         TileControlMatch.Groups.Clear()
@@ -146,9 +133,11 @@ Public Class frmFlowSearch
                 oNewTable = oNewTable.DefaultView.ToTable
 
                 '#### CREATE THE GROUPS FOR EACH ATTRIBUTE ####
+                Dim oCountGroup As Int16 = 0
                 For Each oGroupRow As DataRow In oNewTable.Rows
+                    oCountGroup += 1
                     Dim oGroup As New TileGroup
-                    oGroup.Text = $"{oGroupRow.Item(0).ToString} ({oGroupRow.Item(1).ToString} {Language_Term_Object})"
+                    oGroup.Text = $"[{oCountGroup}] {oGroupRow.Item(0).ToString} ({oGroupRow.Item(1).ToString} {Language_Term_Object})"
                     oGroup.Tag = oGroupRow.Item(0)
                     oGroup.Visible = True
                     For Each oitemRow As DataRow In oResultsfromSearchDT.Rows
@@ -259,7 +248,7 @@ Public Class frmFlowSearch
     End Function
     Private Function GetResultString(CountObjects As Integer, CountAttribute As Integer, SearchContent As String) As String
         Dim oResultString = $"wurden {CountObjects} Objekte" ' IIf(CountAttribute = 1, $"wurden {CountObjects} Objekte", $"wurden {CountObjects} Objekte in {CountAttribute} Attributen")
-        Dim oProfileString = IIf(CountAttribute = 1, "einem Attribut", $"{CountAttribute} Attributen")
+        Dim oProfileString = IIf(CountAttribute = 1, "[einem] Attribut", $"[{CountAttribute}] Attributen")
         Dim oBase = "Es {0} in {1} für Ihre Suche nach '{2}' gefunden:"
 
         Return String.Format(oBase, oResultString, oProfileString, SearchContent)
@@ -538,5 +527,22 @@ Public Class frmFlowSearch
         Start_FlowSearch()
     End Sub
 
+    Private Sub txtSearchTerm_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSearchTerm.KeyUp
+        If e.KeyCode = Keys.Return Then
+            Try
+                If txtSearchTerm.Text = String.Empty Then
+                    Reset_Form()
+                    Exit Sub
+                End If
+                lblFoundResult.Visible = False
+                Start_FlowSearch()
 
+            Catch ex As Exception
+                lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log"
+                lblFoundResult.Visible = True
+                Logger.Error(ex)
+            End Try
+        End If
+
+    End Sub
 End Class