RichTextBox控件中加入图片

RichTextBox控件中加入图片

参考一：

-----------------------------------------------------------------------------------------------------------------

原文地址：

我用Image或Bitmap效果一样

System.Drawing.Image myBit=Image.FromFile(@"E:/Tools/photo/Photo/iori.gif",false);

Graphics GraphicsMyg=richTextBox1.CreateGraphics();

GraphicsMyg.DrawImage(myBit,0,0);

GraphicsMyg.ResetTransform();

-----------------------------------------------------------------------------------------------------------------

参考二：

-----------------------------------------------------------------------------------------------------------------

原文地址：

richTextBox支持照片格式，插入图片的方式如下：

privatevoidbutton2_Click(objectsender,EventArgse)

{

openFileDialog1.Filter="图片文件|*.jpg|所有文件|*.*";

if(openFileDialog1.ShowDialog()==DialogResult.OK)

{

Clipboard.SetDataObject(Image.FromFile(openFileDialog1.FileName),false);

richTextBox1.Paste();

}

}

---------------------------------------------------------------------------------------------------------------

参考三：

---------------------------------------------------------------------------------------------------------------

原文地址：

RichTextBox插入图片

2007年03月27日 星期二 21:31

richText1.SelStart = x

richText1.SelLength = 2

richText1.SelText = ""

richText1.OLEObjects.Add , , App.Path & "/xxx.bmp"

一般自编的记事本都有“粘贴”项，我们就把这个项加以利用（笔者将之称为“常规粘

贴”，而将原本介绍的“图片粘贴”项称之为“图片粘贴”，以便区别），另外需要降低一

个“图片剪切”项和“图片粘贴”项，代码如下：

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

当你从画图程序复制了照片，用“图片粘贴”将它粘贴至富文本框（或者直接打开了照片

文件），这时它会随心所欲地发生在任何位置，你就用“图片剪切”或“图片复制”将它重新

复制到剪切板richtextbox 插入，然后就只用“常规粘贴”将它粘贴在你指定的位置了，这样还可以连文字一起

进行操作，实现了你图文混排的愿望。

如此一来richtextbox 插入，再调皮的图片也要俯首称臣，乖乖地唱你的指挥了，你就可以随心所欲地制作

图文并茂的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

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-141473-1.html