替换字符串属性

可以利用FindReplace对象来替换一个运行中的对象的字符串属性 下面范例使用了FindReplaceInObject方法来达到上述目的。范例中的代码查询了一个画面中的一组对象，然后用AI替换AO来改变对象的数据源。

范例中的代码查询了一个画面中的一组对象，然后用AI替换AO来改变对象的数据源。

查询一个画面中的AO数据源并用AI数据源来替换:

1. 插入一个数据链接接（Data link）并指定Fix32.Thisnode.AO.F_CV作为它的数据源。
2. 插入一个矩形并用AO做为动态水平填充百分比（HorizontalFillPercentage）的数据源。
3. 现在复制（duplicate）这个矩形3次。
4. 选择所有的矩形并将它们捆绑成组（Group）。
5. 将这个组命名为"MyGroup"。
6. 创建一个按钮。右击按钮并从弹出菜单中选择编辑脚本。
7. 在按钮的Click事件中输入下列代码:

Dim Success As Boolean

FindReplace.FindReplaceInObject MyGroup, 4, "AO", "AI",_

     Success

'The 4 indicates to search through data sources only.

8. 切换到运行时环境并单击按钮。

FindReplace对象会查询MyGroup并将所有AO替换为AI。由于数据链接未包括在MyGroup之内，所以保持不变。

相关信息

如何做...