Zooflow: Administration User

GUIs.ZooFlow/frmFlowForm.vb

@@ -17,6 +17,8 @@ Imports DigitalData.GUIs.Common
 Imports DigitalData.Controls.SQLConfig
 Imports DigitalData.Modules.Language
 Imports DevExpress.LookAndFeel
+Imports System.Threading.Tasks
+Imports System.Threading
 
 Public Class frmFlowForm
 #Region "Sidebar DllImport"
@@ -178,6 +180,11 @@ Public Class frmFlowForm
     Private IndexForm As frmGlobix_Index
     Private AdminForm As frmAdmin_Start
 
+
+    Private RunningTask As Task
+    Private RunningTaskTokenSource As New CancellationTokenSource
+    Private RunningTaskToken = RunningTaskTokenSource.Token
+
     ' Events
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
     Private WithEvents HotkeyClass As Hotkey
@@ -317,7 +324,7 @@ Public Class frmFlowForm
             End If
 
 
-            Dim oPMPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
+            'Dim oPMPath = Modules.GetProductPath(DigitalData.Modules.Base.ECM.Product.ProcessManager)
 
 
             ' TODO: This needs an update of the function FNZF_GET_MODULE_INFO
@@ -456,14 +463,15 @@ Public Class frmFlowForm
 
     Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
         If e.KeyCode = Keys.Escape Then
-            If ESCHitCount > 0 Then
-                ExitZooflow()
+            If RunningTask IsNot Nothing Then
+                RunningTaskTokenSource.Cancel()
+
             Else
-                ESCHitCount += 1
-            End If
-        ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then
-            If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then
-                MsgBox("Search")
+                If ESCHitCount > 0 Then
+                    ExitZooflow()
+                Else
+                    ESCHitCount += 1
+                End If
             End If
         End If
     End Sub
@@ -1128,6 +1136,15 @@ Public Class frmFlowForm
         End If
     End Function
 
+    Async Function GetSearchResults(pSearchText As String) As Task
+        Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{pSearchText}',''"
+        Await My.Database.GetDatatableIDBAsync(DocResultBaseSearch)
+    End Function
+
+    Async Function RunQuickSearch2(pSearchText As String, pToken As CancellationToken) As Task
+
+    End Function
+
     Async Function RunQuickSearch1(pSearchText As String) As Threading.Tasks.Task
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
 
@@ -1185,11 +1202,18 @@ Public Class frmFlowForm
         Dim oSearchText = TextEdit1.Text
 
         If oSearchText <> String.Empty Then
-            'If TextEdit1.Text = "porn" Then
-            '    NotifyIcon.ShowBalloonTip(20000, $"Info", "Think about Your search term an search again..", ToolTipIcon.Info)
-            '    Exit Sub
-            'End If
-            Await RunQuickSearch1(oSearchText)
+            Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+            Dim oToken = RunningTaskTokenSource.Token
+
+            Try
+                Await RunQuickSearch1(oSearchText)
+
+            Catch ex As Exception
+                ShowErrorMessage(ex)
+            Finally
+                RunningTask = Nothing
+                SplashScreenManager.CloseOverlayForm(oHandle)
+            End Try
         End If
     End Function
     Private Async Function PictureEdit1_Click(sender As Object, e As EventArgs) As Threading.Tasks.Task Handles PictureEdit1.Click
@@ -1237,9 +1261,5 @@ Public Class frmFlowForm
     Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemGlobixGE.ItemClick
         frmGlobixBasicConfig.ShowDialog()
     End Sub
-
-    Private Sub frmFlowForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-
-    End Sub
 End Class