CorelDRAWX4的VBA插件开发{一}前言及最简单的小程序写法

---

前言

关于VBA的开发,实际上在CDR的开发中是属性难度最低,最易上手,也是最好用的方式,而缺点也很明显,就是源码都是公开的容易被篡改,运行速度如果未编译的话也不是很理想.如果是想开发专业插件,也应当先熟悉VBA的操作再进行C++插件的开发,因为C++的开发最终就是比VBA多了一些入口函数,句柄,调用的时候多了命名空间等等,本质上是一样的.熟悉了VBA再进行C++开发能事半功倍.我这一次是用简单的方式用我的理解把这个东西尽量讲明白和全面,因为网上也有很多教程,而且也写得不错,但有的写得不全面或者写得看不懂,所以这里也就是去繁存简稍微改进吧

---

下面从头开始一步一步示例一个最简单的cdrX4-VBA弹窗功能:

准备工作

1.新建一个TXT文件

2.把文件的后缀格式改为.gms

3.把文件复制到CDR主路径之下

把文件复制到这个路径:D:\Program Files (x86)\CorelDRAW X4\Draw\GMS 当然了,路径要根据每个人的CDR的安装位置不同自己大概找一下就行了,文件名不仅仅是新建文件文档,还可以随意命名,这里为了方便就一直用这个名称了

4.重新打开CDR软件,并且打开”宏编辑器”

5.打开”新建的文件.gms”

6.更改项目名称

更改项目名称为一个简短的字母,示例:A

写代码

7.写入代码

双击打开A并写入以下内容:

Sub 第一个插件()
    MsgBox "你好"
End Sub

8.返回CDR

写好后直接关闭退出这个宏编辑界面回到CDR,然后按键ctrl+j打开设置找到命令中的宏命令

9.把刚刚写的插件托出来

10.这样就得到一个插件的面板

11.更改面板

更改面板位置和样式,然后可以托动它到任意想到的位置,托动完了之后只要关闭一下CDR就可以保存位置和样式了.

12.最终效果如下

13.点击按钮就弹窗

总结

以上就完成一个最简单的VBA插件,下面来解释一下每句语言的意思:

Sub 第一个插件()
    MsgBox "你好"
End Sub

Sub 代表功能,后面要带上空格
第一个插件 功能的命名(可英文,可随意命名方便自己记忆),后面要带上括号,并且中间不需要空格
() 括号代表往功能内部传递的东西(参数,可以传很多个也可以不传,留空表示默认不传)
End Sub 代表功能的结束,两个sub之间的内容就是本功能要实现的功能
MsgBox 这是一个弹窗功能,后面可以空格接要表达的文字等内容,如果是纯文字要用引号包括起来,因为是在sub的内部,所以建议前面按TAB键空一点距离,保持良好的写作习惯,主要是为了我们作者自己看得懂而已,实际上机器运行的时候并不需要