RichTextBox控件中加入圖片

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