Re: [.NET] Console.Write 如何不換行取代原行文字？

[mathlinka (Linka)]

我做出來的分享給大家，有需要的請自行參考～

Module mdlProgressBar
    Dim oriTop As Integer
    Dim oriLeft As Integer

    Sub main()
        Dim i As Integer
        Dim sharpPercent As String

        Console.WriteLine("開始執行")
        For i = 0 To 100
            oriTop = Console.CursorTop
            oriLeft = Console.CursorLeft
            Console.SetCursorPosition(0, oriTop)
            sharpPercent = Right(StrDup((i \ 2) + 1, "#") & Space((100 - i) \ 2), 50)
            Console.Write("進度: [" & sharpPercent & "] " & i & "%")
            Threading.Thread.Sleep(100)
        Next
        Console.ReadLine()

    End Sub
End Module

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.231.78.63
推 seagal:nice job