RichTextBox控件中加入图片

来源：互联网发布：淘宝c店没有授权书编辑：程序博客网时间：2024/04/30 18:41

RichTextBox控件中加入图片

参考一：

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

原文地址：http://topic.csdn.net/t/20030422/15/1693458.html

我用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();

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

参考二：
-----------------------------------------------------------------------------------------------------------------

原文地址：http://www.cnblogs.com/tuyile006/articles/816943.html

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

        private void button2_Click(object sender, EventArgs e)
        {
              openFileDialog1.Filter   =   "图片文件|*.jpg|所有文件|*.*";
              if(openFileDialog1.ShowDialog()   ==   DialogResult.OK)
              {
                 Clipboard.SetDataObject(Image.FromFile(openFileDialog1.FileName),false);
                 richTextBox1.Paste();
              }
        }

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

参考三：

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

原文地址：http://hi.baidu.com/zengyongheng/blog/item/eb96bb50b570f66384352406.html

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

　　当你从画图程序复制了图片，用“图片粘贴”将它粘贴到富文本框（或者直接打开了图片
文件），这时它会随心所欲地出现在任何位置，你就用“图片剪切”或“图片复制”将它再次
复制到剪切板，然后就可用“常规粘贴”将它粘贴在你指定的位置了，这样还可以连文字一起
进行操作，实现了你图文混排的愿望。
　　如此一来，再调皮的图片也要俯首称臣，乖乖地听你的指挥了，你就可以随心所欲地制作
图文并茂的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://space.itpub.net/?uid-12639172-action-viewspace-itemid-498337