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

　　　 '最大值设置

　　　 Public Property Maximum() As Integer

　　　　　　　 Get

　　　　　　　　　　　 Return m_Maximum

　　　　　　　 End Get

　　　　　　　 Set(ByVal value As Integer)

　　　　　　　　　　　 m_Maximum = value

　　　　　　　　　　　 If m_Minimum > m_Maximum Then Swap(m_Minimum, m_Maximum)

　　　　　　　　　　　 If m_Value > m_Maximum Then m_Value = m_Maximum

　　　　　　　　　　　 Me.Invalidate(False)

　　　　　　　 End Set

　　　 End Property　

　　　 '平滑度设置

　　　 Public Property Smoothness() As Integer

　　　　　　　 Get

　　　　　　　　　　　 Return m_Smoothness

　　　　　　　 End Get

　　　　　　　 Set(ByVal value As Integer)

　　　　　　　　　　　 If value < GradientProcessBar.MinSmoothness Then value = MinSmoothness

　　　　　　　　　　　 If value > GradientProcessBar.MaxSmoothness Then value = MaxSmoothness

　　　　　　　　　　　 m_Smoothness = value

　　　　　　　　　　　 BuildColorList(lstDefault)

　　　　　　　　　　　 Me.Invalidate(False)

　　　　　　　 End Set

　　　 End Property