Common: ObjectPropertyDialog

GUIs.ZooFlow/Search/frmFlowSearch1.vb

@@ -40,11 +40,20 @@ Public Class frmFlowSearch1
         TOGGLE_Change = False
     End Sub
 
-    Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchYear.Toggled, ToggleSwitchYear_Last.Toggled,
-        ToggleSwitchMonth_Last.Toggled, ToggleSwitchMonth.Toggled, ToggleSwitchLastWeek.Toggled, ToggleSwitchTomorrow.Toggled
+    Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles _
+        ToggleSwitchToday.Toggled,
+        ToggleSwitchYesterday.Toggled,
+        ToggleSwitchYear.Toggled,
+        ToggleSwitchYear_Last.Toggled,
+        ToggleSwitchMonth_Last.Toggled,
+        ToggleSwitchMonth.Toggled,
+        ToggleSwitchLastWeek.Toggled,
+        ToggleSwitchTomorrow.Toggled
+
         If TOGGLE_Change = True Then
             Exit Sub
         End If
+
         Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
 
         If oToggle.IsOn Then
@@ -268,6 +277,9 @@ Public Class frmFlowSearch1
                     .Datatable = oDTDocResult
                 })
                 Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
+
+                AddHandler oForm.NeedsRefresh, AddressOf Form_NeedsRefresh
+
                 oForm.Show()
             Else
                 bsiStatus.Caption = "No Results"
@@ -277,6 +289,10 @@ Public Class frmFlowSearch1
         End If
     End Function
 
+    Private Sub Form_NeedsRefresh(sender As Object, e As Integer)
+
+    End Sub
+
     Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp
         If e.KeyCode = Keys.Return Then
             If txtSearchInput.Text = String.Empty Then
@@ -347,8 +363,4 @@ Public Class frmFlowSearch1
         End If
 
     End Sub
-
-    Private Sub DockPanel1_Click(sender As Object, e As EventArgs) Handles DockPanel1.Click
-
-    End Sub
 End Class