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