Question

求大神指点vb.net的Bitmap图像数据怎么才能用BinaryReader写进去呀?

Dim pic As New Bitmap(500, 600)
Dim mygraphics As Graphics
mygraphics = Graphics.FromImage(pic)
mygraphics.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
我想把上面的 pic图像数据 用BinaryReader保存到 strRead 里面 要怎么写才对呀?我下面这样写是错的
Dim strRead As New BinaryReader(pic)

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Dim bitmap As New Bitmap("笑汪源碰态"陵或)
Dim st As IO.Stream = New IO.MemoryStream()
bitmap.Save(st, Drawing.Imaging.ImageFormat.Bmp)
Dim bing As New IO.BinaryReader(st)

追问

Dim FileBuff(8192)
bing.Read(FileBuff, 0, 8192)
Debug.Print(FileBuff(0))
不的行呀 bing 里面没有内容呀.....

追答

st.Seek(0, IO.SeekOrigin.Begin)
加在你的代码前面