Question

VB怎么把pictureBox里的图片转成Byte类型 急急急

如能解决还会加分
转换并返回这个BYTE，图片已经加载在pictureBox里面了！

Answer 1

Dim B() As Byte

'假设Form 上已经存在Picture1的控件，并已经设置好图片
Private Sub Command1_Click()
Dim PBag As New PropertyBag
PBag.WriteProperty "Picture", Picture1.Picture
'读取Picture1.Picture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
'这时 数组B 就时我们想要获得的图像字节数组
End Sub

追问

我原来这样写，想返回BYTE的值，但怎么得不到返回的byte？
Public Function Rephoto() As Byte
Dim B() As Byte
Dim PBag As New PropertyBag
PBag.WriteProperty "Picture", Picture1.Picture
B = PBag.Contents '
End Function

追答

Public Function Rephoto() As Byte
这样写不对，函数不能返回数组！

Answer 2

Dim s As String
s = "D:\1.bmp"
SavePicture Picture1.Picture, s '先将图片保存到本地
Dim ST As New ADODB.Stream '使用STREAM对像读取数据流
'工程--引用 ---ACTIVEX data object2.8以上
ST.Type = adTypeBinary
ST.Open
ST.LoadFromFile s '读取数据流
Kill s '删除保存的文件
MsgBox ST.Read 'st.Read 就是己经读取好的数据流