AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Zooflow: Search

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-19 16:29:56 +02:00
parent 0c23878301
commit 0db3db8e8b
5 changed files with 244 additions and 203 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
GUIs.ZooFlow/Search/frmFlowSearch1.vb
View File

@@ -220,18 +220,18 @@ Public Class frmFlowSearch1
RunSearch()
End Sub
Private Async Sub RunSearch()
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
Try
Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
If oResult.OK = False Then
bsiStatus.Caption = oResult.ErrorMessage
End If
Catch ex As Exception
Logger.Error(ex)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
'Try
' Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
' If oResult.OK = False Then
' bsiStatus.Caption = oResult.ErrorMessage
' End If
'Catch ex As Exception
' Logger.Error(ex)
'Finally
' SplashScreenManager.CloseOverlayForm(oHandle)
'End Try
End Sub
Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp
@@ -249,17 +249,17 @@ Public Class frmFlowSearch1
End Sub
Private Async Function BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Threading.Tasks.Task Handles BarButtonStartSearch.ItemClick
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
Try
Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
If oResult.OK = False Then
bsiStatus.Caption = oResult.ErrorMessage
End If
Catch ex As Exception
Logger.Error(ex)
Finally
SplashScreenManager.CloseOverlayForm(oHandle)
End Try
'Try
' Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
' If oResult.OK = False Then
' bsiStatus.Caption = oResult.ErrorMessage
' End If
'Catch ex As Exception
' Logger.Error(ex)
'Finally
' SplashScreenManager.CloseOverlayForm(oHandle)
'End Try
End Function
End Class