ucprogressbar.ctl

来自「一款精美小巧的（绝对比VB自带进度条强）进度条控件。」· CTL 代码 · 共 29 行

VERSION 5.00
Begin VB.UserControl ucProgressBar 
   AutoRedraw      =   -1  'True
   CanGetFocus     =   0   'False
   ClientHeight    =   225
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1500
   ClipControls    =   0   'False
   FillStyle       =   0  'Solid
   Picture         =   "ucProgressBar.ctx":0000
   ScaleHeight     =   15
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   100
End
Attribute VB_Name = "ucProgressBar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"

Option Explicit

'-- Public enums.:
Public Enum pbCaptionFormats
    [fNothing] = 0 '无标题
    [fValue]       'Value
    [f0%]          'Relative %