AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: SearchRunner

Browse Source
This commit is contained in:
Jonathan Jenne
2022-06-14 16:32:19 +02:00
parent f167c6558a
commit 4f635ee2ea
3 changed files with 37 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
GUIs.ZooFlow/Search/SearchRunner.vb
View File

@@ -95,11 +95,7 @@ Namespace Search
End If
Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams)
' TODO: Implement, not needed right now
'AddHandler oForm.NeedsRefresh, AddressOf Form_NeedsRefresh
AddHandler oForm.FormClosed, AddressOf Form_Closed
AddEventHandlers(oForm)
oForm.Show()
Return New SearchResult(pDatatable.Rows.Count)
@@ -185,21 +181,7 @@ Namespace Search
End If
Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams)
' TODO: Implement
'AddHandler oForm.NeedsRefresh, AddressOf Form_NeedsRefresh
AddHandler oForm.FormClosed, AddressOf Form_Closed
' Only setup event if it is actually used
If NeedsNewSavedSearchEvent IsNot Nothing Then
AddHandler oForm.NeedsNewSavedSearch, AddressOf Form_NeedsNewSavedSearch
End If
' Only setup event if it is actually used
If NeedsRefreshEvent IsNot Nothing Then
AddHandler oForm.NeedsRefresh, AddressOf Form_NeedsRefresh
End If
AddEventHandlers(oForm)
oForm.Show()
Return New SearchResult(oRowCount)
@@ -213,6 +195,22 @@ Namespace Search
End If
End Function
Private Sub AddEventHandlers(pForm As frmDocumentResultList)
' TODO: Implement
'AddHandler pForm.NeedsRefresh, AddressOf Form_NeedsRefresh
AddHandler pForm.FormClosed, AddressOf Form_Closed
' Only setup event if it is actually used
If NeedsNewSavedSearchEvent IsNot Nothing Then
AddHandler pForm.NeedsNewSavedSearch, AddressOf Form_NeedsNewSavedSearch
End If
' Only setup event if it is actually used
If NeedsRefreshEvent IsNot Nothing Then
AddHandler pForm.NeedsRefresh, AddressOf Form_NeedsRefresh
End If
End Sub
Private Sub Form_NeedsNewSavedSearch(sender As Object, e As EventArgs)
RaiseEvent NeedsNewSavedSearch(sender, e)
End Sub