cad添加ole对象,ole对象引用没有与ole对象绑定

本文目录一览：

• 1、ole控件的对象

• 2、CAD中OLE对象是什么

• 3、在CAD中插入OLE对象怎么做？

• 4、CAD中如何插入OLE对象文件？

• 5、关于CAD不能插入OLE对象问题？

ole控件的对象

VB提供了一个OLE容器控件（在工具箱中），用于容纳“链接”对象或“嵌入”对象，也就是说，可以使用OLE容器控件来插入对象。

当然，也可用其它方法来插入对象。如：通过在工具箱中添加对象的类来插入对象，具体操作步骤为：

①→“工程”菜单/“部件”命令

②→“可插入对象”选项卡

③→想要加入工具箱的类，如：“Microsoft Excel工作表” →“确定”

在使用OLE容器控件插入对象时注意：

（1）创建链接时，链接对象数据被存储在OLE容器控件之外；

创建嵌入对象时，嵌入对象数据和VB应用程序一起被保存在OLE控件之内。

（2）在任何时候，一个OLE容器控件内只能有一个对象。

（3）既可在设计阶段来插入对象（创建链接对象或嵌入对象）；也可在程序运行阶段通过代码来创建链接对象或嵌入对象。

（4）通过OLE控件的Display Type属性可控制OLE对象在OLE容器控件中的显示方式：

Display Type ：0 → 以“数据映象”方式显示

Display Type ：1 → 以“图标”方式显示

一旦建立好一个OLE对象，此对应的OLE对象显示方式将无法改变。

（5）在OLE容器控件中放置对象之前提供该对象的应用程序必须已经在Windows中注册其对象。

1、设计时插入一个“链接”对象

步骤：（1）添加一个“OLE容器控件”到窗体上，屏幕会弹出一个“插入对象”对话框。或在设置好的“OLE容器控件”上右击鼠标，也会弹出“插入对象”对话框。

（2）选择“从文件创建”，再通过“浏览”按钮确定“要链接文件的路径、文件名”： ①C:\lyh\gz.xls\Excel工作表

②C:\win98\a.bmp\BMP图象

（3）单击“插入”按钮→返回“插入对象”对话框。

（4）选中“链接”复选框→“确定”。

按照以上步骤，就建立了一个链接对象。

此时，OLE控件本身则保存与对象链接有关的信息。如：提供链接对象的应用程序名、链接文件名、以及该链接对象的“数据影像”等，其对应的OLE控件属性分别是：对象类型（Class）、引用源文件（Source Doc）、链接数据（Source Item）。

[注意]：设计链接对象时，OLE会保留一份影像，起初这份影像和数据文件是相同的，但是因为文件有可能被修改，可链接对象保存的仍然是原始数据的影像，为了使其具备自动更新的能力，只要在Form_Load事件过程加入如下代码：

Private sub Form_Load( )

OLE1.Action=6 ‘此语句用“OLE1.Update”方法也可以

End sub

2、设计时创建“嵌入对象”

创建嵌入对象时，既可从文件中嵌入数据，也可以创建一个新的空对象（可以被以后的数据填充）。

步骤：（1）添加一个“OLE容器控件”到窗体上，屏幕显示“插入对象”对话框。

（2）选择“从文件创建”，→“浏览”按钮→确定要嵌入的“文件名”。

（3）→“插入”按钮→返回“插入对象”对话框。

（4）→“确定”，即可创建嵌入对象。

另外，在此设计状态，也可修改OLE对象中的数据，方法为：

（1）→在OLE对象数据区单击鼠标右键，→弹出快捷菜单。

（2）选择“编辑”命令→出现Excel的编辑环境。

（3）修改完毕后，单击OLE对象数据区以外的区域，返回到创建嵌入对象的窗体。

