vb在win7的任务栏中显示进度条

VB6代码及窗体等文件、可直接运行exe文件，在附件压缩包中

运行截图如下：

VB6源代码如下：

  Dim W%, Stp%, Wm%

 

Private Sub Form_Load()

  W = 0                 '进度条宽度初值

  Wm = 8000             '进度条宽度终值,依下载总时间长短而定

  Stp = 50              '进度条宽度增加的步长

   'Form1.WindowState = 1  '若要在窗体在Windows任务栏中，使用此行代码   Form1.Left = 0

  Form1.Top = 10240

  Form1.Height = 900

  Form1.Width = Wm

  Picture1.Left = 0     'PictureBox1 用于显示动态进度条

  Picture1.Top = 0

  Picture1.Height = 300

  Picture1.Width = Wm

  Picture2.AutoRedraw = True   'PictureBox2 用于存放渐变色位图

  Picture2.Picture = LoadPicture(App.Path + "\渐变色进度条.jpg")

  Picture2.Visible = False

  Timer1.Interval = 100      '定时器时间间隔为100毫秒

  Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

  Do Until W >= Wm

    W = W + Stp

    Picture1.PaintPicture Picture2.Picture, 0, 0, W, 300

    Form1.Caption = "下载中……" + Format(CStr((W / Wm) * 100), "0.00") + "%"

    Exit Sub

  Loop

  Form1.Caption = "下载完毕"

  Timer1.Enabled = False

End Sub

需要使用Win7StyleBuilder，转到“任务栏——中间面板——进度条”的位置，设置图片素材和拉伸效果。

总之设计、修改一个Win7主题，有时候很麻烦。

---