Disable export button while exporting

This commit is contained in:
Jonathan Jenne
2023-10-04 14:12:39 +02:00
parent 7cd4aa80cd
commit a68697a9e2
3 changed files with 12 additions and 13 deletions

View File

@@ -224,8 +224,9 @@ Public Class frmExportMain
End Try
End Sub
Private Async Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Private Async Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExport.ItemClick
Try
btnExport.Enabled = False
SplashScreenManager.ShowWaitForm()
Dim oExportResult = False
@@ -259,6 +260,7 @@ Public Class frmExportMain
Finally
SplashScreenManager.CloseWaitForm()
btnExport.Enabled = True
SearchDocuments()
End Try