第10章鼠标、键盘和OLE要点分析.ppt

10.4 使用OLE控件 10.4.1添加OLE容器控件 1．在设计时嵌入或链接对象 （1）使用OLE控件直接嵌入对象 将OLE控件OLE1放置在窗体上时，就会出现“插入对象”的对话框，如图10.8所示。选择“新建”选项按钮，并在“对象类型”框中选择的一种对象类型，单击“确定”按钮，就嵌入了一个OLE对象。 图10.8插入对象对话框 10.4.1 添加OLE容器控件 例如，在上图中OLE1嵌入“媒体剪辑”对象，运行工程时，在窗体上会显示出播放媒体的菜单，运行界面如图10.9所示。 图10.6插入对象对话框 图10.9插入对象对话框 10.4.1 添加OLE容器控件 （2）使用OLE控件从文件嵌入对象 在图10.10中单击“从文件创建”选项按钮，单击“浏览”按钮选择文件，将所选的文件当作OLE对象插入。如图10.10所示。 （3）使用OLE控件链接对象 如果在图10.8或图10.10中选择“链接”复选框，就会插入一个链接对象。 使用链接对象，当应用程序没有运行时，对象的数据可能被另一个应用程序更改。 图10.10 从文件创建 10.4.1 添加OLE容器控件 （4）选择性粘贴文件 如果只需要利用文件的一部分，可以使用“选择性粘贴”来创建OLE对象。 使用“选择性粘贴”的步骤如下： 运行需要选择的文件，将需要选择的部分复制到剪贴板上。 在VB中用鼠标右键单击“OLE容器控件”，从快捷菜单中选择“特殊粘贴…”菜单项，出现“选择性粘贴”对话框如图10.11所示。 在对话框中选择“粘贴”或“粘贴链接”选项，单击“确定”按钮就创建了OLE对象。 选择“粘贴”复选框是插入一个嵌入对象，选择“粘贴链接”复选框是插入一个链接对象。在图10.11中，选择粘贴Word中的文本内容。 图10.11 选择性粘贴Word文本 10.4.1 添加OLE容器控件 3．在运行时创建显示“插入对象”对话框 如果在设计时不选择OLE对象，则在运行时也可以使用OLE对象的InsertObjDlg和PasteSpecialDlg方法来显示“选择性粘贴”和“插入对象”对话框，并在对话框中创建OLE对象。 语法： 对象. InsertObjDlg 对象. PasteSpecialDlg （1）InsertObjDlg方法 InsertObjDlg方法用来显示“插入对象”对话框，提供可用的对象清单，并根据用户的选择创建对象。 例如，显示“插入对象”对话框： OLE1.InsertObjDlg （2）PasteSpecialDlg方法 PasteSpecialDlg方法用来显示“选择性粘贴”对话框，允许用户从系统剪贴板中将对象粘贴到OLE控件。 10.4.1 添加OLE容器控件 4．在运行时创建链接或嵌入对象 （1）创建链接对象 用OLE控件的CreateLink方法，在运行时从文件中创建一个链接对象。 语法： CreateLink SourceDoc, [SourceItem] 说明： SourceDoc：为文件参数，从该文件创建对象。 SourceItem：从源文件中链接的数据。 例如，创建链接对象： OLE1.CreateLink C:\WINDOWS\Media\chord.wav （2）创建嵌入对象 在运行时，从文件中创建一个嵌入的对象，可以使用CreateEmbed方法。 语法： CreateEmbed Sourcedoc, [Class] 10.4.2 OLE容器控件的属性、方法和事件 1. OLE控件的常用属性 （1）Object属性 通过使用OLE控件的Object属性，可以使用链接或嵌入对象的属性和方法。Object属性在运行时是只读属性，它保持对OLE控件中对象的引用。使用该属性OLE控件必须包含可编程的对象。 语法： OLE控件名.Object[.属性|方法] （2）AutoActive属性 AutoActive属性用于设置激活OLE控件对象的方式，该属性对应的各种方式如表10.6所示。 属性值 属性常数 含义 vbOLEActivateManual 0-Manual 手工激活，使用DoVerb方法。 vbOLEActivateGetFocus 1-GetFocus 接受焦点激活。 vbOLEActivateDoubleclick 2-DoubleClick 双击或按ENTER键激活。 vbOLEActivateAuto 3-Autimatic 自动激活。 表10.6 各种激活方式 10.4.2 OLE容器控件的属性、方法和事件 （3）OLEType属性 OLEType属性返回OLE容器控件中对象的状态。0-vbOLELinked表示链接，1-vbOLEEmbedded表示嵌入，2- vbOLENone表示不包含对象。