参考
Dim bmp As new Bitmap("d:\test.jpg")
Dim ms As new System.Io.MemoryStream()bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Bytems.Position = 0ms.Read(arr, 0, ms.Length)ms.Close()
bmp.dispose
Dim strbaser64 As String = Convert.ToBase64String(arr)