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

　　　　　　　 lstDefault.Add(Color.Green)

　　　　　　　 lstDefault.Add(Color.Cyan)

　　　　　　　 lstDefault.Add(Color.Blue)

　　　　　　　 lstDefault.Add(Color.Indigo)

　　　　　　　 lstDefault.Add(Color.Violet)

　　　　　　　 Value = Minimum

　　　 End Sub　

　　　 '将两个颜色值混合成一个新的颜色。

　　　 Private Function MixColors(ByVal color1 As Color, ByVal color2 As Color) As Color

　　　　　　　 Return Color.FromArgb(CInt((CInt(color1.R) + CInt(color2.R)) / 2), CInt((CInt(color1.G) + CInt(color2.G)) / 2), CInt((CInt(color1.B) + CInt(color2.B)) / 2))

　　　 End Function

　　　 '建立颜色数组和画笔数组

　　　 Private Sub BuildColorList(ByRef lstAdd As List(Of Color))　

　　　　　　　 Dim c As Color

　　　　　　　 Dim lstColors As New List(Of Color)

　　　　　　　 lstBrushes = New List(Of SolidBrush)

　　　　　　　 For Each c In lstAdd

　 　　　　　　　　　　lstColors.Add(c)

　　　　　　　 Next

　　　　　　　 Dim idx As Integer '颜色数组索引

　　　　　　　 Dim cnt As Integer '颜色数组长度

　　　　　　　 Dim sdc As Integer '平滑度索引