将百度我的提问怎么删除删除

来源：蜘蛛抓取(WebSpider) 时间：2018-02-06 18:32 标签： 怎么删除我的提问
君，已阅读到文档的结尾了呢~~
基于VBA的AutoCAD二次开发及应用实例
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
基于VBA的AutoCAD二次开发及应用实例
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口文档分类：
下载后只包含 1 个 DOC 格式的文档，没有任何的图纸或源代码，
下载前请先预览，预览内容跟原文是一样的，在线预览图片经过高度压缩，下载原文更清晰。
您的浏览器不支持进度条
下载文档到电脑，查找使用更方便
还剩?页未读，继续阅读
播放器加载中，请稍候...
该用户其他文档
下载所得到的文件列表基于coreldraw_10进行vba二次开发和实例解析.doc
文档介绍：
1.5 一个简单 VBA 程序本程序是为了简单介绍 VBA 编辑器编辑程序的过程。功能为改变当前应用程序的显示模式,并在文本编辑框中显示当前的显示模式。步骤如下: (1)在 CorelDRAW10.gms 工程中单击右键, 在菜单中选择“ Insert —&Module ”, 创建一个模块对象。(2) 选择该模块对象,单击 F4 显示属性窗口,把属性 Name 的缺省值“ Module1 ”改为“ Display ”。(3) 双击模块对象 Display ,显示代码窗口。此时的代码窗口为空。(4)从“ Insert ”菜单中选择“ Procedure …”命令,打开增加过程对话框。在 Nam e 文本框中输入“ Display ”, 其余缺省。单击确定。此时代码窗口中增加了一个子过程 Display 。(5) 下面创建一个用户窗体。在 CorelDRAW10.gms 工程中单击右键,在菜单中选择“ Insert —&UserForm ”。此时, 在工程资源管理器中 CorelDRAW10.gms 工程下的 Forms 文件夹下增加一个 UserForm1 空窗体, 并打开了该窗体。在属性窗口中改变窗体名称和标题分别为“ frmDisplay ”和“显示模式”。(6) 拖动 Label 控件至窗体,改变标题属性为“当前显示模式为”。(7) 拖动 Textbox 控件至窗体。(8) mandButton 控件至窗体,在属性窗口中改变控件名称和标题分别为“ NormalDisplay ”和“ Normal ”。(9) 同( 8 ) ,共创建 6 人按钮控件。控件名称和标题分别为: EnhanceDisplay Enhance NormalDisplay Normal DraftDisplay Draft WireframeDisplay Wireframe SimpleDisplay Simple DisplayClose Close 完整的用户窗体已完成(图 1-10 )。图 1-10 用户窗体(10) 下面是编辑代码。首先,在模块对象 Display 中调用 frmDisplay 用户窗体。在窗体显示之前,应当对 Textbox1 进行初始化。但初始化用户窗体,就不能直接使用 Display.Show 的方法来打开用户窗体了, 必须先使用 Load 语句调入用户窗体 frmDisplay 。代码如下: Public Sub Display() Load frmDisplay If ActiveWindow.ActiveView.Type = cdrEnhancedView Then frmDisplay.TextBox1 = &Enhanced& ElseIf ActiveWindow.ActiveView.Type = cdrNormalView Then frmDisplay.TextBox1 = &Normal& ElseIf ActiveWindow.ActiveView.Type = cdrDraftView Then frmDisplay.TextBox1 = &Draft& ElseIf ActiveWindow.ActiveView.Type = cdrWireframeView Then frmDisplay.TextBox1 = &Wireframe& Else frmDisplay.TextBox1 = &Simple Wireframe& End If frmDisplay.show End Sub (11) 双击用户窗体的“ Enhanced ”按钮,编辑代码实现把当前显示模式改变为增强型模式。代码如下: Private Sub EnhancedDisplay_Click() ActiveWindow.ActiveView.Type = cdrEnhancedView TextBox1.Text = &Enhanced& frmDisplay.Repaint End Sub 其中 Repaint 方法的作用是刷新窗口 Textbox1 中的显示。其他几个按钮的代码编辑方法与此相同。代码分别为: Normal 显示代码: Private Sub NormalDisplay_Click() ActiveWindow.ActiveView.Type = cdrNormalView TextBox1.Text = &Normal& frmDisplay.Repaint End Sub Draft 显示代码: Private Sub DraftDisplay_Click() ActiveWindow.ActiveView.Type = cdrDraftView TextBox1.Text = &Draft& frmDisplay.Repaint End Sub Wireframe 显示代码: Private Sub WireframeDisplay_Click() ActiveWindow.ActiveView.Type = cdrWireframeView TextBox1.Text = &Wireframe& frmDisplay.Repaint End Sub Simple Wireframe 显示代码: Private Sub SimpleDisplay_Click() ActiveWindow.ActiveView.Type = cdrSimpleWireframeView TextBox1.Text = &Simple Wireframe& frmDisplay.Repaint End Sub 关闭用户窗体按钮代码为: Private Sub DisplayClose_Click() Hide End Sub 至此,所有代码均已编辑完成。运行 Display 模块,显示模式窗体打开。单击不同按钮, CorelDRAW 文档中的对象以相应的显示模式显示。第二章 VBA 程序设计基础 2.1 VBA 与 CorelDRAW10 VBA 之所以称之为 for Application , 就是因为它是为应用程序而开发的 VB 程序。本书的 Application 是指 CorelDRAW10 。 CorelDRAW10 即为 VBA 工程的宿主应用程序, 所以我们首先了解一下 VBA 与 CorelDRAW10 的关系。 VBA 工程是与其称为宿主应用程序的程序是分不开的,它存在于宿主应用程序之中。它不但可以使用 VB 程序开发中的语言和函数, 除此之外, 还可以调用宿主应用程序中的对象和函数。那么, VBA 程序离开宿主应用程序能不能运行呢?理论上来讲, 是不行的, 因为它一旦离开宿主应用程序, 便失去了程序运行的环境, 程序中所调用的宿主应用程序中的对象和函数均不能用。但是如果某一部分 VBA 程序没有调用宿主应用程序的对象和函数,导出此程序,又可以应用于其他 VBA 宿主应用程序。 CorelDRAW10 的 VBA 编辑器与 Co1
内容来自淘豆网转载请标明出处.
浏览：28次【图文】03_AutoCAD VBA二次开发基础_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
03_AutoCAD VBA二次开发基础
上传于|0|0|暂无简介
大小：6.89MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢

我要回帖

更多关于 怎么删除我的提问 的文章

 

随机推荐