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]键，则文本被复制。
