CorelDRAWX4的VBA插件开发(四十五)建立类(2)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线

在上一节中已经建立好了类,那么这一节我们来调用它,先建立一个面板
然后修改框体名称
然后从左侧新建一些按钮并且以拼音为结尾进行命名

Private Sub CheckBox2_zheYe_Click() '鼠标按下几折页单选时触发If Me.CheckBox2_zheYe ThenMe.TextBox3_zheYeShu.Enabled = True   '让右侧方框有效Me.TextBox3_zheYeShu.BackColor = &HFFFFFF   '让右侧方框变白ElseMe.TextBox3_zheYeShu.Enabled = False  '让右侧方框无效Me.TextBox3_zheYeShu.BackColor = &HCCCCCC '让右侧方框变灰End If
End SubPrivate Sub UserForm_Initialize()    '面板初始化函数Me.OptionButton5_none.Value = TrueMe.TextBox3_zheYeShu.Enabled = False   '让右侧方框无效Me.TextBox3_zheYeShu.BackColor = &HCCCCCC '让右侧方框变灰
End SubPrivate Sub CommandButton1_shengCheng_Click()  '按下生成按钮触发Dim a As uniformSize    '设变量a为类的类型Set a = New uniformSize '创建uniformSize的对象If Me.TextBox1_kuan.Value <> "" Thena.kuan = Me.TextBox1_kuan.Value '给a中的kuan赋值ElseMsgBox "未输入宽度"GoTo cuowuEnd IfIf Me.TextBox2_gao.Value <> "" Thena.gao = Me.TextBox2_gao.Value    '给a中的gao赋值ElseMsgBox "未输入高度"GoTo cuowuEnd If'给出血赋值If Me.OptionButton5_none.Value Thena.chuXue = 0ElseIf Me.OptionButton1.Value Thena.chuXue = 1ElseIf Me.OptionButton3.Value Thena.chuXue = 2ElseIf Me.OptionButton4.Value Thena.chuXue = 3End Ifa.zheOrNot = Me.CheckBox2_zheYe  '检测是否要折页If a.zheOrNot Thena.zheYe = Me.TextBox3_zheYeShu.Value '给折页数赋值End Ifa.ShuZhe = Me.CheckBox3_shuZhe.Value '检测是否要竖折Unload Me  '卸载并关闭这个面板,因为这个面板的作用已经达到,这里的Me用面板名称替代也可以On Error GoTo cuowuCorelDRAW.Optimization = TrueCorelDRAW.ActiveDocument.BeginCommandGroupCorelDRAW.ActiveDocument.Unit = cdrMillimetera.drawRect    '执行画框函数a.drawGuideLine '执行辅助线函数If a.zheOrNot Then '如果勾选了折页a.drawZheYe    '执行折页线函数End Ifset a = nothing  '手动回收对象acuowu:CorelDRAW.ActiveDocument.EndCommandGroupCorelDRAW.Optimization = FalseCorelDRAW.Refresh
End Sub

好了,调用的函数也已经弄好了,这里回收的时候用了set a = nothing,直接回收这个对象,可以看到我们在这里的调用当中全部面向的是a对象,这就叫面向对象编程,换句话说就是面向类(公司)编程,可以把各种功能全都做成各种类(公司),当然了,VB中的类不支持向构造函数中传参,所以也不存在重构函数,它的类只能是有一个固定功能,所以看到这里关于类的另一个好处也是显而易见的,那就是a只是我们创造的对象之一,那么我们还可以同时构造出相同的Set b = New uniformSize,c,d…等等,所以有了类,我们就可以使用很短的时间创造出相似功能的对象,极大的提高了代码的重复利用率,同时也就是精简了代码行数

CorelDRAWX4的VBA插件开发(四十五)建立类(2)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线相关推荐

CorelDRAWX4的VBA插件开发(四十四)建立类(1)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线
这次主要来浅讲一下"类"这个功能,先上一下要实现的功能,建立设计外框加出血线和等分折页线,先上图那什么是类呢?类其实就是CLASS,用来封装成员参数和函数的,拆开来里面就是这些东 ...
CorelDRAWX4的VBA插件开发(二十五)多类目选择实现复合框内容置换
有时候我们的复合框内的内容是有更多的需求,但是我们又不想另开一个窗口,怎么办呢,我们直接使用复合框内容替换就行啦先上效果图: 先在面第板上拉出一个框架, 再在里面添加上三个选项按钮, 添加好之后这三 ...
CorelDRAWX4的VBA插件开发(四十六)VBA插入启动事件让CDR启动时检测并自动添加工具栏和按钮
先上结果图,这个工具栏和按钮都是主程序自动生成的在程序的运行当中,如果我们希望程序能够自己创建工具栏和按钮,可以在CDR启动事件中设置一个检测功能 Private Sub GlobalMacroSt ...
CorelDRAWX4的VBA插件开发(三十五)调用C++实现一键智能群组(第4节)递归调用框选工具
上一节没有讲到的递归函数diguiSelect,这一单独列出来讲一下 INT diguiSelect(long count, DOUBLE LX, DOUBLE BY, DOUBLE RX, DOUB ...
CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象
CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象 1.打开第一章的界面如下图: 2.把之前的代码稍作修改 Sub 第一个插件()Dim zongShu ...
CorelDRAWX4的VBA插件开发(二十四)复合选框组件与联合命名面板
我们在处理文档的时候碰上的最多的问题就是与字符串相当的问题,这里再拿出来单把各种使用命名的小组件讲一下,我们先上效果图: 我们可以在上图看到最终结果,可以让一行文件名跟随各种组件进行更改,下下面我们先 ...
CorelDRAWX4的VBA插件开发(三十四)调用C++实现一键智能群组(第3节)主调函数以及三个被调函数
这一节就进入到了群组的实质性的内容,先把群组Qunzu()函数展示一下先展示主调函数Qunzu(),函数里面还有四个被调函数等会儿再说 BOOL Qunzu() {//undo开这个是一键多步撤销 ...
CorelDRAWX4的C++插件开发(四十)纯C++插件开发(4)继承插件结构体IVGAppPlugin和自动化接口IDispatch
因为在注册插件的时候,是要传一个名为IDispatch*这样子的一个参数,所以我们可以看到插件在注册的时候默认就是要求这是一个实现了自动化的接口(IDispatch,如下图所示,是后面将要展示的代码, ...
猫猫学iOS（四十五）之常用的小功能比如打电话、打开网址、发邮件、发短信打开其他应用。...
猫猫分享,必须精品原创文章,欢迎转载.转载请注明:翟乃玉的博客地址:http://blog.csdn.net/u013357243?viewmode=contents 简介 iOS中的很多小功能都 ...

CorelDRAWX4的VBA插件开发(四十五)建立类(2)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线

CorelDRAWX4的VBA插件开发(四十五)建立类(2)汇总相似功能简化重复代码:一键建立设计外框加出血线和等分折页线相关推荐

最新文章

热门文章