详细分析VB Update方法

本文向大家介绍VB Update方法，可能好多人还不了解VB Update方法，没有关系，看完本文你肯定有不少收获，希望本文能教会你更多东西。在VB Update方法被调用前，在ConsoleProgressBar对象中什么也没有发生：

创新互联公司主营扎赉诺尔网站建设的网络公司,主营网站建设方案,成都App制作,扎赉诺尔h5微信小程序定制开发搭建,扎赉诺尔网站营销推广欢迎扎赉诺尔等地区企业咨询

 
 
 
  
  
  
Public Sub Update(ByVal CurrentValue As Long)  
  
  
  
m_currentValue = CurrentValue 
  
  
  
m_currentBarLength = CInt((m_currentValue / m_maximumValue) * m_length)  
  
  
  
Refresh()  
  
  
  
End Sub  
 
 

这个VB Update方法使用一个值作参数（在此是指当前刚刚复制的文件数）。我设置成员m_currentValue，然后计算m_currentBarLength。计算的结果为进度条当前应该覆盖的列数。

最后，我调用Refresh方法，它又调用UpdatePercentComplete、UpdateProgressBar和UpdateMessageBar方法。

因为所有这三个方法功能相类似，所以我将集中讨论UpdateProgressBar方法:

 
 
 
  
  
  
Private Sub UpdateProgressBar()  
  
  
  
Dim originalForegroundColor As ConsoleConsoleColor = Console.ForegroundColor  
  
  
  
Dim originalBackgroundColor As ConsoleConsoleColor = Console .BackgroundColor  
  
  
  
Console.ForegroundColor = ConsoleColor.Black  
  
  
  
Console.BackgroundColor = ConsoleColor.Green  
  
  
  
Console.SetCursorPosition(m_left + 1 m_progressBarRow)  
  
  
  
Dim progress As New String("O", m_currentBarLength)  
  
  
  
Console.Write(progress)  
  
  
  
Console.ForegroundColor =originalForegroundColor 
  
  
  
Console.BackgroundColor = originalBackgroundColor 
  
  
  
End Sub  
 
 

首先，该代码保存当前的前景和背景颜色。然后，它把ForegroundColor属性设置为黑色，把BackgroundColor属性设置为绿色。在把光标放置到进度条的左边缘后，它打印一串长度为m_currentBarLength的“O”。

其它问题

这个DirCopy应用程序，虽然有些用处，但是还远非成品。为了使其更为强壮，还需要增加大量的错误处理方式。你还可以改进ConsoleProgressBar类以实现更灵活的控制。下列是一些可能的改进：
◆允许控制进度条的位置和长度
◆允许百分比完成区域放到你选择的任何位置
◆允许定制进度条中的消息
◆添加一个选项以选择水平的或垂直的进度条

【编辑推荐】

1. VB 2005中开发新一代控制台应用程序
2. 简单讲解VB开发分布式
3. 浅析VB Script开发自动化测试
4. 浅谈VB开发系统知识
5. VB.NET应用程序中多线程的应用实例

网站名称：详细分析VB Update方法
当前路径：http://www.36103.cn/qtweb/news10/39910.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联