如何在任何应用程序中显示和隐藏控制台

有人告诉我，几乎不可能从Forms Application中显示和/或隐藏控制台窗口。

我说不是。 真的很简单

首先，有人宣布。

    Declare Function AllocConsole Lib "kernel32" () As Int32
    Declare Function FreeConsole Lib "kernel32" () As Int32 

然后，您只需使用这些功能和已经存在的控制台对象来显示，使用和隐藏即可。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AllocConsole() 'show console
    End Sub  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Console.WriteLine(TextBox1.Text)
        'the "Console" object works here, just like it does in a "console application"
    End Sub 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FreeConsole() 'hide console 
    End Sub

它也可以与控制台应用程序一起使用

    Sub Main()
        Console.WriteLine("line1")
        Console.WriteLine("press Enter to hide for 5 seconds")
        Console.ReadLine()
        FreeConsole() 'send it away
        Threading.Thread.Sleep(5000)
        AllocConsole() 'bring it back
        Console.WriteLine("i'm back")
        Console.WriteLine("goodbye (press enter to leave)")
        Console.ReadLine()
        End
    End Sub

很简单。

From: https://bytes.com/topic/visual-basic-net/insights/911883-how-display-hide-console-any-application