利用VB2005制作颜色渐变的进度条[组图](9)

　　 保存项目后，按下“生成”菜单中的“生成 GradientProcessBar”选项，生成了组件GradientProcessBar.dll。

　　 四、测试组件

　　 点击“文件”下的“新建项目”，在打开的窗体中，“项目类型”选择“Visual Basic”。“模板”选择“Windows 应用程序”。在左下角,“名称”改为“Test”。按下“确定”按钮，新建工程。在打开的窗体Form1.vb中，加入一个Button控件，设置属性Text=启动。一个Label控件，设置属性Text=当前进度。一个Timer控件。点击“工具”菜单下的“选择工具箱项”。点击 “.NET Framework 组件”页。点击“浏览”按钮。选择刚才生成的组件GradientProcessBar.dll加入到窗体中。如下图示：

　　 点击 “确定”按钮。则在工具箱中有了GradientProcessBar 控件了。在窗体上加入一个

　　GradientProcessBar控件。设置属性Name=Pb1。在Form1.vb中添加如下代码：

Public Class Form1　

　　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　　　　 '设置进度条初始值

　　　　　　　 Pb1.Minimum = 0

　　　　　　　 Pb1.Maximum = 100

　　　　　　　 Pb1.Value = 0

　　　　　　　 Pb1.Smoothness = 4　

　　　　　　　 '启动进度条

　　　　　　　 Timer1.Interval = 10

　　　　　　　 Timer1.Enabled = True　

　　　 End Sub　

　　　 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

　　　　　　　 '显示当前进度。

　　　　　　　 Pb1.Value += 1

　　　　　　　 Label1.Text = "当前进度：" + CStr(CInt(Pb1.Value / Pb1.Maximum * 100)) + "%"

　　　 End Sub

End Class