migrationanalysis/src/wizard/SearchDocs.frm

   1 VERSION 5.00\r
   2 Begin VB.Form SearchDocs \r
   3    BorderStyle     =   3  'Fixed Dialog\r
   4    Caption         =   "Looking for Files"\r
   5    ClientHeight    =   1830\r
   6    ClientLeft      =   2505\r
   7    ClientTop       =   2325\r
   8    ClientWidth     =   7110\r
   9    ControlBox      =   0   'False\r
  10    LinkTopic       =   "Form1"\r
  11    MaxButton       =   0   'False\r
  12    MinButton       =   0   'False\r
  13    ScaleHeight     =   1830\r
  14    ScaleWidth      =   7110\r
  15    ShowInTaskbar   =   0   'False\r
  16    Visible         =   0   'False\r
  17    Begin VB.CommandButton AbortScan \r
  18       Cancel          =   -1  'True\r
  19       Caption         =   "Cancel"\r
  20       CausesValidation=   0   'False\r
  21       Height          =   375\r
  22       Left            =   2880\r
  23       TabIndex        =   1\r
  24       Top             =   1350\r
  25       Width           =   1455\r
  26    End\r
  27    Begin VB.Label Label5 \r
  28       Caption         =   "Label5"\r
  29       Height          =   440\r
  30       Left            =   120\r
  31       TabIndex        =   5\r
  32       Top             =   120\r
  33       Width           =   6870\r
  34       WordWrap        =   -1  'True\r
  35    End\r
  36    Begin VB.Label Label4 \r
  37       Caption         =   "gefundene Dokumente:"\r
  38       Height          =   195\r
  39       Left            =   120\r
  40       TabIndex        =   4\r
  41       Top             =   960\r
  42       Width           =   1800\r
  43    End\r
  44    Begin VB.Label Label3 \r
  45       Caption         =   "Pfad:"\r
  46       Height          =   195\r
  47       Left            =   120\r
  48       TabIndex        =   3\r
  49       Top             =   680\r
  50       Width           =   1800\r
  51    End\r
  52    Begin VB.Label Label2 \r
  53       Caption         =   "Label2"\r
  54       Height          =   195\r
  55       Left            =   2040\r
  56       TabIndex        =   2\r
  57       Top             =   995\r
  58       Width           =   5595\r
  59    End\r
  60    Begin VB.Label Label1 \r
  61       Caption         =   "Label1"\r
  62       Height          =   195\r
  63       Left            =   2040\r
  64       TabIndex        =   0\r
  65       Top             =   680\r
  66       Width           =   5595\r
  67    End\r
  68 End\r
  69 Attribute VB_Name = "SearchDocs"\r
  70 Attribute VB_GlobalNameSpace = False\r
  71 Attribute VB_Creatable = False\r
  72 Attribute VB_PredeclaredId = True\r
  73 Attribute VB_Exposed = False\r
  74 Option Explicit\r
  75 \r
  76 Private Declare Function GetTickCount Lib "kernel32" () As Long\r
  77 \r
  78 Private Const C_MIN_WAIT_TIME   As Long = 1000\r
  79 Private Const C_MIN_UPDATE_TIME As Long = 100\r
  80 \r
  81 Private g_SD_StartTime As Long\r
  82 Private g_SD_LastUpdate As Long\r
  83 \r
  84 Public g_SD_Abort As Boolean\r
  85 \r
  86 Private Sub Form_Load()\r
  87 \r
  88     g_SD_Abort = False\r
  89     g_SD_StartTime = GetTickCount()\r
  90     g_SD_LastUpdate = g_SD_StartTime\r
  91     \r
  92     SearchDocs.Visible = False\r
  93     SearchDocs.Caption = GetResString(SEARCH_CAPTION)\r
  94     \r
  95     Label3.Caption = GetResString(SEARCH_PATH_LABEL)\r
  96     Label4.Caption = GetResString(SEARCH_FOUND_LABEL)\r
  97     Label5.Caption = GetResString(SEARCH_INFO_LABEL)\r
  98 End Sub\r
  99 \r
 100 Public Sub SD_UpdateProgress(curObject As String, curParent As String)\r
 101 \r
 102     Dim currTicks As Long\r
 103     currTicks = GetTickCount()\r
 104     \r
 105     If (Not SearchDocs.Visible) Then\r
 106         If (currTicks - g_SD_StartTime > C_MIN_WAIT_TIME) Then\r
 107             SearchDocs.Visible = True\r
 108         End If\r
 109     End If\r
 110     If (currTicks - g_SD_LastUpdate > C_MIN_UPDATE_TIME) Then\r
 111         g_SD_LastUpdate = currTicks\r
 112         Label1.Caption = curParent\r
 113         Label2.Caption = curObject\r
 114     End If\r
 115 End Sub\r
 116 \r
 117 Private Sub AbortScan_Click()\r
 118     g_SD_Abort = True\r
 119 End Sub\r
 120 \r
 121 Private Sub Form_Deactivate()\r
 122     SearchDocs.ZOrder (0)\r
 123 End Sub\r
 124 \r