|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
七、 进度条进度显示 488Linux联盟
488Linux联盟
在Update方法被调用前，在ConsoleProgressBar对象中什么也没有发生： 488Linux联盟
488Linux联盟
Public Sub Update(ByVal CurrentValue As Long) 488Linux联盟
m_currentValue = CurrentValue 488Linux联盟
m_currentBarLength = CInt((m_currentValue / m_maximumValue) * m_length) 488Linux联盟
Refresh() 488Linux联盟
End Sub 488Linux联盟
488Linux联盟
这个Update方法使用一个值作参数（在此是指当前刚刚复制的文件数）。我设置成员m_currentValue，然后计算m_currentBarLength。计算的结果为进度条当前应该覆盖的列数。 488Linux联盟
488Linux联盟
最后，我调用Refresh方法，它又调用UpdatePercentComplete、UpdateProgressBar和UpdateMessageBar方法。 488Linux联盟
488Linux联盟
因为所有这三个方法功能相类似，所以我将集中讨论UpdateProgressBar方法: 488Linux联盟
488Linux联盟
Private Sub UpdateProgressBar() 488Linux联盟
Dim originalForegroundColor As ConsoleColor = Console.ForegroundColor 488Linux联盟
Dim originalBackgroundColor As ConsoleColor = Console .BackgroundColor 488Linux联盟
Console.ForegroundColor = ConsoleColor.Black 488Linux联盟
Console.BackgroundColor = ConsoleColor.Green 488Linux联盟
Console.SetCursorPosition(m_left + 1 m_progressBarRow) 488Linux联盟
Dim progress As New String("O", m_currentBarLength) 488Linux联盟
Console.Write(progress) 488Linux联盟
Console.ForegroundColor =originalForegroundColor 488Linux联盟
Console.BackgroundColor = originalBackgroundColor 488Linux联盟
End Sub 488Linux联盟
488Linux联盟
首先，该代码保存当前的前景和背景颜色。然后，它把ForegroundColor属性设置为黑色，把BackgroundColor属性设置为绿色。在把光标放置到进度条的左边缘后，它打印一串长度为m_currentBarLength的“O”。 488Linux联盟
488Linux联盟
八、 运行DirCopy 488Linux联盟
488Linux联盟
你一定很想看到应用程序运行情况(参考图2和3)，并想检查一下运行结果(参考图4)。我建立了一个目录，并使用一串哑文件来测试复制。我建议，在你使用DirCopy复制任何关键文件前，你也这样试验一下。 488Linux联盟
 488Linux联盟
图2:开始DirCopy 488Linux联盟
 488Linux联盟
图3:DirCopy运行中 488Linux联盟
 488Linux联盟
图4:DirCopy运行完成 488Linux联盟
488Linux联盟
九、 其它问题 488Linux联盟
488Linux联盟
这个DirCopy应用程序，虽然有些用处，但是还远非成品。为了使其更为强壮，还需要增加大量的错误处理方式。你还可以改进ConsoleProgressBar类以实现更灵活的控制。下列是一些可能的改进： 488Linux联盟
488Linux联盟
· 允许控制进度条的位置和长度 488Linux联盟
488Linux联盟
· 允许百分比完成区域放到你选择的任何位置 488Linux联盟
488Linux联盟
· 允许定制进度条中的消息 488Linux联盟
488Linux联盟
· 添加一个选项以选择水平的或垂直的进度条 488Linux联盟
488Linux联盟
十、 小结 488Linux联盟
488Linux联盟
我希望，本文有助于你了解VB 2005所提供的部分新的控制台应用程序特征，尽管这些特征仅是其中的一部分。另外，我还鼓励你再分析一下其它一些控制台应用程序特征，并与本文介绍相结合以发现你更喜欢的特征。
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
