Adding Visual Relation id via script to new object

[jcraig26]

Here is the scenario. I am using a random number to create an email. It will be in a list with a '+' next to it in a grid. All rows will have the '+' and then the email address in line to the right. I need to expand down the '+' to verify that an email was sent to the email address with the random number. Not only do I not know the email address because of the random number, it can be anywhere in the list - first, last, or anything in between. This means I can't rely on index.

My plan - Both of these items are WEBELEMENTS. I want to create the '+' WEBELEMENT and use the email as a Visual Relation identifier in the script.

I can create the object for the email no problem. I am having problems getting the visual relation added to the '+'. I may have been looking at this too long as well so sorry if it is a minor mistake I am overlooking. I need to remember to blink! :-)

Here the script - I set the email for testing:

Code:

Dim sEmail Dim oDesc 'Description Object Dim colObject 'Object Collection sEmail="john214@smith.com" Set oDesc = Description.Create oDesc( "micclass" ).value = "WEBELEMENT" 'Additional property- for more focused and controlled collection oDesc( "Innertext" ).value = sEmail Set colObject = Browser("title:=MYTITLE").Page("title:=MYTITLE").ChildObjects(oDesc ) Dim oVisualRelation, oRelationToElement, oElementDesc,colobject2 Set oVisualRelation = VisualRelations.Create Set oRelationToElement = oVisualRelation.Add oRelationToElement.relatedobjectpath = "Browser(""title:=MYTITLE"").Page(""title:=MYTITLE"").ChildObjects(oDesc )" oRelationToElement.relativeposition = micRelLeft oRelationToElement.setargument micRelInline, True Set ElementDesc = Description.Create ElementDesc("micclass").Value = "WEBELEMENT" ElementDesc("visual relations").Value = VisualRelation Set colobject2 = Browser("title:=MYTITLE").Page("title:=MYTITLE").ChildObjects(ElementDesc) colobject2(0).Highlight

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

Sorry if this is a little simple for this forum. I am stuck and relatively new to QTP. Thanks in advance!

---

Okay, according to QTP's help files, you can't do this. You must have the object in the object repository to use it as a visual relation identifier.

New plan. Use existing object - add the WEBELEMENT for the email, but update the innertext value. This would make the object on the correct row.

Now, how do I update the object values via the script... back to research. But, any suggestions, please let me know.

Thanks!

[ourhari]

Disclaimer: I understand this is a old thread, but thought that I can post a code snippet so that it can be referred.

In continuation with my another thread (https://www.learnqtp.com/forums/Thread-V...rk-with-DP), I tried to implement the above "new plan", which worked perfect for me. I have used "setTOProperty" to set the property.

Here is the code.

Code:

Dim desc1, desc2 Set desc1 = Browser("MyBrowser").Page("MyPage").WebElement("Country") desc1.highlight desc1.setTOProperty "innertext", "Date of Last Update:" desc1.highlight Dim VisualRel, relation Set VisualRel = VisualRelations.Create Set relation = VisualRel.Add relation.RelatedObjectPath = "Browser(""MyBrowser"").Page(""MyPage"").WebElement(""Country"")" relation.relativeposition = micRelLeft relation.setargument micRelInline, True Set relation = Nothing Set desc2 = Description.Create desc2( "innertext").Value = ".*" desc2("html tag").value= "TD" desc2("Visual Relations").Value = VisualRel Browser("title:=.*").Page("title:=.*").WebElement( desc2).highlight

NOTE: Care must be taken, as for the rest of the QTP execution session, "Country" object still refers to the "Date of Last Update:" label only. However, after the execution, the local repository is intact, and points to the Country label only.