主题：有没有BASE64的函数

参考

Dim bmp As new Bitmap("d:\abc.jpg")
Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()

Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
msgbox("读取图片完毕")

 或者看看

http://www.foxtable.com/mobilehelp/scr/0146.htm

Dim a As String = "base64字符串与普通字符串互转"
Dim b As Byte() = System.Text.Encoding.[Default].GetBytes(a)
Dim base64 = Convert.ToBase64String(b)
output.show(base64)

-------------------

dim str as string = "YmFzZTY019a3+7Su0+vG1c2o19a3+7Suu6XXqg=="
Dim c As Byte() = Convert.FromBase64String(str)
str = System.Text.Encoding.[Default].GetString(c)
output.show(str)