1PRivateSubConsoleProcessBar()2DimisBreakAsBoolean=False3DimcolorBackAsConsoleColor =Console.BackgroundColor4DimcolorForeAsConsoleColor =Console.ForegroundColor5'(0,0)(Left,Top) 第一行6Console.WriteLine("***********TE Mason*************")7Console.BackgroundColor =ConsoleColor.DarkCyan8Fori =0ToConsole.WindowWidth -39'(0,1) 第二行10Console.Write("")11Next12'(0,1) 第二行13Console.WriteLine("")14Console.BackgroundColor =colorBack15'(0,2) 第三行16Console.WriteLine("0%")17'(0,3) 第四行18Console.WriteLine("<Press Enter To Break>")1920Fori =0To10021IfConsole.KeyAvailableAndAlsoConsole.ReadKey(True).Key = ConsoleKey.EnterThen22isBreak =True23ExitFor24EndIf25Console.BackgroundColor =ConsoleColor.Yellow26'/返回完整的商，包括余数，SetCursorPosition会自动四舍五入27Console.SetCursorPosition(i * (Console.WindowWidth -2) /100,1)28'MsgBox(i * (Console.WindowWidth - 2) / 100)29'MsgBox(Console.CursorLeft)30'MsgBox(Console.CursorSize)31Console.Write("")32Console.BackgroundColor =colorBack33Console.ForegroundColor =ConsoleColor.Green34Console.SetCursorPosition(0,2)35Console.Write("{0}%", i)36Console.ForegroundColor =colorFore37Threading.Thread.Sleep(1000)38Next3940Console.SetCursorPosition(0,3)41Console.Write(IIf(isBreak,"
Break!!!","Finish"))42Console.WriteLine("")43Console.ReadKey()44Console.ReadKey(True)45End Sub
