VB如何将文字与图片全部读到Rich-TextBox控件中
我要向Rich TextBox控件中添加一些文字，然后添加一幅图片（JPG格式），然后在图片后继续添加文字。试了网上提供的N多种方法，都不行，希望高手支招。试了以下代码，可以将图片插入到指定位置，接待方案 但如果我在代码中要继续向RichTextBox控件中添加文字该如何实现呢？
Clipboard.Clear
Clipboard.SetData LoadPicture("D:\3.jpg")
RTF1.SetFocus
RTF1.SelStart = 5
SendKeys "^V", True
Private Sub Command1_Click()
'==================== 变量定义 ====================
Dim objTemp As IPictureDisp
Dim strTemp As String
Dim lngClipboardType As Long
'==================== 变量初始化 ====================
lngClipboardType = -1
'==================== 保存剪切板数据 ====================
If Clipboard.GetFormat(vbCFBitmap) = True Then
Set objTemp = Clipboard.GetData(vbCFBitmap)
lngClipboardType = 0
ElseIf Clipboard.GetFormat(vbCFText) = True Then
strTemp = Clipboard.GetText(vbCFText)
lngClipboardType = 1
ElseIf Clipboard.GetFormat(vbCFMetafile) = True Then
Set objTemp = Clipboard.GetData(vbCFMetafile)
lngClipboardType = 2
ElseIf Clipboard.GetFormat(vbCFDIB) = True Then
Set objTemp = Clipboard.GetData(vbCFDIB)
lngClipboardType = 3
End If
Clipboard.Clear '清空剪切板
Clipboard.SetData Picture1.Picture, vbCFBitmap '将要插入的图片放入剪切板
RichTextBox1.SetFocus '将焦点放到 RichTextBox1 上
SendKeys "^V", True '模拟粘贴按键操作
Clipboard.Clear '清空剪切板
'==================== 还原剪切板数据 ====================