1 Private Sub ConsoleProcessBar()
2 Dim isBreak As Boolean = False
3 Dim colorBack As ConsoleColor = Console.BackgroundColor
4 Dim colorFore As ConsoleColor = Console.ForegroundColor
5 '(0,0)(Left,Top) 第一行
6 Console.WriteLine("***********TE Mason*************")
7 Console.BackgroundColor = ConsoleColor.DarkCyan
8 For i = 0 To Console.WindowWidth - 3
9 '(0,1) 第二行
10 Console.Write(" ")
11 Next
12 '(0,1) 第二行
13 Console.WriteLine(" ")
14 Console.BackgroundColor = colorBack
15 '(0,2) 第三行
16 Console.WriteLine("0%")
17 '(0,3) 第四行
18 Console.WriteLine("<Press Enter To Break>")
19
20 For i = 0 To 100
21 If Console.KeyAvailable AndAlso Console.ReadKey(True).Key = ConsoleKey.Enter Then
22 isBreak = True
23 Exit For
24 End If
25 Console.BackgroundColor = ConsoleColor.Yellow
26 '/返回完整的商,包括余数,SetCursorPosition会自动四舍五入
27 Console.SetCursorPosition(i * (Console.WindowWidth - 2) / 100, 1)
28 'MsgBox(i * (Console.WindowWidth - 2) / 100)
29 'MsgBox(Console.CursorLeft)
30 'MsgBox(Console.CursorSize)
31 Console.Write(" ")
32 Console.BackgroundColor = colorBack
33 Console.ForegroundColor = ConsoleColor.Green
34 Console.SetCursorPosition(0, 2)
35 Console.Write("{0}%", i)
36 Console.ForegroundColor = colorFore
37 Threading.Thread.Sleep(1000)
38 Next
39
40 Console.SetCursorPosition(0, 3)
41 Console.Write(IIf(isBreak, "Break!!!", "Finish"))
42 Console.WriteLine(" ")
43 Console.ReadKey()
44 Console.ReadKey(True)
45 End Sub
vb.net 进程 vbnet进度条
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
控制台打印进度条
控制台打印进度条,实时展示任务进度。
进度条 System Java -
vb.net程序进程 vb.net ini
Public Class Form1 '************ini文件内容为************************* '*[send] * '*send1=1
vb.net程序进程 Text System Public