frmtimer.frm

企业人事管理系统毕业设计 希望大家用得着

VERSION 5.00
Object = "{F4D32B7B-624E-4724-8D2C-B3A14D2A8DD6}#1.1#0"; "TDSoft_MacProgress_V1.0.ocx"
Begin VB.Form FrmTimer 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1350
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3135
   LinkTopic       =   "Form1"
   MousePointer    =   11  'Hourglass
   ScaleHeight     =   1350
   ScaleWidth      =   3135
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Interval        =   10
      Left            =   2520
      Top             =   240
   End
   Begin TDSoftMacProgress.MacProgress MacProgress1 
      Height          =   300
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   529
   End
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   2280
      Top             =   240
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "数据加载中,请稍等。"
      Height          =   180
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   1710
   End
End
Attribute VB_Name = "FrmTimer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer
Dim b As Integer
Private Sub Timer1_Timer()
    
    Select Case a
    Case 0
        Label1.Caption = "数据加载中,请稍等。"
        a = 1
    Case 1
        Label1.Caption = "数据加载中,请稍等。。"
        a = 2
    Case 2
        Label1.Caption = "数据加载中,请稍等。。。"
        a = 0
'    Case 3
'        Label1.Caption = "数据加载中,请稍等。。。。"
'        a = 4
'    Case 4
'        Label1.Caption = "数据加载中,请稍等。。。。。"
'        a = 0
    End Select
    
End Sub

Private Sub Timer2_Timer()
    b = b + 2
   
    If b = 100 Then
        Unload Me
    Else
        MacProgress1.Value = b
    End If
End Sub