如何取得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执行是有一定时间的,如果直接在后面用代码操作剪贴板这个时候图片还没有复制到剪贴板上,所以才找不到这个图,还是说我哪里代码有问题
这个问题要如果解决,或有没有高手有别的方法得到图片