CorelDRAW——VBA实例篇一个简单的VBA插件

函数代码： （ALT+F11快速进入宏编辑）

Public Sub Demo1()
Rem|"视图-此处为第一种注释方法"
' Load UserForm1 加载窗口UserForm1-此处为第二种注释方法Load UserForm1If ActiveWindow.ActiveView.Type = cdrEnhancedView ThenUserForm1.Text = "Enhanced"ElseIf ActiveWindow.ActiveView.Type = cdrNormalView ThenUserForm1.Text = "Normal"ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView ThenUserForm1.Text = "Wireframe"ElseIf ActiveWindow.ActiveView.Type = cdrSimpleWireframeView ThenUserForm1.Text = "Simple Wireframe"ElseIf ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints ThenUserForm1.Text = "Enhanced WithOverprints"ElseUserForm1.Text = "Draft"
'此处结束If语句判断End If
'显示(名称)为UserForm1的窗口UserForm1.Show
'函数结束语
End Sub

窗口效果图：

查看窗口代码：

Private Sub Bt1_Click()
'赋值视图类型
ActiveWindow.ActiveView.Type = cdrSimpleWireframeView
MsgBox "简单线框"
'给文本框赋值
Text.Text = "Simple Wireframe"
'刷新显示
UserForm1.Repaint
End SubPrivate Sub Bt2_Click()
ActiveWindow.ActiveView.Type = cdrWireframeView
MsgBox "线框"
Text.Text = "Wireframe"
'刷新显示
UserForm1.Repaint
End SubPrivate Sub Bt3_Click()
ActiveWindow.ActiveView.Type = cdrDraftView
MsgBox "草稿"
Text.Text = "Draft"
'刷新显示
UserForm1.Repaint
End SubPrivate Sub Bt4_Click()
ActiveWindow.ActiveView.Type = cdrNormalView
MsgBox "正常"
Text.Text = "Normal"
'刷新显示
UserForm1.Repaint
End SubPrivate Sub Bt5_Click()
ActiveWindow.ActiveView.Type = cdrEnhancedView
MsgBox "增强"
Text.Text = "Enhanced"
'刷新显示
UserForm1.Repaint
End SubPrivate Sub Bt6_Click()
ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints
MsgBox "使用叠印增强"
Text.Text = "Enhanced WithOverprints"
'刷新显示
UserForm1.Repaint
End Sub

到绘图界面运行宏名称为Demo1的宏

效果图：

…………………………………………………………4:46继续更新

CorelDRAW——VBA实例篇一个简单的VBA插件相关推荐

C++程序设计：原理与实践（进阶篇）15.6　实例：一个简单的文本编辑器
15.6 实例:一个简单的文本编辑器列表最重要的性质就是可以在不移动元素的情况下对其进行插入或删除操作.下面我们通过一个例子来说明这一点.考虑应该如何在文本编辑器中表示一个文本文件中的字符.所选用的 ...
Android-实现一个简单的自动翻译插件
目录实现一个简单的自动翻译插件实现思路几个重要的实现方法 1.解析xml 2.写文件 3. 翻译使用实现一个简单的自动翻译插件最近在开发项目是要将Android相关的资源进行国际化,需要将 ...
搜索引擎快捷导航：一个简单的chrome插件（教程）
搜索引擎快捷导航使用方法 :下载crx扩展名文件,拖入chrome应用管理界面即可 github地址:https://github.com/mouday/chrome-search-tool 编写一 ...
win32c语言编程实例,实例分析一个简单的Win32程序
本文较为详细的分析了一个Win32程序的组成.结构.实现方法及运行原理,对于进行Windows程序设计有很好的借鉴参考价值.分享给大家供大家参考之用.具体分析如下: 一.Windows程序与普通C或C ...
编写一个简单的NodeBB插件
要写 NodeBB 插件,棒极了!在这之前,你需要知道一些东西. 和 WordPress 类似,NodeBB 的插件搭建在 NodeBB 的钩子系统上.钩子系统,通过可控制的方式,把 NodeBB 的 ...
鸟哥的Linux私房菜(基础篇)- 一个简单的 SPFdisk 分割实例
一個簡單的 SPFdisk分割實例最近更新日期:2005/06/12 磁碟分割是個很重要的學習知識!尤其是在您原本的硬碟空間不足了,或者是新增硬碟了,或者是為了增加磁碟效能而必須要規劃出比較適當大小 ...
python实现支持向量机实例_一个简单的案例带你了解支持向量机算法（Python代码）...
介绍掌握机器学习算法并不是一个不可能完成的事情.大多数的初学者都是从学习回归开始的.是因为回归易于学习和使用,但这能够解决我们全部的问题吗?当然不行!因为,你要学习的机器学习算法不仅仅只有回归! 把 ...
Qt5.9/C++架构实例（一个简单的MCV架构应用实例）
本文主要在Qt5.9/C++桌面应用项目开发中,总结一个常用的程序架构(或框架),整个工程主要分为三大模块,分别为视图层.控制层.模型层.其中,视图层完全负责界面类的编写和展示:控制层完全负责处理逻辑 ...
CSS实例—以一个简单网页为例
CSS实例一.整体布局二.总览三.详述 3.1 header 3.1.1 title 内容:gsonya-CSS 3.1.2 search (1)input type:search: 动画效果: ...
一个HTML实例:写一个简单的注册页面
<!-- 暂时还没学CSS,只能是用表格进行页面布局,但是实际开发的时候不要这样写,这个题还是挺不错的,能够检验前面所学知识是否牢固,但是对于实际开发的时候不可这样使用做这个网页的时候遇到两个 ...

CorelDRAW——VBA实例篇一个简单的VBA插件

CorelDRAW——VBA实例篇一个简单的VBA插件相关推荐

最新文章

热门文章