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

　　　 Private m_Value As Integer = 0　　　　　 '当前进度值

　　　 Private m_Minimum As Integer = 0　　　 '最小进度值

　　　 Private m_Maximum As Integer = 100　 '最大进度值

　　　 Private m_Smoothness As Integer = 0 '平滑度　

　　　 '进度值设置

　　　 Public Property Value() As Integer

　　　　　　　 Get

　　　　　　　　　　　 Return m_Value

　　　　　　　 End Get

　　　　　　　 Set(ByVal value As Integer)

　　　　　　　　　　　 m_Value = value

　　　　　　　　　　　 If m_Value < m_Minimum Then m_Value = m_Minimum

　　　　　　　　　　　 If m_Value > m_Maximum Then m_Value = m_Maximum

　　　　　　　　　　　 Me.Invalidate(False)

　　　　　　　 End Set

　　　 End Property　

　　　 '最小值设置

　　　 Public Property Minimum() As Integer

　　　　　　　 Get

　　　　　　　　　　　 Return m_Minimum

　　　　　　　 End Get

　　　　　　　 Set(ByVal value As Integer)

　　　　　　　　　　　 m_Minimum = value

　　　　　　　　　　　 If m_Minimum > m_Maximum Then Swap(m_Minimum, m_Maximum)

　　　　　　　　　　　 If m_Value < m_Minimum Then m_Value = m_Minimum

　　　　　　　　　　　 Me.Invalidate(False)

　　　　　　　 End Set

　　　 End Property