用对象链接与嵌入(OLE)扩展Visual Basic.docxVIP

OLE使得Visual Basic应用程序能访问Windows环境中其他应用程序的功能。前面所用的控件都是内置在Visual Basic中的，这些内置对象的出现在编辑器的工具栏中，可以把它们放到窗体上。但Windows环境中的有些对象不是Visual Basic所独有的，未放在Visual Basic中，而是由其他应用程序提供的，但可以在应用程序中使用这些对象。Word文档就属于这种对象，可以将Word文档放在应用程序中，而不需要对其文件内容及组织方式有太多的了解。需要编辑Word文档时，可以暂时借用Word的菜单和工具条，将其显示在应用程序中；随后用户在应用程序中就象在用Word一样编辑文档。要在Visual Basic中加入OLE功能，必须用OLE控件，以便将其他应用程序中的对象插入程序中。一次只能在OLE容器控件中放入一个对象，但统一窗体上可以含有多个OLE容器控件，各有自己的对象。§1 设计时链接与嵌入一、用拖放法嵌入对象用拖放法嵌入对象的具体步骤如下：开始一个新的VB项目，并把OLE容器控件放在窗体上。在“插入对象”对话框中，单击“取消”钮，以便后面放置OLE对象。在OLE容器控件的属性窗口中，将SizeMode属性变为1-Stretch(对于可缩放图形)或2-AutoSize(对于不宜缩放的文本和图形)，以调整对象或尺寸。SizeMode属性取值及含义如下表：数值说明Clip对象按实际大小，大于OLE容器控件的部分被剪切掉Stretch对象图形调整成OLE容器控件的大小，对象的缩放可能会使图形扭曲AutoSizeOLE容器控件缩放以显示整个对象Zoom对象图形尽量调整成OLE容器控件的大小，但保持原有比例接着启动支持OLE的应用程序，如打开一篇Word文档文件，并选中其中一部分内容，以实现在OLE容器控件中嵌入Microsoft Word文档。在屏幕上同时显示Visual Basic和Word时（或用Alt+Tab切换），拖动文档或其一部分到空OLE容器控件中。拖动对象时，指针箭头下出现一个长方形，将其放到OLE容器控件中，于是 Word文档出现在OLE容器控件中，如上图所示。二、OLE容器控件对象的常用属性Class属性：产生对象的应用程序名，也是嵌入文档的类型。SourceDoc：数据或引用的数据，即存入对象的文件名。SourceItem：选作嵌入的文档部分（全文档时为空）。OLETypeAllowed：源文档是链接还是嵌入到OLE容器控件中，这就取决于这个属性，它的具体取值如下：数值常量说明0VbOLELinked链接，OLE容器控件只能包含链接对象1VbOLEEmbedded嵌入，OLE容器控件只能包含嵌入对象2VbOLEEitherLE容器控件可包含链接或嵌入对象三、用“插入对象”对话框实现链接用“插入对象”对话框实现链接，步骤的如下：开始一个新的VB项目，并把OLE容器控件放在窗体上。在“插入对象”对话框中，选择“由文件创建”选项并选定“链接”复选框。如下图中所示：3．单击“浏览…”按钮，找到所需文件。四、保存和获取对象由于嵌入对象中的数据并不自动保存，要保存嵌入对象及服务器应用程序所做的修改，可用SaveToFile方法:OLE1. SaveToFile filenumberFilenumber对应二进制方式下打开的文件。要装入存放成数据文件的对象，可用ReadFromFile方法。其语法如下：OLE1.ReadFromFile filenumber五、现场编辑现场编辑也叫现场激活，它是Visual Basic中嵌入对象的增强功能。最简单的方法就是双击对象，这时应用程序的菜单和工具条可代替OLE容器控件的菜单和工具条。§2 运行时链接与嵌入本节通过一个实例介绍运行时实现链接与嵌入。该例子有两个窗体，界面如下；左边为主窗口，右边窗口为单击主窗口中的Insert object... 按钮后出现的，右边窗口的作用是为动态嵌入的OLE容器控件设置SizeMode属性和OLETypeAllowed属性，即而装入“插入对象”对话框。下面先设计主窗口。主窗口的设计：开始一个新的VB项目，并把OLE容器控件放在窗体上。在“插入对象”对话框中，单击Cancel钮，以便后面放置OLE对象，并按上面左图调整OLE控件的大小。按上面左主窗口图依次添加三个按钮，Caption属性分别为insert object... 、object info.. 、close 。先给标为insert object...的按钮添加代码：Private Sub Command1_Click()frmtype.ShowEnd SubFrmtype为上图右边窗体的名字。再给标为object info..的按钮添加代码：Private Sub Co