[vb.net]控制台进度条的示例

  Private Sub ConsoleProcessBar()
         Dim isBreak As Boolean = False
         Dim colorBack As ConsoleColor = Console.BackgroundColor
         Dim colorFore As ConsoleColor = Console.ForegroundColor
         '(0,0)(Left,Top) 第一行
         Console.WriteLine("***********TE Mason*************")
         Console.BackgroundColor = ConsoleColor.DarkCyan
         For i =  To Console.WindowWidth -
             '(0,1) 第二行
             Console.Write(" ")
         Next
         '(0,1) 第二行
         Console.WriteLine(" ")
         Console.BackgroundColor = colorBack
         '(0,2) 第三行
         Console.WriteLine("0%")
         '(0,3) 第四行
         Console.WriteLine("<Press Enter To Break>")

         For i =  To
             If Console.KeyAvailable AndAlso Console.ReadKey(True).Key = ConsoleKey.Enter Then
                 isBreak = True
                 Exit For
             End If
             Console.BackgroundColor = ConsoleColor.Yellow
             '/返回完整的商，包括余数，SetCursorPosition会自动四舍五入
             Console.SetCursorPosition(i * (Console.WindowWidth - ) / , )
             'MsgBox(i * (Console.WindowWidth - 2) / 100)
             'MsgBox(Console.CursorLeft)
             'MsgBox(Console.CursorSize)
             Console.Write(" ")
             Console.BackgroundColor = colorBack
             Console.ForegroundColor = ConsoleColor.Green
             Console.SetCursorPosition(, )
             Console.Write("{0}%", i)
             Console.ForegroundColor = colorFore
             Threading.Thread.Sleep()
         Next

         Console.SetCursorPosition(, )
         Console.Write(IIf(isBreak, "Break!!!", "Finish"))
         Console.WriteLine("                           ")
         Console.ReadKey()
         Console.ReadKey(True)
     End Sub