Question

 30 在vb的richtextbox一段文字字中插入图片，求代码！

Answer 1

在运行时，用 OLEObject 集合的 Add 方法，将嵌入对象，比如位图、图标、应用程序图标，加到该控件中。在设计时或运行时，可以拖放任何嵌入对象到控件中，包括文档，比如 Microsoft Excel 的电子表格和 Microsoft Word 文档等。

=============================
richtextbox的OLE插入方式有三种:
1、拖放：该对象在richtextbox中将显示为一个文件名加图标的形式，BMP图象也不例外，只不过它的图标是一个其本身的缩略图；
2、richtextbox1.OLEOBJECTS.ADD方式:
richtextbox1.OLEOBJECTS.ADD ,,"文件名"
或richtextbox1.OLEOBJECTS.ADD ,,,"对象类型"
如果该文件创立者或类允许现场在OLE母体显示、编辑（如excel、word和公式），则直接在richtextbox中显示内容；否则显示图标。各类图象均不许现场编辑。
3、剪贴板方式：可以直接在richtextbox中显示内容。方法是将某一文件用其他程序打开后，“复制”，然后在richtextbox的一定位置中用CTRL+V键粘贴。打开图象可以用画笔、ACDSEE、PHOTOSHOP等）。
所以在richtextbox中显示JPG图象只能用第三种方式。

anshaodong的意见：
不必用其他程序打开JPG文件，直接在本程序中用通用对话框获得文件名，将其图像发送到剪贴板，再用SendKeys语句粘贴即可。
CommonDialog1.ShowOpen
Clipboard.SetData LoadPicture(CommonDialog1.FileName)
RichTextBox1.SetFocus
SendKeys "^v", True '模拟键盘输入(Ctrl+v)，将按键消息发送到活动窗口

====================

我学写了一下,方法1个,直接add的:
Private Sub Command1_Click()
RichTextBox1.SelStart = 1
RichTextBox1.OLEObjects.Add , , "c:\1.bmp"
End Sub

追问

你是网络上百度的