[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 = 0 To Console.WindowWidth - 3
            '(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 = 0 To 100
            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 - 2) / 100, 1)
            'MsgBox(i * (Console.WindowWidth - 2) / 100)
            'MsgBox(Console.CursorLeft)
            'MsgBox(Console.CursorSize)
            Console.Write(" ")
            Console.BackgroundColor = colorBack
            Console.ForegroundColor = ConsoleColor.Green
            Console.SetCursorPosition(0, 2)
            Console.Write("{0}%", i)
            Console.ForegroundColor = colorFore
            Threading.Thread.Sleep(1000)
        Next

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