想问一下，可不可以把对象的名字拆开重新组合呢？

lzy651

例如这样的一个对象
SwfWindow("TMS2").SwfWindow("预订单列表").SwfWindow("预订单输入").Dialog("确定对话框").Static("确定对话框")

我想把 SwfWindow("TMS2").SwfWindow("预订单列表"). 拆出来，然后把 Dialog("确定对话框").Static("确定对话框") 也拆出来

然后再组合起来，这样可以方便维护一些，系统比较庞大比较复杂，如果可以把对象当成字符串拆开，然后重新组合，这个对大型系统比较有意义。

lzy651

我这边测试的系统比较庞大，重复的模块比较多，
我是想作个针对 文本框所有功能测试 的 函数，然后更具不同的参数，在函数中生成不同的对象（当然都是对象库中存在的对象，只是名称在函数中重新组合）去加载，去测试
所以想 把对象的名称 截开，当成参数传给函数

Randall

DIm str1, str2
str1 = SwfWindow("TMS2").SwfWindow("预订单列表")
str2 = SwfWindow("预订单输入").Dialog("确定对话框").Static("确定对话框")
Set obj = &Eval(str1&"."&str2)
msgbox obj.exist(3)

lzy651

LS的非常感谢你
不过我稍微改了一下,如下

DIm str1, str2
str1 = "SwfWindow(""TMS2"").SwfWindow(""预订单列表"")"
str2 = "SwfWindow(""预订单输入"").Dialog(""确定对话框"").Static(""确定对话框"")"
Set obj = Eval(str1&"."&str2)
msgbox obj.exist(3)

gp_jl

为什么要这样修改呢？
按照3#的做法已经打到的你的目的了，但是，按照你的修改方式，就不确认了。。。

lzy651

原帖由 gp_jl 于 2008-11-20 14:57 发表
为什么要这样修改呢？
按照3#的做法已经打到的你的目的了，但是，按照你的修改方式，就不确认了。。。

按照3楼的回复,会抱错,