找到一个可以合并的类 没找到可以截去前面4个字符的类
Dim ba As Byte() = Encoding.Default.GetBytes("图片")
Dim bc As Byte()
Dim tp As Byte() = My.Computer.FileSystem.ReadAllBytes("E:\Personal\My Documents\My Pictures\235x235.jpg")
Dim stream As New System.IO.MemoryStream()
stream.Write(ba, 0, ba.Length)
stream.Write(tp, 0, tp.Length)
stream.Close()
bc = stream.GetBuffer()
Dim leix As String = Encoding.Default.GetString(bc, 0, 4)'提出了文字
Dim tchutp As Byte()'这怎么提出图片然后保存在本地
MsgBox(leix)