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容器。
VB的App 对象和OLE的使用方法？ App.Path&\"文件名\"APP 会自动获取文件的路径名，app.title是当前程序的标题OLEVB的核心是对对象的链接与嵌入（简称OLE）的支持，利用OLE．VB能够开发集声音．图象．动画．字处理．WED等对象与一体的应用程序．VB中支持OLE的方法在程序中方便地建立链接式或嵌入式OLE对象，如可用方法：CreateEmbed：创建嵌入式的OLE对象；CreateLink：创建链接式OLE对象。
用于显示图片或任何其他OLE对象的控件被称为 ______ 控件用 ______。于 参考答案：对象框 结合对象框
intouch中添加anigif控件，显示OLE对象引用没有与OLE对象绑定，是为什么 其实2113数据库中存图片的方法不5261像一楼讲的那么复杂，只4102要将照片字段的数据类型设1653成备注型，接着在程序界面中拉一个RichTextBox控件用来存放图片（程序运行时只要将图片文件复制后在RichTextBox中按Ctrl+V就行了），然后将RichTextBox与照片字段相绑定或是用Recordset.AddNewRecordset.Fields(\"照片\")=RichTextBox1.TextRTFRecordset.UpdateRefresh这样的语句保存（“*”表示你使用的连接数据库的控件或对象的名称）。读取数据库中的图片时也使用这个RichTextBox控件。
在PB中怎样激活OLE对象控件？
vb中OLE对象应用方法 Private x As Single，y As SinglePrivate x1 As Single，y1 As SinglePrivate x2 As Single，y2 As SinglePrivate x3 As Single，y3 As Single
ole对象型字段的用途 不知你有没有接触过VF编程，如果有过的e69da5e887aae79fa5e9819331333361303639话，对OLE这个东西应该不会很陌生.但不管你有没有接触过它，相信你看了下面的内容，会对你有所帮助的.VFP的OLE技术应用详解VisuaLFoxPro3．0（以下简称VFP）使用了OLE2．0技术，使VFP应用程序的适应能力大为加强。VFP提供两种类型的OLE对象：一种是OLE控件（．OCX文件），这是一种自定义控件，通常在WINDOWS\\SYSTEM目录下，拥有自己的事件、方法，类似于VFP的基本类，这种控件可以用VC、VB5．0、DeLphi、SDK2．0等编程工具开发。VFP缺省提供了四种可供使用的OLE控件，即通信（MSCOMM32．OCX）、消息应用程序接口MAPI（MSMAPI32．OCX）、OutLine（MSOUTL32．OCX）和图片裁剪（PICCLP32．OCX）；另一种是可插入型OLE对象，这是由其他应用程序创建的，它们没有自己的事件集合。这一种可插入型OLE对象又可分为限制性可插入型OLE对象和非限制性可插入型OLE对象。VFP提供两种引用OLE对象的途径都是通过VFP中的控件实现的：一种是通过OLE容器控件链接或嵌入对象，OLE容器控件可以引入OLE控件和非限制性可插入型OLE对象；另一种是通过OLE绑定型控件链接或嵌入数据表的通用类型字段中所存放的OLE。
vb插入OLE控件，引用Excel，如何定义对象变量。 Dim Maxrow，Maxcol As IntegerDim Cell(10，10)As IntegerDim j As IntegerDim x As Excel.ApplicationDim xbook As Excel.WorkbookDim xsheet As Excel.WorksheetSet x=CreateObject(\"excel.application\")s_path=App.Path&\"\\Book1.xlsSet xbook=x.Workbooks.Open(s_path)Set xsheet=x.Worksheets(\"sheet1\")j=1Maxrow=xsheet.usedrange.rows.Count '获取excel中行数Maxcol=xsheet.usedrange.Columns.Count '获取excel中列数Cell(j，1)=xsheet.Cells(j，1).Value
