救救小女子!!要不然下个星期小女子就要被老师掐死了!!!17:00结帖!!

Question

你的那个对话框仅仅是取得要插入的对象的位置或者句柄而已。
你应该用RICHTEXTBOX的OLEOBJCT集合添加OLEObjects 集合包含一组 OLEObject 对象。语法object.OLEObjects(index)
object.OLEObjects.Item(index)OLEObjects 集合的语法包含下面部分：部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
index 无论是 Index 属性或 Key 属性的值，都唯一地标识 OLEObject 对象。
说明建立在 RichTextBox 控件中的每个嵌入 OLE 对象，都被表示在 OLEObjects 集合中。运行时可以用 Add 方法向 OLEObjects 集合人工添加对象，或把一个对象从 Windows 资源管理器拖到 RichTextBox 控件中。
OLEObjects 集合是一个标准集合，支持 Count 属性，也支持 Add、 Item 和 Remove 方法。

Answer 1

把 OLEObject 对象添加到 OLEObject 集合。不支持命名的参数。语法object.Add index, key, sourcedoc, classAdd 方法的语法包含下面部分：部分 描述
object 必需的。对象表达式，其值是“应用于”列表中的一个对象。
index 可选的。整数，它标识对象集合中的一个成员。如已提供，新成员将被插入在索引所指定的成员之后。
key 可选的。一个唯一的字符串表达式，它可用于访问集合中的成员。key 参数和 index 参数可与集合的 Item 方法一起交互地使用，以便对 OLEObject 对象进行检索。
sourcedoc 必需的。作为内嵌对象模板文档使用的文件名。RichTextBox 控件不支持链接，所以该文件的内容将被复制进 OLEObject 对象。如果不指定源文档，则必须使用一个零长度字符串 ("")。
class 可选的。是内嵌对象的 OLE 类名。这个参数被系统注册表中的 OLE 用作 ProgID。如果已指定 sourcedoc 的文件名，这个参数将被忽略。
说明以下代码是把一个 Microsoft Excel 工作单添加到 RichTextBox 中，并把 Key 属性设置为“SalesData”：RichTextBox1.OLEObjects.Add , "SalesData", , "Excel.Sheet.5"当对象添加到集合中时，它即变成现场激活，因此可以给它添加数据。

Answer 2

该示例提供一个对话窗，从中可找出添加到 RichTextBox 控件的一个 OLEObject 对象（位图）。要试用此例，应在窗体上建立一个 CommonDialog 控件和一个 RichTextBox 控件，再把以下代码粘贴到声明部分中。运行此例并双击控件。Private Sub RichTextBox1_DblClick()
With CommonDialog1
.Filter = ("bitmap (*.bmp)|*.bmp")
.ShowOpen
End With
RichTextBox1.OLEObjects. _
Add , , CommonDialog1.filename
End Sub

Answer 3

谢谢 getian！！！！如果你有空的话能否帮我写一分　实现这个功能的代码，拜托！！！发往　[email protected]
      [email protected]
      [email protected]
拜托！！！