如何取得RichTextBox里面的图片

wzckr 2013-01-31 11:44:28
我要求的功能是取得RichTexTox里图片显示在一个Picturebox里,代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Int16
Dim d_Image As Image
For i = 0 To Me.RichTextBox1.TextLength - 1
Me.RichTextBox1.Select(i, 1)
If Me.RichTextBox1.SelectionType = RichTextBoxSelectionTypes.Object Then
Me.RichTextBox1.Copy()
d_Image = Clipboard.GetImage
Me.PictureBox1.Image = d_Image
Exit For
End If
Next
End Sub

可是运行的时候发现
Me.PictureBox1.Image = d_Image
里的d_Image是Nothing
我在Me.RichTextBox1.Copy后一句设置断点,然后用Clipboard.ContainsImage,发现这个结果是False,就是说剪贴板上没有图片
可是如果我把Me.RichTextBox1.Copy这句后面加个Exit sub,也就是说只执行到Copy,然后就退出,这个时候,我直接在RichTextBox里面用Ctrl+V,是可以把那个用代码复制的图片再复制到RichTextBox最后的
也就是说Copy这个代码是有执行的
是不是Copy执行是有一定时间的,如果直接在后面用代码操作剪贴板这个时候图片还没有复制到剪贴板上,所以才找不到这个图,还是说我哪里代码有问题
这个问题要如果解决,或有没有高手有别的方法得到图片
...全文
338 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
HeraLu 2013-02-25
帮顶一下,同求解决方案!
  • 打赏
  • 举报
回复
HMIXXH 2013-02-20
顶,关注,求解
  • 打赏
  • 举报
回复
wzckr 2013-02-04
怎么没人能解决吗??5555555555555555
  • 打赏
  • 举报
回复
Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf);
  • 打赏
  • 举报
回复
wzckr 2013-01-31
引用 3 楼 hjywyj 的回复:
引用 2 楼 wzckr 的回复: 引用 1 楼 hjywyj 的回复:Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf); 你是说用 Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf); 代替Me.RichTextBox1.Copy() 是不是……
Me.RichTextBox1.Select(i, 1) 这会把图片选中,我确定图片已经选中了
  • 打赏
  • 举报
回复
引用 2 楼 wzckr 的回复:
引用 1 楼 hjywyj 的回复:Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf); 你是说用 Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf); 代替Me.RichTextBox1.Copy() 是不是,没有用,结……
你确定选中richtextbox里的图片了?
  • 打赏
  • 举报
回复
wzckr 2013-01-31
引用 1 楼 hjywyj 的回复:
Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf);
你是说用 Clipboard.SetData(DataFormats.Rtf, richTextBox1.SelectedRtf); 代替Me.RichTextBox1.Copy() 是不是,没有用,结果和原来的还是一样
  • 打赏
  • 举报
回复
发帖
VB

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
帖子事件
创建了帖子
2013-01-31 11:44
社区公告
暂无公告