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

　　　　　　　 '根据平衡度的不同创建颜色数组

　　　　　　　 For sdc = 0 To m_Smoothness Step 1

　　　　　　　　　　　 idx = 0

　　　　　　　　　　　 cnt = lstColors.Count - 1

　　　　　　　　　　　 While idx < cnt

　　　　　　　　　　　　　　　 lstColors.Insert(idx + 1, MixColors(lstColors(idx), lstColors(idx + 1)))

　　　　　　　　　　　　　　　 idx += 2

　　　　　　　　　　　　　　　 cnt += 1

　　　　　　　　　　　 End While

　　　　　　　 Next sdc　

　　　　　　　 '根据颜色数组创建画笔数组

　　　　　　　 For Each c In lstColors

　　　　　　　　　　　 lstBrushes.Add(New SolidBrush(c))

　　　　　　　 Next　

　　　 End Sub　

　　　 '重载消息处理事件。

　　　 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

　　　　　　　 If m.Msg = &H14 Then

　　　　　　　　　　　 Return

　　　　　　　 End If

　　　　　　　 MyBase.WndProc(m)

　　　 End Sub　

　　　 '重载窗口寸改变事件

　　　 Protected Overrides Sub OnResize(ByVal e As System.EventArgs)

　　　　　　　 MyBase.OnResize(e)

　　　　　　　 Me.Invalidate(False)

　　　 End Sub