自制进度条控件(vb).doc

自制进度条控件(vb) 说明:1.PropertyChanged 属性名:此代码告诉属性窗口刷新其显示内容,并通知VB窗体已经改变 2.要把picProgress.AutoRedraw=True Option Explicit 声明变量 Dim sCaption As String 控件标题 Dim lMaxValue As Long 进度条最大长度值 Dim lMinValue As Long 进度条起始长度值 Dim lValue As Longn bsp; 进度条当前长度值 Dim oFillColor As OLE_COLOR 填充色 Dim m_CaptionStyle As Integer 标题风格 重新定义各种事件 Event Click() 定义枚举类型 Public Enum eBorderStyle 进度条边框 无边框 = 0 有边框 End Enum Public Enum eCaptionStyle eCap_None = 0 不显示标题与% eCap_CaptionOnly 只显示标题 eCap_PercentOnly 只显示% eCap_CaptionPercent 显示标题与% End Enum Public Enum eAppearance 进度条显示样式 平面 = 0 立体 End Enum 功能:初始化 说明: Private Sub UserControl_Initialize() End Sub 功能:为每个控件初始化缺省属性 说明:当一个控件被添加到窗体中时,此事件被触发 Private Sub UserControl_InitProperties() Max = 100 Min = 0 BackColor = UserControl.BackColor FillColor = vbBlue CaptionStyle = eCap_PercentOnly SyncLabelFonts End Sub 功能:读属性 读取控件的属性设置值,从而在VB的按钮属性设置窗口显示 入口参数:1.读取属性,由VB提供 2.ReadProperty:参数1---属性名 参数2---缺省值 3.当没有保存过任何值或用户已从文本中删除保存的属性时,将读取这个缺省值 出口参数:无 说明:相当于Load事件 在读取CaptionFont 属性时会出错,用On Error Resume Next屏蔽 Private Sub UserControl_ReadProperties(PropBag As PropertyBag) On Error Resume Next Appearance = PropBag.ReadProperty(Appearance, picProgress.Appearance) Caption = PropBag.ReadProperty(Caption, ) ForeColor = PropBag.ReadProperty(ForeColor, picProgress.ForeColor) BackColor = PropBag.ReadProperty(BackColor, picProgress.BackColor) FillColor = PropBag.ReadProperty(FillColor, oFillColor) BorderStyle = PropBag.ReadProperty(BorderStyle, 1) CaptionStyle = PropBag.ReadProperty(CaptionStyle, 3) Enabled = PropBag.ReadProperty(Enabled, True) Max = PropBag.ReadProperty(Max, 100) Min = PropBag.ReadProperty(Min, 0) Set CaptionFont = PropBag.ReadProperty(CaptionFont) End Sub 功能:位置调整 说明: Private Sub UserControl_Resize() picProgress.Width = UserControl.Width picProgress.Height = UserControl.Height End Sub 功能:结束 说明: Private Sub UserControl_Terminate() End Sub 功能:写属性 写回控件的属性设置值,从而将各种属性的值通过VB的按钮属性设置窗口传送给按钮 入口参数:1.保存属性,由VB提供 2.WriteProperty:参数1---属性名(检索关键字使用) 参数2---