Async Loading of Profile Documents and Monitor Data

app/DD_PM_WINDREAM/frmMonitor.vb

@@ -134,9 +134,12 @@ Public Class frmMonitor
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadDoc:")
         End Try
     End Sub
-    Private Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
         SplitContainerControlMain.Collapsed = True
-        Load_Grid_Data()
+
+        GridView1.ShowLoadingPanel()
+        Await Load_Grid_Data()
+        GridView1.HideLoadingPanel()
 
         Select Case DT_MONITOR_KONFIG.Rows.Count
             Case 2
@@ -164,7 +167,7 @@ Public Class frmMonitor
             LOGGER.Error(ex)
         End Try
     End Sub
-    Sub Load_Grid_Data()
+    Async Function Load_Grid_Data() As Threading.Tasks.Task
         Try
             FormShown = False
             Dim oSQL = "SELECT * FROM TBPM_MONITOR_KONFIG"
@@ -173,7 +176,7 @@ Public Class frmMonitor
                 If DT_MONITOR_KONFIG.Rows.Count >= 1 Then
                     oSQL = DT_MONITOR_KONFIG.Rows(0).Item("GRID_SQL")
                     GridView1.Columns.Clear()
-                    Dim oDTGRID1 As DataTable = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data2")
+                    Dim oDTGRID1 As DataTable = Await ClassDatabase.Return_DatatableAsync(oSQL, "Monitor-Load_Grid_Data2")
                     GridControl1.DataSource = oDTGRID1
 
                     GRID1_TITLE = DT_MONITOR_KONFIG.Rows(0).Item("GRID_TITLE")
@@ -216,7 +219,7 @@ Public Class frmMonitor
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load_Grid_Data:")
         End Try
-    End Sub
+    End Function
     Sub LoadGrid1Layout()
         Try
             Dim Filename As String = String.Format("DevExpressGridViewMonitor_UserLayout_Grid1.xml")
@@ -464,7 +467,7 @@ Public Class frmMonitor
 
     End Sub
 
-    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+    Private Async Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
         Select Case DT_MONITOR_KONFIG.Rows.Count
             Case 2
                 RemoveLayout()
@@ -479,6 +482,9 @@ Public Class frmMonitor
                 RemoveLayout3()
                 RemoveLayout4()
         End Select
-        Load_Grid_Data()
+
+        GridView1.ShowLoadingPanel()
+        Await Load_Grid_Data()
+        GridView1.HideLoadingPanel()
     End Sub
 End Class