کلاس StreamImage:
Public Class StreamImage
Shared Function FromString(ByVal Value$) As Image
Dim M As IO.Stream, Img As Image
M = New IO.MemoryStream(Convert.FromBase64String(Value))
M.Position = 0
Img = If(M Is Nothing, Nothing, Image.FromStream(M))
M.Close
Return Img
End Function
Shared Function FromFile$(ByVal file$)
Return Convert.ToBase64String(IO.File.ReadAllBytes(file))
End Function
End Class
Save Image To Text File:
Dim StringStream$ = ""
StringStream = StreamImage.FromFile("ImageFilePath")
Io.File.WriteAllText("FilePath", StringStream)
Load Image From Text File:
Dim StringStrm$ = ""
StringStrm = Io.File.ReadAllText("FilePath")
PictureBox1.Image = StreamImage.FromString(StringStrm)