main/migrationanalysis/src/wizard/ScanFolders.frm

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.ocx"
Begin VB.Form ShowProgress 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Looking for Files"
   ClientHeight    =   2160
   ClientLeft      =   2505
   ClientTop       =   2325
   ClientWidth     =   7110
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2160
   ScaleWidth      =   7110
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin MSComctlLib.ProgressBar ScanProgress 
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1400
      Width           =   5500
      _ExtentX        =   9710
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CommandButton AbortScan 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   2880
      TabIndex        =   1
      Top             =   1760
      Width           =   1455
   End
   Begin VB.Label Label6 
      Caption         =   "X / Y"
      Height          =   195
      Left            =   5760
      TabIndex        =   7
      Top             =   1430
      Width           =   1200
   End
   Begin VB.Label Label5 
      Caption         =   "Label5"
      Height          =   440
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   6870
   End
   Begin VB.Label Label4 
      Caption         =   "Label4"
      Height          =   195
      Left            =   120
      TabIndex        =   5
      Top             =   995
      Width           =   1155
   End
   Begin VB.Label Label3 
      Caption         =   "Label3"
      Height          =   195
      Left            =   120
      TabIndex        =   4
      Top             =   680
      Width           =   1155
   End
   Begin VB.Label Label2 
      Caption         =   "Label2"
      Height          =   195
      Left            =   1395
      TabIndex        =   3
      Top             =   995
      Width           =   5595
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   195
      Left            =   1395
      TabIndex        =   0
      Top             =   680
      Width           =   5595
   End
End
Attribute VB_Name = "ShowProgress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Const C_MIN_WAIT_TIME   As Long = 0
Private Const C_MIN_UPDATE_TIME As Long = 100

Private g_SP_StartTime As Long
Private g_SP_LastUpdate As Long

Public g_SP_Abort As Boolean
Public g_SP_AllowOtherDLG As Boolean

Public Sub SP_Init(maxIndex As Long)
    g_SP_Abort = False
    g_SP_AllowOtherDLG = False
    g_SP_StartTime = GetTickCount()
    g_SP_LastUpdate = g_SP_StartTime
    
    ShowProgress.Visible = False
    ShowProgress.Caption = GetResString(PROGRESS_CAPTION)
    
    Label3.Caption = GetResString(PROGRESS_PATH_LABEL)
    Label4.Caption = GetResString(PROGRESS_FILE_LABEL)
    Label5.Caption = GetResString(PROGRESS_INFO_LABEL)
    ScanProgress.Max = maxIndex
    
    ShowProgress.Top = frmWizard.Top + 3200
    ShowProgress.Left = frmWizard.Left + 500
End Sub

Public Sub SP_UpdateProgress(curObject As String, curParent As String, _
                             curIndex As Long)

    Dim currTicks As Long
    currTicks = GetTickCount()
    
    ScanProgress.value = curIndex

    If (Not ShowProgress.Visible) Then
        If (currTicks - g_SP_StartTime > C_MIN_WAIT_TIME) Then
            ShowProgress.Visible = True
        End If
    End If
    If (currTicks - g_SP_LastUpdate > C_MIN_UPDATE_TIME) Then
        g_SP_LastUpdate = currTicks
        Label1.Caption = curParent
        Label2.Caption = curObject
        Label6.Caption = "(" & str$(curIndex) & "/" & str$(ScanProgress.Max) & ")"
    End If
End Sub

Private Sub AbortScan_Click()
    g_SP_Abort = True
    Label5.Caption = GetResString(PROGRESS_WAIT_LABEL)
    AbortScan.Caption = GetResString(PROGRESS_ABORTING)
    AbortScan.Enabled = False
End Sub

Private Sub Form_Deactivate()
    If Not g_SP_AllowOtherDLG Then
        ShowProgress.ZOrder (0)
    End If
End Sub