Topic: Childobjects function for WebEdit

Message

   Hello,

I
have the following function using childobjects to enter text in an edit
box. However, when executed I get an error on the
oChildren(intCounter).Set "something" line stating that the object does
not support the property or method .Set.

What am I doing wrong?

 Code:Function EditEnterText(strObjectName, strText)
	Dim oDesc, oChildren, intCounter, strType
	Set oDesc = Description.Create
	oDesc("micClass").value = "WebEdit"
	Set oChildren=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(oDesc(0))
	For intCounter = 0 To oChildren.Count - 1 
		strType = oChildren(intCounter).GetROProperty("name") 
		If strType = strObjectName Then
			MsgBox intCounter
			'oChildren(intCounter).Select 
			oChildren(intCounter).Set "something"
		End If
	Next
End function

Author	Message
laboni Newbie Joined: 25Apr2007 Online Status: Offline Posts: 1	Topic: Childobjects function for WebEdit Posted: 25Apr2007 at 4:43am
	Hello, I have the following function using childobjects to enter text in an edit box. However, when executed I get an error on the oChildren(intCounter).Set "something" line stating that the object does not support the property or method .Set. What am I doing wrong? Code: Function EditEnterText(strObjectName, strText) Dim oDesc, oChildren, intCounter, strType Set oDesc = Description.Create oDesc("micClass").value = "WebEdit" Set oChildren=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(oDesc(0)) For intCounter = 0 To oChildren.Count - 1 strType = oChildren(intCounter).GetROProperty("name") If strType = strObjectName Then MsgBox intCounter 'oChildren(intCounter).Select oChildren(intCounter).Set "something" End If Next End function Post Resume: Click here to Upload your Resume & Apply for Jobs

	IP Logged

anjan Newbie Joined: 25Apr2007 Online Status: Offline Posts: 1	Posted: 25Apr2007 at 5:24am
	Set oChildren=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(oDesc) Try this: Function EditEnterText(strObjectName, strText) Dim oDesc, oChildren, intCounter Set oDesc = Description.Create oDesc("micClass").value = "WebEdit" Set oChildren=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(oDesc) For intCounter = 0 To oChildren.Count - 1 If strObjectName =oChildren(intCounter).GetROProperty("name") Then oChildren(intCounter).Set strText Exit For End If Next End function
	IP Logged


One Stop Testing Forum : Testing Tools @ OneStopTesting : QuickTest Pro @ OneStopTesting