110,555
社区成员
发帖
与我相关
我的任务
分享
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
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