您的位置:

cad添加ole对象,ole对象引用没有与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是Object Linking and Embedding的缩写,也就是链接和嵌入的意思,我们可以使用迅捷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对象问题?

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