[注意]：（1）不同于对象链接的是，嵌入对象中的数据被用户修改后不会被自动存储。当含有OLE控件的窗体被关闭时，与该控件相关的数据的任何变化将丢失。如果希望对数据所进行的修改在下次运行时能够显示出来，需要将更改的数据从对象保存至文件中（使用OLE控件的Save To File方法）。数据被保存在文件后，可以在需要的时候打开文件并恢复对象（使用OLE控件的Read From File方法）。

（2）将更改的数据从对象保存到文件中的方法（用一命令按钮的单击事件过程说明）：

Private sub CmdSave_click( )

Dim FileNum as integer

FileNum=FreeFile ‘取文件号

Open “TEST.OLE” For Binary as #FileNum ‘打开要保存的文件

OLE1.SaveToFile FileNum ‘保存至文件

Close #FileNum ‘关闭文件

End sub

（3）将数据从文件读入OLE容器控件（使用OLE控件的ReadFromFile方法）

用一命令按钮的单击事件过程说明：

Private sub CmdOpen_click( )

Dim FileNum as integer

FileNum=FreeFile ‘取文件号

Open “TEST.OLE” For Binary as #FileNum ‘打开文件

OLE1.ReadFromFile FileNum ‘读文件

Close #FileNum ‘关闭二进制文件

End sub

3、使用“特殊粘贴”对话框创建链接对象或嵌入对象。

设计时创建对象的另一方法是使用“特殊粘贴”对话框，应用该方法可以只利用文件的一部分数据。（如只使用Excel数据表的一部分数据）

步骤：（1）运行一个包含链接或嵌入数据对象的应用程序（如Excel应用程序）。

（2）打开一个文件，选择要链接或嵌入的数据。

（3）→“编辑”菜单/“复制”命令→复制“数据”到剪贴板上。

（4）在VB的一个包含OLE控件的工程中，右击OLE控件→选择“特殊粘贴”命令→弹出“选择性粘贴”对话框。

（5）若想建立嵌入对象，选择“粘贴”选项； 若OLE控件中已有一个对象

若想建立链接对象，选择“粘贴链接”选项； 则会询问是否删除现有对象

（6）作出回答后，即在OLE控件上建立了一个新的对象。

4、利用OLE发出声音（实例）

步骤：（1）在窗体上添加OLE控件时，→弹出“插入对象”对话框，

在“对象类型”列表框中选“声音文件”；

选择⊙从文件创建；

→“浏览”按钮，选择文件：C:\windows\Canyon.mid ；

选择 链接， 显示为图标。

（2）单击“确定”按钮。

运行程序，双击OLE对象，将播放一段音乐。

三、在运行阶段创建链接或嵌入对象

要在程序代码运行时创建链接或嵌入对象，需要了解OLE容器控件的属性、事件和方法。

1、OLE容器控件的属性、方法、事件：

l Action属性：指定作用在OLE控件上的动作（如建立、删除、启动等）。

语法为：object.Action=value

value的设置值如下表： value值 描述 方法 0 创建嵌入对象 Create Embed 1 创建链接对象 Create Link 4 将对象复制到系统剪贴板 Copy 5 将对象从系统剪贴板复制到OLE容器控件 Paste 6 从提供对象的应用程序检索当前数据，并在

OLE容器控件中将该数据作为图片显示。 Update 7 打开一个对象，用于进行诸如编辑那样的操作 DoVerb 9 关闭对象，并与提供该对象的应用程序终止连接 Close 10 将指定的对象删除，释放与之关联的内存 Delete 11 将对象保存到数据文件中 SaveToFile 12 加载保存到数据文件中的对象 ReadFromFile 14 显示“特殊粘贴”对话框 PasteSpecialDlg 17 更新对象支持的谓词列表 FetchVerbs 18 将对象以OLE version 1.0版本的文件格式保存 SaveToOle1File l Class属性（类属性）

格式为：object.class

类名包含几个部分：application.objecttype.version

类名：说明对象类型。

Application ：提供对象的应用程序名

Objecttype ：在对象库中定义的对象名

Version ：提供对象的应用程序的版本号

例如：Excel.Sheet.8

l OLEType Allowed属性

