100分再问：如何解决RichTextBox中由OLEObjects.add 插入文件后自动打开的问题？

Question

在VB中用到richtextbox中用OLEObjects.add ,,"D:\1.jpg"
程序运行后就会自动打开该图片，请问如何解决这个问题？~~
急~

Answer 1

是这样的用richtextbox的OLEObjects.add来插入图片、音乐等文件，我用
OLEObjects.add,,filePath来实现，插入没有问题，但是在插入后它立马会调用相应的工具来打开刚才插入的文件，比如我插个mp3文件进入，它会显示文件，然后就调用winamp来打开MP3我看了一写字板，它插入文件时就不会出现这个情况，这也说明我的这个问题也肯定可以解决，由于小弟对VB不甚了解，能力所至，只好向大家求救~~~

Answer 2

Picture1.Picture = LoadPicture("D:\My Documents\My Pictures\样品.jpg")
    Clipboard.Clear
    Clipboard.SetData Picture1.Image
    RichTextBox1.SetFocus
    SendKeys "^{V}"

Answer 3

To: cuizm(射天狼) ( )
我不仅仅是图片，还有其他文件，包括声音，EXE文件我再顶~~

Answer 4

这个问题应该是你属性设置不当造成的，打开richtextbox控件的属性页，把通用选项卡下的“允许 ole 放入”前面的复选框 取消 选中，应该就可以了

Answer 5

The following code adds a Microsoft Excel worksheet to the RichTextBox and sets its Key property to "SalesData":RichTextBox1.OLEObjects.Add , "SalesData", , "Excel.Sheet.5"When an object is added to the collection, it immediately becomes in-place active so the user can add data to it
现在的问题是如何让它不 immediately becomes in-place active  ~~~~~!!!!

Answer 6

参考：
http://www.vbaccelerator.com/codelib/richedit/vbalrall.zip

Answer 7

呵呵，我也再贴一次Dim o As OLEObject
Set o = RichTextBox1.OLEObjects.Add(, "SalesData", , "Excel.Sheet.5")
o.DisplayType = rtfDisplayIcon
o.DisplayType = rtfDisplayContent