progressbar.frm

VB6程序设计参考手册 -独立源码 VB6程序设计参考手册 -独立源码

VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   BackColor       =   &H80000000&
   Caption         =   "ProgressBar"
   ClientHeight    =   1695
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5625
   LinkTopic       =   "Form1"
   ScaleHeight     =   1695
   ScaleWidth      =   5625
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   4680
      Top             =   0
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   5415
      _ExtentX        =   9551
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H80000000&
      Caption         =   "文件删除进度"
      ForeColor       =   &H00000000&
      Height          =   1215
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5415
      Begin ComCtl2.Animation Animation1 
         Height          =   855
         Left            =   240
         TabIndex        =   1
         Top             =   240
         Width           =   4935
         _ExtentX        =   8705
         _ExtentY        =   1508
         _Version        =   327681
         Center          =   -1  'True
         BackColor       =   -2147483648
         FullWidth       =   329
         FullHeight      =   57
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '   设置控件的属性
Private Sub Form_Load()
     Animation1.AutoPlay = True
     Animation1.Open App.Path & "\filedel.avi"
     ProgressBar1.Min = 0
     ProgressBar1.Max = 100
     ProgressBar1.Value = 0
End Sub

'   模拟显示文件删除进度
Private Sub Timer1_Timer()
    If ProgressBar1.Value = 100 Then
        Animation1.AutoPlay = False
        Animation1.Close
        End
    Else
        ProgressBar1.Value = ProgressBar1.Value + 1
    End If
End Sub