CorelDRAWX4的VBA插件开发(四)
用一个例子了解CORELDRAW-X4的四个基本对象
1.打开第一章的界面如下图:
2.把之前的代码稍作修改
Sub 第一个插件()Dim zongShu As IntegerzongShu = CorelDRAW.ActiveDocument.ActivePage.Shapes.CountMsgBox zongShu
End Sub
3.测试
退出之后,新建一个空白CDR页面再点击”第一个插件”按钮,可以看到当下就显示了这个页面里面的形状个数为0,然后还可以在页面上多画个框框或者输入几个文字等等,再按按钮测试一下数字会不会变.
4.代码释义:
Dim 假设
zongShu 我自己随便取的名方便我自己记忆 “总数”的意思
As 为
Integer 整数
(这里插入说一下,所有的计算机语言都是以从左到右的一行为单位进行运算的,程序是一行一行运行的,这里的第二行语句在第一行运行结束之前是绝对不会运行的,它在等待上一行完成之后才开始运行)
zongShu = (这里只解释等于号)等于号就是给前面的zongShu赋值,让它等于某数
CorelDRAW 这个是CDR这个程序的总程序
. 小数点可以翻译为”里面的”(以后没有解释都按这个意思)
ActiveDocument 正在高亮中的已打开文件(比如CDR打开了多个文件,定位到当前文件)
ActivePage 这个就是CDR下面的颜色亮一点的当前页(定位到当前页)
Shapes 形状集合(表示当前页的所有的形状的集合)
Count 总数(就是一个Integer)
第二行运行完我们的 zongShu实际上就已经有了明确的数了
第三行就是一个弹窗
这里说一点题外话,我建议大家不要复制粘贴,尽量手写程序,程序会有自动补全功能,我们打完小数点之后,程序会把所有的可能的属性和功能都显示出来,我们可以用鼠标去选择一些其它的功能作一些尝试.
在上图中我们可以看到每打完一个小数点,程序其实会提示我们在当下我们可以用到的属性或者功能
CDR里面的对象几百个,而真正重要的那么五六个,我们这一章里就介绍了三个,其实总结完就会发现简单得不得了
