AeroProgressBar.ctl
上传用户:jnjasmy
上传日期:2015-01-04
资源大小:637k
文件大小:5k
源码类别:

GDI/图象编程

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.UserControl AeroProgressBar 
  3.    AutoRedraw      =   -1  'True
  4.    CanGetFocus     =   0   'False
  5.    ClientHeight    =   270
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4800
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Segoe UI"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ScaleHeight     =   18
  20.    ScaleMode       =   3  'Pixel
  21.    ScaleWidth      =   320
  22.    ToolboxBitmap   =   "AeroProgressBar.ctx":0000
  23.    Begin VB.Timer Timer1 
  24.       Enabled         =   0   'False
  25.       Interval        =   30
  26.       Left            =   2160
  27.       Top             =   2520
  28.    End
  29. End
  30. Attribute VB_Name = "AeroProgressBar"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = True
  33. Attribute VB_PredeclaredId = False
  34. Attribute VB_Exposed = True
  35. '-----------------------------------------------------------------------------
  36. ' AeroProgressBar ActiveX Control
  37. '-----------------------------------------------------------------------------
  38. ' Copyright