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

MS Diverses

Browse Source
This commit is contained in:
SchreiberM
2022-05-11 10:30:52 +02:00
parent 2dd19e6c3e
commit 924e379733
8 changed files with 94 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -185,22 +185,6 @@ Public Class frmFlowSearch1
BringToFront()
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)
Try
Dim oResult = Await SearchRunner.Run(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
Private Sub Form_NeedsRefresh(sender As Object, e As Integer)
End Sub
@@ -232,7 +216,7 @@ Public Class frmFlowSearch1
End If
End Sub
Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs)
RunSearch()
End Sub
Private Async Sub RunSearch()
@@ -263,4 +247,19 @@ Public Class frmFlowSearch1
Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
RunSearch()
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)
Try
Dim oResult = Await SearchRunner.Run(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