1*cdf0e10cSrcweirVERSION 5.00 2*cdf0e10cSrcweirObject = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.ocx" 3*cdf0e10cSrcweirBegin VB.Form ShowProgress 4*cdf0e10cSrcweir BorderStyle = 1 'Fixed Single 5*cdf0e10cSrcweir Caption = "Looking for Files" 6*cdf0e10cSrcweir ClientHeight = 2160 7*cdf0e10cSrcweir ClientLeft = 2505 8*cdf0e10cSrcweir ClientTop = 2325 9*cdf0e10cSrcweir ClientWidth = 7110 10*cdf0e10cSrcweir ControlBox = 0 'False 11*cdf0e10cSrcweir LinkTopic = "Form1" 12*cdf0e10cSrcweir MaxButton = 0 'False 13*cdf0e10cSrcweir MinButton = 0 'False 14*cdf0e10cSrcweir ScaleHeight = 2160 15*cdf0e10cSrcweir ScaleWidth = 7110 16*cdf0e10cSrcweir ShowInTaskbar = 0 'False 17*cdf0e10cSrcweir Visible = 0 'False 18*cdf0e10cSrcweir Begin MSComctlLib.ProgressBar ScanProgress 19*cdf0e10cSrcweir Height = 255 20*cdf0e10cSrcweir Left = 120 21*cdf0e10cSrcweir TabIndex = 2 22*cdf0e10cSrcweir Top = 1400 23*cdf0e10cSrcweir Width = 5500 24*cdf0e10cSrcweir _ExtentX = 9710 25*cdf0e10cSrcweir _ExtentY = 450 26*cdf0e10cSrcweir _Version = 393216 27*cdf0e10cSrcweir Appearance = 1 28*cdf0e10cSrcweir End 29*cdf0e10cSrcweir Begin VB.CommandButton AbortScan 30*cdf0e10cSrcweir Cancel = -1 'True 31*cdf0e10cSrcweir Caption = "Cancel" 32*cdf0e10cSrcweir CausesValidation= 0 'False 33*cdf0e10cSrcweir Height = 375 34*cdf0e10cSrcweir Left = 2880 35*cdf0e10cSrcweir TabIndex = 1 36*cdf0e10cSrcweir Top = 1760 37*cdf0e10cSrcweir Width = 1455 38*cdf0e10cSrcweir End 39*cdf0e10cSrcweir Begin VB.Label Label6 40*cdf0e10cSrcweir Caption = "X / Y" 41*cdf0e10cSrcweir Height = 195 42*cdf0e10cSrcweir Left = 5760 43*cdf0e10cSrcweir TabIndex = 7 44*cdf0e10cSrcweir Top = 1430 45*cdf0e10cSrcweir Width = 1200 46*cdf0e10cSrcweir End 47*cdf0e10cSrcweir Begin VB.Label Label5 48*cdf0e10cSrcweir Caption = "Label5" 49*cdf0e10cSrcweir Height = 440 50*cdf0e10cSrcweir Left = 120 51*cdf0e10cSrcweir TabIndex = 6 52*cdf0e10cSrcweir Top = 120 53*cdf0e10cSrcweir Width = 6870 54*cdf0e10cSrcweir End 55*cdf0e10cSrcweir Begin VB.Label Label4 56*cdf0e10cSrcweir Caption = "Label4" 57*cdf0e10cSrcweir Height = 195 58*cdf0e10cSrcweir Left = 120 59*cdf0e10cSrcweir TabIndex = 5 60*cdf0e10cSrcweir Top = 995 61*cdf0e10cSrcweir Width = 1155 62*cdf0e10cSrcweir End 63*cdf0e10cSrcweir Begin VB.Label Label3 64*cdf0e10cSrcweir Caption = "Label3" 65*cdf0e10cSrcweir Height = 195 66*cdf0e10cSrcweir Left = 120 67*cdf0e10cSrcweir TabIndex = 4 68*cdf0e10cSrcweir Top = 680 69*cdf0e10cSrcweir Width = 1155 70*cdf0e10cSrcweir End 71*cdf0e10cSrcweir Begin VB.Label Label2 72*cdf0e10cSrcweir Caption = "Label2" 73*cdf0e10cSrcweir Height = 195 74*cdf0e10cSrcweir Left = 1395 75*cdf0e10cSrcweir TabIndex = 3 76*cdf0e10cSrcweir Top = 995 77*cdf0e10cSrcweir Width = 5595 78*cdf0e10cSrcweir End 79*cdf0e10cSrcweir Begin VB.Label Label1 80*cdf0e10cSrcweir Caption = "Label1" 81*cdf0e10cSrcweir Height = 195 82*cdf0e10cSrcweir Left = 1395 83*cdf0e10cSrcweir TabIndex = 0 84*cdf0e10cSrcweir Top = 680 85*cdf0e10cSrcweir Width = 5595 86*cdf0e10cSrcweir End 87*cdf0e10cSrcweirEnd 88*cdf0e10cSrcweirAttribute VB_Name = "ShowProgress" 89*cdf0e10cSrcweirAttribute VB_GlobalNameSpace = False 90*cdf0e10cSrcweirAttribute VB_Creatable = False 91*cdf0e10cSrcweirAttribute VB_PredeclaredId = True 92*cdf0e10cSrcweirAttribute VB_Exposed = False 93*cdf0e10cSrcweirOption Explicit 94*cdf0e10cSrcweir 95*cdf0e10cSrcweirPrivate Declare Function GetTickCount Lib "kernel32" () As Long 96*cdf0e10cSrcweir 97*cdf0e10cSrcweirPrivate Const C_MIN_WAIT_TIME As Long = 0 98*cdf0e10cSrcweirPrivate Const C_MIN_UPDATE_TIME As Long = 100 99*cdf0e10cSrcweir 100*cdf0e10cSrcweirPrivate g_SP_StartTime As Long 101*cdf0e10cSrcweirPrivate g_SP_LastUpdate As Long 102*cdf0e10cSrcweir 103*cdf0e10cSrcweirPublic g_SP_Abort As Boolean 104*cdf0e10cSrcweirPublic g_SP_AllowOtherDLG As Boolean 105*cdf0e10cSrcweir 106*cdf0e10cSrcweirPublic Sub SP_Init(maxIndex As Long) 107*cdf0e10cSrcweir g_SP_Abort = False 108*cdf0e10cSrcweir g_SP_AllowOtherDLG = False 109*cdf0e10cSrcweir g_SP_StartTime = GetTickCount() 110*cdf0e10cSrcweir g_SP_LastUpdate = g_SP_StartTime 111*cdf0e10cSrcweir 112*cdf0e10cSrcweir ShowProgress.Visible = False 113*cdf0e10cSrcweir ShowProgress.Caption = GetResString(PROGRESS_CAPTION) 114*cdf0e10cSrcweir 115*cdf0e10cSrcweir Label3.Caption = GetResString(PROGRESS_PATH_LABEL) 116*cdf0e10cSrcweir Label4.Caption = GetResString(PROGRESS_FILE_LABEL) 117*cdf0e10cSrcweir Label5.Caption = GetResString(PROGRESS_INFO_LABEL) 118*cdf0e10cSrcweir ScanProgress.Max = maxIndex 119*cdf0e10cSrcweir 120*cdf0e10cSrcweir ShowProgress.Top = frmWizard.Top + 3200 121*cdf0e10cSrcweir ShowProgress.Left = frmWizard.Left + 500 122*cdf0e10cSrcweirEnd Sub 123*cdf0e10cSrcweir 124*cdf0e10cSrcweirPublic Sub SP_UpdateProgress(curObject As String, curParent As String, _ 125*cdf0e10cSrcweir curIndex As Long) 126*cdf0e10cSrcweir 127*cdf0e10cSrcweir Dim currTicks As Long 128*cdf0e10cSrcweir currTicks = GetTickCount() 129*cdf0e10cSrcweir 130*cdf0e10cSrcweir ScanProgress.value = curIndex 131*cdf0e10cSrcweir 132*cdf0e10cSrcweir If (Not ShowProgress.Visible) Then 133*cdf0e10cSrcweir If (currTicks - g_SP_StartTime > C_MIN_WAIT_TIME) Then 134*cdf0e10cSrcweir ShowProgress.Visible = True 135*cdf0e10cSrcweir End If 136*cdf0e10cSrcweir End If 137*cdf0e10cSrcweir If (currTicks - g_SP_LastUpdate > C_MIN_UPDATE_TIME) Then 138*cdf0e10cSrcweir g_SP_LastUpdate = currTicks 139*cdf0e10cSrcweir Label1.Caption = curParent 140*cdf0e10cSrcweir Label2.Caption = curObject 141*cdf0e10cSrcweir Label6.Caption = "(" & str$(curIndex) & "/" & str$(ScanProgress.Max) & ")" 142*cdf0e10cSrcweir End If 143*cdf0e10cSrcweirEnd Sub 144*cdf0e10cSrcweir 145*cdf0e10cSrcweirPrivate Sub AbortScan_Click() 146*cdf0e10cSrcweir g_SP_Abort = True 147*cdf0e10cSrcweir Label5.Caption = GetResString(PROGRESS_WAIT_LABEL) 148*cdf0e10cSrcweir AbortScan.Caption = GetResString(PROGRESS_ABORTING) 149*cdf0e10cSrcweir AbortScan.Enabled = False 150*cdf0e10cSrcweirEnd Sub 151*cdf0e10cSrcweir 152*cdf0e10cSrcweirPrivate Sub Form_Deactivate() 153*cdf0e10cSrcweir If Not g_SP_AllowOtherDLG Then 154*cdf0e10cSrcweir ShowProgress.ZOrder (0) 155*cdf0e10cSrcweir End If 156*cdf0e10cSrcweirEnd Sub 157*cdf0e10cSrcweir 158