|
6#
楼主 |
发表于 2009-4-24 10:56:31
|
只看该作者
按照ddkfamily的方法
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)这句的原因 |
|