cicode定制过程分析器4：删除指定名字趋势板下指定名字的趋势笔

这个我在新浪博客也发过，那边的审核制度有点慢，这边可能会先出来。

对照citectVBA，现在试着使用cicode来实现这个功能。新建一个cicode函数

FUNCTION deleteSomePaneSomePen()

//删除“我的趋势板2”下面的“趋势板2下的2#趋势笔”

OBJECT pa

OBJECT hpanes

OBJECT hpane

OBJECT hpens

OBJECT hpen

INT i

INT j

pa=ObjectByName("AN4");

hpanes=_OBJECTGetProperty(pa,"Panes");

FOR i =1 TO _OBJECTGetproperty(hpanes,"count") DO

hpane=_OBJECTCallMethod(hpanes,"get_item",i);

IF _OBJECTGetproperty(hpane,"name")="我的趋势板2" THEN

hpens=_OBJECTGetProperty(hpane,"pens")

FOR j=1 TO _OBJECTGetproperty(hpens,"count") DO

hpen=_OBJECTCallMethod(hpens,"get_item",j)

IF _OBJECTGetproperty(hpen,"name")="趋势板2下的2#趋势笔" THEN

_ObjectCallMethod(hpen, "delete");

END

END

END

END

END

 

在画面上放置按钮，按钮的鼠标点击事件调用上述函数。保存编译运行项目，就可以看到效果了。

这个练习前面一直卡在循环语句上面，语法不熟悉害死人啊。

icode的for循环语句语法是这样子的

FOR Variable=Expression To Expression DO

    Statement(s);

END