• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

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

jxzhang615 2009-08-01 11:00:07
RT
先谢谢大家关注，分不是问题！！
...全文
104 点赞 收藏 7
写回复
7 条回复
CloneCenter 2009年08月02日
6 楼的代码没有用的，楼主要的是从 RichtextBox 中获取图片。
 回复 点赞
kuhura 2009年08月02日
很麻烦啊，用了些曲折的手段，不知道是不是能得到你想要的，参考如下的代码：

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
 回复 点赞
jxzhang615 2009年08月01日
自己再顶一下！
谢谢大家关注
 回复 点赞
蒋晟 高手 2009年08月01日
先得找到图片的ReObject
不知道怎么从.Net的封装找，直接调用Windows API的话是IRichEditOle::GetObject
回复 点赞
古今多少事 2009年08月01日
保存是:Dim ArrPic() As Byte = CType(YourImage,Byte()) ,如何读取就不知道了……
 回复 点赞
lghndyz 2009年08月01日
帮顶一下！！
 回复 点赞
bw555 2009年08月01日

ctype(myimage,byte())
 回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论，主要为经典vb，即VB6.0
社区公告
暂无公告