migrationanalysis/src/wizard/ScanFolders.frm

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