MS DEV SearchForm

GUIs.ZooFlow/frmFlowForm.vb

@@ -11,6 +11,9 @@ Public Class frmFlowForm
     Private ESCHitCount As Integer = 0
     Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default
 
+    Private DTIDB_SEARCHES As DataTable
+    Private IDBSearchActive As Boolean = False
+
     Const WS_EX_LAYERED As Int32 = &H80000
 
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
@@ -47,7 +50,7 @@ Public Class frmFlowForm
 
         AddHandler MouseClick, New MouseEventHandler(AddressOf Form_MouseClick)
         AddHandler MouseMove, New MouseEventHandler(AddressOf Form_MouseMove)
-        AddHandler KeyUp, New KeyEventHandler(AddressOf Form_KeyUp)
+        AddHandler KeyUp, AddressOf Form_KeyUp
 
         ' === Register As Event Listener ===
         EventBus.Instance.Register(Me)
@@ -59,6 +62,19 @@ Public Class frmFlowForm
             .Text = "yes"
         }
         Controls.Add(oButton)
+
+        Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({My.Application.User.UserId},'{My.Application.User.Language}')"
+        Dim oDT As DataTable = My.Database_IDB.GetDatatable(oSQL)
+        SucheToolStripMenuItem.Visible = False
+        If Not IsNothing(oDT) Then
+            If oDT.Rows.Count > 0 Then
+                IDBSearchActive = True
+                DTIDB_SEARCHES = oDT
+                SucheToolStripMenuItem.Visible = True
+            End If
+
+        End If
+
     End Sub
 
     Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed
@@ -226,4 +242,15 @@ Public Class frmFlowForm
     Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click
         frmFlowForm_Test1.Show()
     End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
+
+    End Sub
+
+    Private Sub SucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheToolStripMenuItem.Click
+        Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
+        oForm.Show()
+
+
+    End Sub
 End Class