可以转换成‘64String’格式的文本:
Public Function ImageTo64String(ByVal Image As System.Drawing.Image) As String
Dim S As String = ""
If Not Image Is Nothing Then
Dim M As New
Image.Save(M, System.Drawing.Imaging.ImageFormat.Jpeg)
S = Convert.ToBase64String(M.ToArray)
End If
Return S
End Function