Waiting VBObject
Hi I write this code 1.Dim t, Timeout 2.t = 0 3. 4. Do While (Not wMDIClient.VBObject("frmPttel").VisibleOnScreen) and t < Timeout 5. BuiltIn.Delay(1000) 6. ...
Forum Discussion
YMinaev
Staff
StaffHi,
Is there a reason to reobtain your object on each loop iteration? If you want to find out how long it takes your object to appear, why not use code like this?
Is there a reason to reobtain your object on each loop iteration? If you want to find out how long it takes your object to appear, why not use code like this?
Dim obj, timeout, t
t = GetTickCount
timeout = ' the waiting time in milliseconds
Set obj = wMDIClient.WaitVBObject("frmPttel", timeout)
If obj.Exists Then
Do While Not obj.VisibleOnScreen
obj.Refresh
If GetTickCount - t > timeout Then
' Do something here like posting an error
Exit Do
End If
Loop
End If
t = GetTickCount - t
Log.Message("Total time: " & t)