www.pudn.com > 播放下载动画的演示.zip > frmAnimate.frm

VERSION 5.00 
Begin VB.Form Animate  
   Caption         =   "File Download" 
   ClientHeight    =   2025 
   ClientLeft      =   4680 
   ClientTop       =   4005 
   ClientWidth     =   5565 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   ScaleHeight     =   2025 
   ScaleWidth      =   5565 
   Begin VB.CommandButton Command1  
      Caption         =   "Cancel" 
      Enabled         =   0   'False 
      Height          =   345 
      Left            =   4335 
      TabIndex        =   3 
      Top             =   1500 
      Width           =   1080 
   End 
   Begin VB.Label Label3  
      BackStyle       =   0  'Transparent 
      Caption         =   "Filename from 111.11.111.11" 
      Height          =   255 
      Left            =   135 
      TabIndex        =   2 
      Top             =   1110 
      Width           =   3975 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "Saving:" 
      Height          =   255 
      Left            =   135 
      TabIndex        =   1 
      Top             =   870 
      Width           =   1890 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "Estimated Time Left: 1 hr 4 min 30 sec (400 kb copied)" 
      Height          =   255 
      Left            =   135 
      TabIndex        =   0 
      Top             =   1770 
      Width           =   3930 
   End 
End 
Attribute VB_Name = "Animate" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Animate As New CAnimate32 
 
 
 
Private Sub Form_Load() 
'Written by Ramon Guerrero  
'ZoneCorp@dallas.net 
'ZoneCorp@Aol.com 
'ZoneCOrp@Compuserve.com 
 
On Error Resume Next 
  
If Dir(App.Path & "\FILECOPY.AVI") = "" Then 
MsgBox "Unable to find AVI" 
Unload Me 
End If 
 
Animate.Create Me.hwnd, App.Path & "\FILECOPY.AVI", -5, 0, 300, 50 
  
Animate.AnimatePlay 
  
Me.Show 
  
  
  
End Sub