请问如何在richtextbox中的指定位置插入图片？

Question

为什么程序运行以后用ctrl+c和ctrl+v就可以将一幅图片插入到richtextbox中，这种操作用什么命令可以实现？

Answer 1

richText1.SelStart = x
richText1.SelLength = 2
richText1.SelText = ""
richText1.OLEObjects.Add , , App.Path & "\xxx.bmp"

Answer 2

richtextbox的OLE插入方式有三种: 
    1、拖放：该对象在richtextbox中将显示为一个文件名加图标的形式，BMP图象也不例外，只不过它的图标是一个其本身的缩略图； 
    2、richtextbox1.OLEOBJECTS.ADD方式: 
    richtextbox1.OLEOBJECTS.ADD ,,"文件名" 
    或richtextbox1.OLEOBJECTS.ADD ,,,"对象类型" 

Answer 3

RichTextBox1.OLEObjects.Add , , "f:\aa.bmp"

Answer 4

Private Sub Command1_Click()
    Clipboard.Clear'这一句加上
    Clipboard.SetData LoadPicture("f:\AA.BMP")
    RichTextBox1.SetFocus
    SendKeys "^v"
End Sub

Answer 5

RichTextBox1.OLEObjects.Add , , "f:\aa.bmp"
这句在我的程序中会出现windows的画图程序的菜单一闪而过，并且速度很慢，有办法解决吗？谢谢！