如何读取RichTextbox 中的图片到一个byte（）

[jxzhang615]

RT
先谢谢大家关注，分不是问题！！

[bw555]

ctype(myimage,byte())

[lghndyz]

帮顶一下！！

[古今多少事]

保存是:Dim ArrPic() As Byte = CType(YourImage,Byte()) ,如何读取就不知道了……

[蒋晟]

先得找到图片的ReObject
不知道怎么从.Net的封装找，直接调用Windows API的话是IRichEditOle::GetObject

[jxzhang615]

自己再顶一下！
谢谢大家关注

[kuhura]

很麻烦啊，用了些曲折的手段，不知道是不是能得到你想要的，参考如下的代码：

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO

Public Class Test

Dim YourImage As Image = "你的图片"
Dim FileName As String = "文件名"

Public Sub ImageToFile()
Dim fs As New FileStream(FileName, FileMode.Create)
Dim BF_Image As New BinaryFormatter
Try
BF_Image.Serialize(fs, YourImage)
Dim B() As Byte
ReDim B(fs.Length)
fs.Read(B, 0, fs.Length)

Console.WriteLine(B.Length)
'此处B为得到的二进制数组，可能会非常大
Catch e As Exception
Console.WriteLine(e.Message)
Finally
fs.Close()
End Try

End Sub

Public Sub FileToImage()
Dim fs As New FileStream(FileName, FileMode.Open)
Try
Dim BF_Image As New BinaryFormatter
YourImage = DirectCast(BF_Image.Deserialize(fs), System.Drawing.Image)
Catch e As Exception
Console.WriteLine(e.Message)
Finally
fs.Close()
End Try
End Sub

end Test

[CloneCenter]

6 楼的代码没有用的，楼主要的是从 RichtextBox 中获取图片。