如何在richBox中插入一张图片？

[jinzhao]

VB编写的程序中，如何向richBox控件中加入一张图片？

[jinjun001]

Property OLEObjects As OLEObjects
read-only
Member of RichTextLib.RichTextBox
The RichTextBox control enables you to add insertable objects to an RTF file. Insertable objects are represented by the OLEObject.

[footballboy]

Private Sub Command1_Click()
RichTextBox1.Text = "这是第一行的文字，下一行将插入一行文字"
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = vbCrLf + "这是第二行的文字，下一行将插入一幅图像"
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = vbCrLf
RichTextBox1.OLEObjects.Add , , "c:\windows\Bubbles.bmp"
End Sub

[chengxf]

同意楼上的