MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -72,6 +72,7 @@ Public Class frmFlowForm
         ABN_FULLSCREENAPP
         ABN_WINDOWARRANGE
     End Enum
+    Public LOAD_SIDEBAR_DATA As Boolean = False
 #End Region
 #Region "Sidebar Enum Properties Register"
     Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
@@ -242,8 +243,8 @@ Public Class frmFlowForm
             End If
 
             ' === Setup Timers ===
-            AddHandler TimerRefreshData.Tick, AddressOf TimerRefreshData_Tick
-            TimerRefreshData.Enabled = True
+            AddHandler TimerRefreshSidebarData.Tick, AddressOf TimerRefreshSidebarData_Tick
+            TimerRefreshSidebarData.Enabled = True
 
             ' === Setup Event Handlers ===
             AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
@@ -259,12 +260,7 @@ Public Class frmFlowForm
                 End If
             Next
 
-            Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
-            Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
-
-            GridControl1.DataSource = AccessedFilesTable
-            colPrimary.FieldName = "DisplayFileName"
-            colSecondary.FieldName = "Changed when"
+            Load_Recent_Files
 
             If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then
                 Try
@@ -395,7 +391,18 @@ Public Class frmFlowForm
             SHAppBarMessage(ABMsg.ABM_REMOVE, AppDeskData)
         End If
     End Sub
+    Async Sub Load_Recent_Files()
+        Try
+            Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
+            Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
 
+            GridControl1.DataSource = AccessedFilesTable
+            colPrimary.FieldName = "DisplayFileName"
+            colSecondary.FieldName = "Changed when"
+        Catch ex As Exception
+            ShowErrorMessage(ex)
+        End Try
+    End Sub
     Public Sub Init_Folderwatch()
         Try
             Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId
@@ -463,10 +470,6 @@ Public Class frmFlowForm
 
     End Sub
 
-    Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs)
-        'TODO: Refresh Data
-    End Sub
-
     Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
         If e.KeyCode = Keys.Escape Then
             If RunningTask IsNot Nothing Then
@@ -542,8 +545,8 @@ Public Class frmFlowForm
 
     Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
         If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
-            'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
-            PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
+            PictureEdit2.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3
+            'PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
         Else
             'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP2
             PictureEdit2.Image = My.Resources.ZooFlow_drop_drag
@@ -1242,5 +1245,12 @@ Public Class frmFlowForm
             End Try
         End If
     End Sub
+
+    Private Sub TimerRefreshSidebarData_Tick(sender As Object, e As EventArgs) Handles TimerRefreshSidebarData.Tick
+        If LOAD_SIDEBAR_DATA = True Then
+            Load_Recent_Files()
+        End If
+
+    End Sub
 End Class