当字符过大过长的时候,msgbox是无法显示内容的。
请拷贝到剪切板后测试,如
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 Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
ClipBoard.SetText(strbase64)
msgbox(strbase64.length)