如何凍結完整的應用程序？

Question

我一直在尋找四周，似乎無法找到解決方案，也許你可以幫忙？

我需要能夠凍結整個應用程序（所有打開的窗體），然後才能夠解凍所有的東西，我知道你可以做me.enabled = false，但它只凍結一個窗體，而且它們可能是其他窗體那些也需要被凍結。總而言之，我需要一段代碼來凍結整個應用程序，並且能夠解凍它。

也沒有人知道如何凍結整個應用程序時，當一個msgbox顯示，並關閉時解凍它？

如果有人能幫忙，請告訴我。

Answer 1

試試這個：

Private Sub DisableAllFormsAndShowMessage(message As String) 
    For Each form As Form In My.Application.OpenForms 
     form.Enabled = False 
    Next 

    MessageBox.Show(message) 

    For Each form As Form In My.Application.OpenForms 
     form.Enabled = True 
    Next 
End Sub 

用法：

DisableAllFormsAndShowMessage("Grover") 

Answer 2

嘗試使用線程！

Threading.Thread.Sleep（1000 = 1秒）

這可以幫助你，看看它的一些更多，如果你需要