VB编写一个能显示百分比的自定义进度条控件

VB编写一个能显示百分比的自定义进度条控件

：

设计方法：

1.在UserControl中添加一个Label控件Label1，将它设为平面，用来做外框。添加两个PictureBox控件PictureBox1做为进度指示，PictureBox2控件做为控件背景。

2.加入以下代码

Option Explicit

@#定义私有变量用于存储属性值

Private mvarMax As Long

Private mvarMin As Long

Private mvarValue As Long

Private Rate As String

Private Sub UserControl_Initialize()

@#初始化

Picture2.BackColor = vbBlue

End Sub

Public Property Get BackColor() As OLE_COLOR

@#读取BackColor属性

BackColor = Picture1.BackColor

End Property

Public Property Let BackColor(ByVal vNewValue As OLE_COLOR)

@#设置BackColor属性

Picture1.BackColor = vNewValue

End Property

Private Sub UserControl_InitProperties()

@#初始化属性

Max = 100

Min = 0

Value = 0

End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)