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秒）

这可能会对您有所帮助，如果您需要，可以再查看一下

如何冻结完整的申请？

2 个答案: