Forum Discussion

shivashish's avatar
shivashish
Occasional Contributor
14 years ago

Help in creating a function to form an obejct

Hi, I want to perform the below statement Aliases.ie.HomePage.SearchPanel.FindAHotel.SetText("London")  To execute this statement from a framework I will create a function EnterText w...
tristaanogre's avatar
tristaanogre
Esteemed Contributor
14 years ago
I would do the following:



Sub EnterText (strWindowName, strControlName, strValue)
       Set objWin = Eval(strWindowName)

      Set ControlObj = Eval(objWin & "." & strControlName)

      Call ControlObj.SetText(strValue)

 

If Err.Number <> 0 Then

  BuiltIn.ShowMessage("Data entered correctly")

Else

  BuiltIn.ShowMessage("Error in forming the Control. Please try again")

End If

End sub