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

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页