日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VBConsoleProgressBar簡(jiǎn)單介紹

在向大家詳細(xì)介紹VB ConsoleProgressBar之前，首先讓大家了解下CopyFiles，然后全面介紹VB ConsoleProgressBar。CopyFiles負(fù)責(zé)取得源目錄下的一個(gè)文件列表，然后把它們復(fù)制到目的目錄下。另外，它還創(chuàng)建了一個(gè)ConsoleProgressBar對(duì)象來(lái)管理進(jìn)度條：

創(chuàng)新互聯(lián)是專業(yè)的洛寧網(wǎng)站建設(shè)公司，洛寧接單;提供網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行洛寧網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

 
 
 
    
  
  
  
  1. Private Sub CopyFiles(ByVal srcDir As String, ByVal destDir As String)  
    2. 
  
  
  
  2. Const BufferSourceTopLine As Integer = 8 
    3. 
  
  
  
  3. Const BufferDestinationTopLine As Integer = 7 
    4. 
  
  
  
  4. Dim rowIndex As Integer = 7 
    5. 
  
  
  
  5. Dim originalForegroundColor As ConsoleConsoleColor = Console.ForegroundColor  
    6. 
  
  
  
  6. Console.CursorVisible = False 
    7. 
  
  
  
  7. Console.Clear()  
    8. 
  
  
  
  8. Dim numberOfFiles As Integer  
    9. 
  
  
  
  9. numberOfFiles = My.Computer.FileSystem.GetFiles(srcDir).Count  
    10. 
  
  
  
  10. Dim PB As New ConsoleProgressBar(numberOfFiles)  
    11. 
  
  
  
  11. DisplayHeader(srcDir, destDir)  
    12. 
  
  
  
  12. Dim fileCounter As Integer = 1 
    13. 
  
  
  
  13. For Each f As String In My.Computer.FileSystem.GetFiles(srcDir)  
    14. 
  
  
  
  14. Dim fi As New System.IO.FileInfo(f)  
    15. 
  
  
  
  15. Console.ForegroundColor = ConsoleColor.Green  
    16. 
  
  
  
  16. Console.SetCursorPosition(0, rowIndex)  
    17. 
  
  
  
  17. Console.Write(fi.Name)  
    18. 
  
  
  
  18. If rowIndex < Console.WindowHeight - 1 Then  
    19. 
  
  
  
  19. rowIndex += 1  
    20. 
  
  
  
  20. Else  
    21. 
  
  
  
  21. Console.MoveBufferArea(0,BufferSourceTopLine, _  
    22. 
  
  
  
  22. Console.WindowWidth, _  
    23. 
  
  
  
  23. Console.WindowHeight - _  
    24. 
  
  
  
  24. BufferSourceTopLine, _  
    25. 
  
  
  
  25. 0, _  
    26. 
  
  
  
  26. BufferDestinationTopLine)  
    27. 
  
  
  
  27. End If  
    28. 
  
  
  
  28. My.Computer.FileSystem.CopyFile(fi.FullName, destDir &"\" & fi.Name)  
    29. 
  
  
  
  29. pb.Update( fileCounter)  
    30. 
  
  
  
  30. fileCounter += 1  
    31. 
  
  
  
  31. Next  
    32. 
  
  
  
  32. Console.ForegroundColor = originalForegroundColor 
    33. 
  
  
  
  33. Console.SetCursorPosition(0, Console.WindowHeight - 1)  
    34. 
  
  
  
  34. Console.CursorVisible = True 
    35. 
  
  
  
  35. End Sub  
    36.

首先，該代碼保存當(dāng)前的ForegroundColor。然后，它使用另外一種新特征把CursorVisible屬性設(shè)置為False。在清除控制臺(tái)窗口后，它檢索在源目錄下的文件個(gè)數(shù)并且使用這個(gè)數(shù)字作為VB ConsoleProgressBar構(gòu)造器的***值。稍后，我還要討論有關(guān)于 ConsoleProgressBar的細(xì)節(jié)信息。

我調(diào)用DisplayHeader子程序來(lái)把一些有關(guān)復(fù)制操作的信息打印到控制臺(tái)窗口。由于其功能非常類似于DisplayUsage子程序，所以我在此省略對(duì)其細(xì)節(jié)的討論。

我使用了一個(gè)“For...Each”循環(huán)來(lái)遍歷在源目錄下的所有文件，并使用了一個(gè)rowIndex變量來(lái)跟蹤要把文件名打印到控制臺(tái)的哪一行。隨著循環(huán)的不斷執(zhí)行，rowIndex每次增加1，直到到達(dá)控制臺(tái)窗口的底部為止。一旦到達(dá)控制臺(tái)窗口的底部，我利用另外一個(gè)新控制臺(tái)應(yīng)用程序特征— MoveBufferArea方法（下一節(jié)討論）。

在更新顯示和復(fù)制文件后，我通過(guò)調(diào)用VB ConsoleProgressBar類的Update方法來(lái)更新進(jìn)度條。

一旦循環(huán)結(jié)束并且文件復(fù)制結(jié)束，我再把ForegroundColor設(shè)置回其原來(lái)的顏色，并且把光標(biāo)位置設(shè)置到控制臺(tái)窗口的最下面一行，并且使之再次可見(jiàn)。


當(dāng)前名稱：VBConsoleProgressBar簡(jiǎn)單介紹
轉(zhuǎn)載來(lái)于：http://m.5511xx.com/article/ccdcgcp.html