最近写了一个随机模拟的计算程序，因为计算耗时很长，所以运算中要输出一些信息，以方便用户随时了解运算的进度以及其他信息。最初打算写一个log窗口类，使用textbox控件以及 progressbar，后来发现挺麻烦，远不及console窗口下的console.write和console.writeline方便。于是尝试直接将信息输出到控制台窗口。

       1、 在winform程序中调用console窗口。这个使用Win32 API来完成。关于AllocConsole函数和FreeConsole函数的详细信息可以参见这里和这里。VB.NET的代码如下：

Form程序调用和释放Console窗口
 1Public Class ConsoleHelperClass ConsoleHelper
 2‘调用控制台窗口
 3<DllImport(”kernel32.dll”)> _
 4Public Shared Function AllocConsole()Function AllocConsole() As Boolean
 5End Function
 6
 7’释放控制台窗口
 8<DllImport(”kernel32.dll”)> _
 9Public Shared Function FreeConsole()Function FreeConsole() As Boolean
10End Function
11End Class

    在调用AllocConsole后，就将console窗口调配给当前进程使用，在当前进程的任何位置我们都可以使用console.write和console.writeline函数进行程序信息的输出了。

      2、 console窗口下绘制一个进度条。

 Console下绘制进度条
 1'先绘制出进度条的底色。
 2Private Sub Init()Sub Init()
 3Console.WriteLine(”开始计算:” & Date.Now.ToLongDateString & Date.Now.ToLongTimeString)
 4‘绘制一个进度条背景
 5Console.BackgroundColor = ConsoleColor.DarkCyan
 6For i As Integer = 0 To 99
 7Console.Write(” “)
 8Next
 9Console.BackgroundColor = ConsoleColor.Black
10Console.WriteLine()
11End Sub
12
13'2.b 根据计算线程的进度绘制进度条
14Dim SumProg as Integer
15Private Sub DrawProgressBar()Sub DrawProgressBar
16SumProg += 1
17Console.Write(”{0}%”, SumProg)
18Console.SetCursorPosition(0, Console.CursorTop - 1)
19Console.BackgroundColor = ConsoleColor.Yellow
20For p As Integer = 0 To SumProg - 1
21Console.Write(” “)
22Next
23Console.BackgroundColor = ConsoleColor.Black
24Console.WriteLine()
25End Sub

 下面是一张效果截图。

 PS：第一次在园子发文章，希望大家多多指教。绘制进度条的代码写得很随意，主要目的只是想说明下思路。现在明白为什么黑洞洞的console为什么一直不死——有时候它的确方便好用。

ps1： 再补充下，具体实现时，在form上提供一个“视图”菜单项，通过可选菜单来控制console窗口的可见和隐藏（调用FreeConsole）。直接关闭console会直接导致进程关闭.......