返回或设置OLE容器控件所能包含的对象类型。

语法为：object.OLETypeAllowed [=value]

value值的设置如下表： 常数 值 描述 VbOLELinked 0 链接的，OLE容器只能包含链接对象 VbOLEEmbeded 1 嵌入的，OLE容器只能包含内嵌对象 VbOLEEither 2 二者均可（缺省值） l SourceDoc属性

指定链接或嵌入对象时使用的源文件名。

语法为：object.sourceDoc [=name]

name ：指定文件名的字符串表达式。

l SourceItem属性（只对链接有效）

在创建链接对象时，设置或返回要链接的文件内的数据。

语法为：object.sourceItem [=string]

string ：一个指定被链接数据的字符串表达式。

例如：A1 ：E1 或 A3C4 ：A9D10

[注意]：当使用Action属性创建链接对象时，用SourceDoc 属性指定要链接的文件，使用sourceItem属性指定在要链接文件内的数据。

l Create Embed方法

该方法用来创建一个嵌入对象。

语法为：object.CreateEmbed sourcedoc[,class]

sourcedoc ：必选项，对象从该文件中创建。

SourceItem ：可选项，文件内的被链接的数据。

l DoVerb方法

打开一个对象（例如编辑一个对象）。

Object.DoVerb[verb]

Verb ：可选项，在OLE容器控件内要执行的对象的谓词。

l InsertObjDlg方法

显示插入对象对话框。

语法为：object.InsertObjDlg

[说明]（1）用户在运行这个方法时，将显示“插入对象”对话框，通过选取对象的类型，来创建链接的或内容嵌的对象，并由应用程序提供该对象。

（2）创建新对象时，与类名（如Excel.EXE）关联的应用程序，必须已在操作系统中正确地作了注册。

l PasteSpecialDlg方法

显示“特殊粘贴”对话框。

语法为：object.PasteSpecialDlg

l Updated事件

当一个已创建对象的数据发生改变（修改）时，会引发Updated事件。

l ObjectMove事件

当移动和OLE控件有关的对象以及调整其大小时，会触发ObjectMove事件。

l UpdateOptions属性

在运行时设置当链接数据修改后是否更新链接对象。

语法为：Object.UpdateOptions [=number]

其中Number的设置值为：

0 —— 自动的（缺省值），每次改变链接数据时均更新对象

1 —— 冻结的

2 —— 手动的，只有使用Update方法才更新对象

2、运行阶段建立链接对象

举例：（1）在窗体上添加2个OLE容器控件时，2个命令按钮。

（2）设计代码：

☆ 要求功能：①OLE1和OLE2链接同一个数据源。

②当改变（修改）OLE1容器控件中的链接数据时，OLE控件中链接同一个数据源的数据也要求跟着变化。

Private sub command1_click( )

OLE1.class=”Excel worksheet” 用”Excel.sheet.”也可以

OLE1.sourceDoc=”C:\My Documents\aa.xls”

OLE1.DrsplayType=0

OLE1.Action=1

OLE2.class=”Excelworksheet”

OLE2.sourceDoc=”C:\My Documents\aa.xls”

OLE2.DisplayType=0

OLE2.Action=1

End sub

Private sub command2_click( )

UnLoad Me

End sub

Private sub OLE1_Updated(code as integer)

OLE2.UpdateOptions=0 ‘用OLE2.Action=6也可以，或OLE2.Update方法也可以

End sub

Private sub OLE2_Updated(code as integer)

OLE1.UpdateOptions=0

End sub

3、运行阶段建立嵌入对象

运行时建立嵌入对象的方法与建立链接对象的方法相似，只不过此时在有关代码中用：

OLE1.Action=0 或使用 CreateEmbed方法。

[注意]：对嵌入对象的任何修改要保存的话，一定要使用前述的SaveToFile方法，将修改的数据保存至某个文件中，在需要的时候可打开文件并恢复修改的内容。

补充2：

应用OLE拖放（在你的VB应用程序中支持OLE拖动功能）

