Forum Discussion

DevChaminda's avatar
DevChaminda
Occasional Contributor
13 years ago

Delay VB scripts not working

I have written some code in
VB to check whether object exists or not before performing
future tasks.

But Testcomplete not working as expected it's just
jump into last line of the code and display that window does not exists.


 ---------------------------------------------------------

Sub Test()

Dim Test_Object_Name

Test_Object_Name = Sys.Process("Test").WinFormsObject("frmMenu").WinFormsObject("txtOutput")


If Not(Test_Object_Name.Exists) Then


Sec_val = 10000


Do 


Delay(10000)


Test_Object_Name.Refresh


sec_val = sec_val + 10000


If Test_Object_Name.Exists Then


Exit Do


End If


Loop


End If


End Sub 




Sys.Process("Test").WinFormsObject("frmMenu").Close

----------------------------------------------------------

3 Replies

  • DevChaminda's avatar
    DevChaminda
    Occasional Contributor
    VB code corrections. Please ignore the previous VB code

    -----


    Sub Test()

    Dim Test_Object_Name

    Test_Object_Name = Sys.Process("Test").WinFormsObject("frmMenu").WinFormsObject("txtOutput") 

    If Not(Test_Object_Name.Exists) Then 

    Sec_val = 10000 

    Do  

    Delay(Sec_val) 

    Test_Object_Name.Refresh 

    sec_val = sec_val + 10000 

    If Test_Object_Name.Exists Then 

    Exit Do 

    End If 

    Loop 

    End If 

    End Sub  





    Sys.Process("Test").WinFormsObject("frmMenu").Close
  • VLapidus's avatar
    VLapidus
    Frequent Contributor
    The correct variant:



    Sub Test()

      Set Test_Object_Name = Sys.Process("Test").WinFormsObject("frmMenu").WaitWinFormsObject("txtOutput") 


      If Test_Object_Name.Exists Then 


        'code

      End If 


    End Sub