如何返回函数中的变量

shuishixingyu

Dim str_obj
Dim str_property
Dim str_type

Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set objTemp = str_obj.ChildObjects(oDesc)
   NumberOfList = objTemp.Count
End Function

Function get_property(str_obj,obj_property)
   str_property = str_obj.GetRoProperty(obj_property)  
End Function

Call  get_object( "micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")


Call  get_property(objTemp,"name")
请问能否返回get_object（）中的objTemp，使用在get_property中？
我在函数get_object（）中写get_object = objTemp也没有效果

virgolong

用set get_object = objTemp就可以在函数中返回get_object
set是将引用赋值给变量

对于
Function get_property(str_obj,obj_property)
   str_property = str_obj.GetRoProperty(obj_property)  
End Function
只需要一个参数啊
Function get_property(obj_property)
   dim str_obj
    set str_obj=get_object( "micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")
   str_property = str_obj.GetRoProperty(obj_property)  
End Function

另外,调用Function 时不要用call,直接用函数名+参数即可.“使用 Call 语法调用内部函数或使用用户自定义函数，函数返回值都会被放弃”－－－这句话引用的帮助文档

我没有测试，自己调试下了。

ddkfamily

Dim str_obj
Dim str_property
Dim str_type
Dim obj_Temp

Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set objTemp = str_obj.ChildObjects(oDesc)
   NumberOfList = objTemp.Count
   get_object = str_obj.ChildObjects(oDesc)
End Function

obj_Temp = get_object(micclass,str_obj,str_type)

Function get_property(obj_Temp,obj_property)
   str_property = str_obj.GetRoProperty(obj_property)  
End Function

Call  get_object( "micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")

风雪夜归人

真的不要用Call，直接函数名就可以了

shuishixingyu

Dim str_obj
Dim str_property
Dim str_type


Public Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set objTemp = str_obj.ChildObjects(oDesc)
'   NumberOfList = objTemp.Count
   Set get_object = objTemp
End Function

Function get_property(obj_property)
   Dim str_obj
   Set str_obj=get_object( "micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")
   str_property = str_obj.GetRoProperty(obj_property)  
End Function

get_object "micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit"

get_property "name"

在 str_property = str_obj.GetRoProperty(obj_property)  处显示如图

shuishixingyu

Dim str_obj
Dim str_property
Dim str_type
Dim obj_Temp

Public Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set objTemp = str_obj.ChildObjects(oDesc)
'   NumberOfList = objTemp.Count
   get_object = objTemp
End Function

obj_Temp = get_object(micclass,str_obj,str_type)

Function get_property(str_obj,obj_property)
   str_property = str_obj.GetRoProperty(obj_property)  
End Function

Call get_object("micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")
call  get_property(obj_Temp,"name")
在 oDesc(micclass).Value = str_type处显示语法错误
估计是obj_Temp = get_object(micclass,str_obj,str_type)这句的原因

virgolong

不好意思，考虑到重用性，get_property还是应该有两个参数，第一个参数从get_object来
Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set get_object = str_obj.ChildObjects(oDesc)
End Function

Function get_property(str_obj,obj_property)
   get_property= str_obj.GetRoProperty(obj_property)  
End Function

调用：
set obj_Temp =get_object("micclass",Browser("**").Page("**").Frame("mainboard"),"WebEdit")
result=get_property(obj_Temp,"name")

shuishixingyu

在get_property= str_obj.GetRoProperty(obj_property)总显示对象不支持该属性或方法

walker1020

个人猜测：GetRoProperty 是 QTP自己封装的函数，它要求必须是 某类Object才可以使用它。 因此建议你先使用RegisterUserFunc ，为某类对象增加一个 get_property  函数后 再重新尝试运行你的代码

walker1020

如 RegisterUserFunc "WebEdit","get_property","get_property"

Function get_property(str_obj,obj_property)
   get_property = str_obj.GetRoProperty(obj_property)  
End Function

shuishixingyu

仍然出现上述错误，请问版主是这么写的吗？
Dim str_obj
Dim str_property
Dim str_type

Function get_object(micclass,str_obj,str_type)
   Dim oDesc
   Set oDesc = Description.Create()
   oDesc(micclass).Value = str_type
   Set get_object = str_obj.ChildObjects(oDesc)
'   NumberOfList = objTemp.Count
End Function

Function get_property(str_obj,obj_property)

   get_property = str_obj.GetRoProperty(obj_property)  
   
End Function

RegisterUserFunc "WebEdit","GetRoProperty","get_property"

Set obj_Temp = get_object( "micclass",Browser("万翔商务网").Page("万翔商务网").Frame("mainboard"),"WebEdit")
result = get_property(obj_Temp,"name")