一、OLE拖放的含义

指将数据从一个控件或应用程序移动到另一个控件或应用程序。

例如：可先选定并拖动Excel中的一列单元，然后将它们放到VB应用程序的DataGrid控件上。

二、VB控件的OLE拖放功能

VB的几乎所有控件都在某种程度上支持OLE拖放（专业版和企业版）。

1、 自动支持OLE拖放的控件（既可从控件拖出，也可在控件放入）。

DataGrid ， PictureBox ，RichTextBox ，Image ，TextBox ，MaskedEditBox

[注意]：要启动这些控件的自动OLE拖放功能，应将其OLE Drag Mode属性和OLEDropMode属性设置为“自动化”——“Automatic“

2、仅自动支持OLE拖动操作的控件（仅从控件拖出）。

ComboBox ，DataListBox ，FileListBox ，DataComboBox ，DirlistBox ，ListBox ， TreeView ，ListView等。

[注意]：要启动这些控件的自动拖动功能，应将其OLEDragMode设置“自动化”。

3、仅支持OLE拖放事件的控件

——即可代码对它们编程，使之成为OLE拖放操作的源，也可使生成为OLE拖放操作的目标。

CheckBox , Frame , OptionButton , CommandButton , Label , DrivelistBox , Data等。

[注意]：（1）为判断其它ActionX控件是否支持OLE拖放，应在VB在加载控件，并检查OLEDragMode和OLEDropMode属性是否存在或检查OLEDrag方法是否存在。

（2）缺省规定：在将文本从文本框控件拖动到word文档时，文本被移动；若拖动文本的同时按下[Ctrl]键，则文本被复制。

CAD中OLE对象是什么

CAD中OLE对象是什么?首先OLE是ObjectLinkingandEmbedding的缩写，也就是链接和嵌入的意思，我们可以使用迅捷CAD编辑器中的OLE对象功能，在图纸的指定位置嵌入任何信息，比如文字、位图、矢量图形、声音注解和录像剪辑等等。那么如何在CAD图纸中插入OLE对象呢？具体操作方法如下：

1、启动CAD编辑器（标准版），打开需要编辑的CAD图纸，并切换到【编辑器】选项卡。

2、在【绘制】功能菜单中点击【OLE对象】按钮，激活该功能。

3、移动鼠标，框选需要嵌入对象的位置，也可以输入宽度和高度指定位置，在选择完成后，即可激活插入对象窗口。在弹出的插入窗口中，可以新建一个对象，也可以选择插入的对象，点击【又文件创建】，点击【浏览】按钮，添加需要插入的对象，选择完成后，点击确定按钮。

最后，我们就可以在CAD图中看到已经成功插入的OLE对象啦，这里我们如果看不到OLE对象内容，可以选择OLE对象，点击右键，选择【OLE】—【激活内容】就可以查看到OLE内容了。

在CAD中插入OLE对象怎么做？

1、启动CAD编辑器（标准版），打开需要编辑的CAD图纸，并切换到【编辑器】选项卡。

2、在【绘制】功能菜单中点 击【OLE对象】按钮，调用该功能。

3、移动鼠标，框选需要嵌入对象的位置，也可以输入宽度和高 度指 定位置，在选择完成后，即 可调用插 入对象窗口。

4、在弹出的插 入窗口中，可以新建一个对象，也可以选择插 入的对象，点 击【由文件创建】，点 击【浏览】按钮，添加需要插 入的对象，选择完成后，点 击确 定按钮。

5、然后，我们就可以在CAD图中看到已经成功插 入的OLE对象啦，

CAD中如何插入OLE对象文件？

1、插入、ole对象、新建、点选类型、输入编辑好关掉软件，就插入进来了

2、插入、ole对象、，由文件创建、浏览、选择文件、确定、调整参数。确定，就插入进来了

关于CAD不能插入OLE对象问题？

那你试一下新建文档，把图片插入到文档中，这样也可以插入图片的