Dim B() As Byte'假设Form 上已经存在Picture1的控件,并已经设置好图片Private Sub Command1_Click()Dim PBag As New PropertyBagPBag.WriteProperty "Picture", Picture1.Picture'读取Picture1.Picture 图片并写到 Pbag 容器中B = PBag.Contents '获取容器Byte 到 B() 数组中'这时 数组B 就时我们想要获得的图像字节数组End Sub...
Dim s As Strings = "D:\1.bmp"SavePicture Picture1.Picture, s '先将图片保存到本地Dim ST As New ADODB.Stream
'使用STREAM对像读取数据流'工程--引用 ---ACTIVEX data object2.8以上ST.Type = adTypeBinar...