当前位置:首页 > 软件教程 > 办公软件 > VB 在RichTextBox控件中插入图片的方法

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

2017-10-12 20:14:54[办公软件]点击数:作者:未知来源: 网络
随机为您推荐的文章:[u盘加密软件免费版]大麦盒子三款免费直播软件推荐,附U盘安装教程

此办公软件教程为您讲述[u盘加密软件免费版]大麦盒子三款免费直播软件推荐,附U盘安装教程的方法步骤,具体请看正文介绍:导读:织梦者网友为大家分享了多篇关于“[u盘加密软件免

本教程为您说明VB 在RichTextBox控件中插入图片的方法的相关步骤,快来学习吧:

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

PrivateSub图片复制_Click()
Clipboard.SetTextRichTextBox1.SelRTF
EndSub

PrivateSub图片剪切_Click()
Clipboard.SetTextRichTextBox1.SelRTF
RichTextBox1.SelText=""
EndSub

PrivateSub图片粘贴_Click()
RichTextBox1.SetFocus
IfClipboard.GetFormat(vbCFBitmap)ThenSendMessageRichTextBox1.hwnd,1088,2,1
EndSub

PrivateSub常规粘贴_Click()
RichTextBox1.SetFocus
RichTextBox1.SelRTF=Clipboard.GetText
EndSub

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

PrivateSub常规复制_Click()
SendMessage文本框.hwnd,769,0,0
EndSub

PrivateSub常规剪切_Click()
SendMessage文本框.hwnd,768,0,0
EndSub


通过本文的学习你是不是对办公软件有了更多了解呢?

这些内容可能对你也有帮助

更多办公软件可查看办公软件列表页。