Msgbox 等到，VB.NET

Question

在控制台应用程序中是否可以有一个没有按钮的 Msgbox。 我想弹出一个消息框，然后在任务完成后消失。 或者我可以将 msgboxresult 发送到某种形式的 window ，当文件被写入时它会消失？

MsgBox("The users on the domain are being gathered. A prompt will appear when all information has been gathered.")
    Dim userFile2 As String = savefileDialog1.FileName & ".txt"
    Dim fileExists2 As Boolean = File.Exists(userFile2)
    Using sw As New StreamWriter(File.Open(userFile2, FileMode.OpenOrCreate))
        For Each d As DirectoryEntry In de.Children()
            sw.WriteLine(d.Name)
        Next
    End Using

Answer 1

如果你想拥有一个带有 GUI 的控制台应用程序，我建议只制作一个 WinForms 应用程序可能会更容易。 只需创建一个新的小型 WinForms 应用程序，将默认的Form设置为小对话框，并使其只有一个不可见的Close按钮。

然后你可以在完成后显示Close按钮。

请记住禁用Form上的控制框（右上角的 X）并处理任何可能关闭它的键盘组合。

编辑：或者如果出于任何原因您必须将其作为控制台应用程序，那么您仍然可以编写一个单独的小型应用程序，它只执行您需要的 GUI 部分，并让控制台应用程序启动 GUI 应用程序，发送文本显示。

Answer 2

首先，快速点。 MsgBox是一个模态对话框，因此会在用户响应之前停止执行，您不能使用它。

一般来说，“控制台”应用程序应该是非图形的。

您不想使用控制台应用程序来显示 window。 由于.Net 4.0 可供您使用，您可能需要一个可以写入控制台的 WPF 应用程序。

SO上有一篇关于使用WPF输出到控制台的帖子。

您应该使用System.ComponentModel.BackgroundWorker在不同的线程上完成工作。 这将允许Window在您的任务进行时响应用户交互和渲染。