VB 在RichTextBox控件中插入图片的方法

    一般自编的记事本都有“粘贴”项，我们就把这个项加以利用（笔者将之称为“常规粘
贴”，而将先前介绍的“图片粘贴”项称之为“图片粘贴”，以便区分），另外还要增加一
个“图片剪切”项和“图片粘贴”项，代码如下：

Private Sub 图片复制_Click()
Clipboard.SetText RichTextBox1.SelRTF
End Sub

Private Sub 图片剪切_Click()
Clipboard.SetText RichTextBox1.SelRTF
RichTextBox1.SelText = ""
End Sub

Private Sub 图片粘贴_Click()
RichTextBox1.SetFocus
If Clipboard.GetFormat(vbCFBitmap) Then SendMessage RichTextBox1.hwnd, 1088, 2, 1
End Sub

Private Sub 常规粘贴_Click()
RichTextBox1.SetFocus
RichTextBox1.SelRTF = Clipboard.GetText
End Sub

　　当你从画图程序复制了图片，用“图片粘贴”将它粘贴到富文本框（或者直接打开了图片
文件），这时它会随心所欲地出现在任何位置，你就用“图片剪切”或“图片复制”将它再次
复制到剪切板，然后就可用“常规粘贴”将它粘贴在你指定的位置了，这样还可以连文字一起
进行操作，实现了你图文混排的愿望。
　　如此一来，再调皮的图片也要俯首称臣，乖乖地听你的指挥了，你就可以随心所欲地制作
图文并茂的RTF文档了！
　　最后注意二点：
1.“图片复制”或“图片剪切”的内容只能粘贴到富文本框上，如果粘贴到文本框或 DOC文档
或画图程序或网页上，那会怎样。。。呵呵，你自己去试试看吧
2.如果你还想复制或剪切富文本框上的图片粘贴到画图程序上去，那么，“常规复制”和“常
规剪切”的代码必须使用API消息函数：

Private Sub 常规复制_Click()
SendMessage 文本框.hwnd, 769, 0, 0
End Sub

Private Sub 常规剪切_Click()
SendMessage 文本框.hwnd, 768, 0, 0
End Sub