图片和二进制的相互转换

Question

跪求图片和二进制的相互转换的vb源代码

Answer 1

Private Sub Command1_Click()
    Dim bytA() As Byte
    Dim lngLen As Long    Open "D:\110.jpg" For Binary As #1
    lngLen = Log(1)
    ReDim bytA(lngLen - 1) As Byte
    Get #1, 1, bytA
    Close #1    Open "D:\120.jpg" For Binary As #1
    Put #1, 1, bytA
    Close #1
End Sub