VB.NET Windows Forms - временно отключить кнопку «X»

Question

У меня есть форма, которая запрашивает у пользователя подтверждение перед запуском BackgroundWorker, который выполняет некоторые вычисления. Эти вычисления могут занять от 10-30 секунд до запуска, и я хочу убедиться, что как только начнутся вычисления, им будет разрешено завершить работу без прерывания.

Есть ли способ временно отключить кнопку «Закрыть» в строке заголовка, пока BackgroundWorker не завершит свою работу?

Я нашел пару похожих вопросов, но они выглядят как более постоянное решение (here и here). Я хочу, чтобы кнопка «Закрыть» была отключена только временно, а BackgroundWorker выполняет свою работу.

Любая помощь будет высоко оценена. Благодаря!

Answer 1

Private ImBusy As Boolean = False 

Private Sub LookBusyForTheBoss() 
    Me.UseWaitCursor = True 
    Me.Cursor = Cursors.WaitCursor 
    Me.Enabled = False 
    ProgressBar1.UseWaitCursor = False 
    ProgressBar1.Style = ProgressBarStyle.Marquee 

    ImBusy = True 
End Sub 

Private Sub Form77_FormClosing(...) Handles Me.FormClosing 
    If ImBusy Then e.Cancel = True 
End Sub 

Private Sub OkHeIsGone() 
    Me.UseWaitCursor = False 
    Me.Cursor = Cursors.Default 
    Me.Enabled = True 

    ImBusy = False 
End Sub 

Answer 2

Отключить кнопку закрытия будет очень плохо. Исправьте приложение так, чтобы вычисление могло быть прервано.

Answer 3

Я согласен с не скрывая «X», но если вы хотите на самом деле плохо, я думаю, что это здесь является то, что вы ищете:

Disable Close Button in Vb.Net

Answer 4

Что-то вдоль этих линий может работать :

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
    doNotClose = True 
    Do 
     ' 
     'etc 
     ' 
     'simulate long running 
     For x As Integer = 1 To 1000 
      Threading.Thread.Sleep(10) 
     Next 
     Exit Do 
    Loop 
    doNotClose = False 
    If closerequested Then 
     Me.BeginInvoke(Sub() 
          Me.Close() 
         End Sub) 
    End If 
End Sub 

Dim doNotClose As Boolean = False 
Dim closerequested As Boolean = False 

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 
    closerequested = True 
    If doNotClose Then 
     e.Cancel = True 
     Exit Sub 
    End If 
End Sub 

или это

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
    doNotClose = True 
    Do 
     ' 
     'etc 
     ' 
     'simulate long running 
     For x As Integer = 1 To 1000 
      Threading.Thread.Sleep(10) 
     Next 
     Exit Do 
    Loop 
    doNotClose = False 
End Sub 

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted 
    If closerequested Then 
     Me.Close() 
    End If 
End Sub 

Dim doNotClose As Boolean = False 
Dim closerequested As Boolean = False 

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 
    closerequested = True 
    If doNotClose Then 
     e.Cancel = True 
     Exit Sub 
    End If 
End Sub