系统_调入查询数据等待.frm

新世纪ERP包装物管理源代码

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Xt_Wait 
   BackColor       =   &H00BEBEBE&
   BorderStyle     =   0  'None
   ClientHeight    =   930
   ClientLeft      =   4320
   ClientTop       =   3060
   ClientWidth     =   3960
   ControlBox      =   0   'False
   Icon            =   "系统_调入查询数据等待.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   930
   ScaleWidth      =   3960
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin MSComCtl2.Animation Animation1 
      Height          =   705
      Left            =   210
      TabIndex        =   0
      Top             =   120
      Width           =   795
      _ExtentX        =   1402
      _ExtentY        =   1244
      _Version        =   393216
      BackStyle       =   1
      FullWidth       =   53
      FullHeight      =   47
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00808080&
      BorderStyle     =   2  'Dash
      BorderWidth     =   3
      Height          =   915
      Left            =   0
      Top             =   0
      Width           =   3945
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "数据正在处理中,请稍侯..."
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   1110
      TabIndex        =   1
      Top             =   420
      Width           =   2445
   End
End
Attribute VB_Name = "Xt_Wait"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
   
    With Animation1
        .AutoPlay = True
        .Open App.Path & "\Write.avi"
    End With

End Sub