这个我在新浪博客也发过,那边的审核制度有点慢,这边可能会先出来。
对照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 标签:cicode,END,OBJECT,指定,hpane,名字,趋势,hpen From: https://www.cnblogs.com/fishingsriver/p/17001173.html