Form程序調(diào)用和釋放Console窗口
 1 Public Class ConsoleHelperClass ConsoleHelper
 2 ‘調(diào)用控制臺(tái)窗口
 3  _
 4 Public Shared Function AllocConsole()Function AllocConsole() As Boolean
 5 End Function
 6
 7 ’釋放控制臺(tái)窗口
 8  _
 9 Public Shared Function FreeConsole()Function FreeConsole() As Boolean
10 End Function
11 End Class 
在調(diào)用AllocConsole后，就將console窗口調(diào)配給當(dāng)前進(jìn)程使用，在當(dāng)前進(jìn)程的任何位置我們都可以
使用console.write和console.writeline函數(shù)進(jìn)行程序信息的輸出了。

;1' 先繪制出進(jìn)度條的底色。
 2 Private Sub Init()Sub Init()
 3 Console.WriteLine(”開始計(jì)算:” & Date.Now.ToLongDateString & Date.Now.ToLongTimeString)
 4 ‘繪制一個(gè)進(jìn)度條背景
 5 Console.BackgroundColor = ConsoleColor.DarkCyan
 6 For i As Integer = 0 To 99
 7 Console.Write(” “)
 8 Next
 9 Console.BackgroundColor = ConsoleColor.Black
10 Console.WriteLine()
11 End Sub
12
13' 2.b 根據(jù)計(jì)算線程的進(jìn)度繪制進(jìn)度條
14 Dim SumProg as Integer
15 Private Sub DrawProgressBar()Sub DrawProgressBar
16 SumProg += 1
17 Console.Write(”{0}%”, SumProg)
18 Console.SetCursorPosition(0, Console.CursorTop - 1)
19 Console.BackgroundColor = ConsoleColor.Yellow
20 For p As Integer = 0 To SumProg - 1
21 Console.Write(” “)
22 Next
23 Console.BackgroundColor = ConsoleColor.Black
24 Console.WriteLine()
25 End Sub