[حريف برمجة]

ضيف هذه الأسطر :

كود :

Private Function ImageToString(img As Image) As String
      Dim m As New MemoryStream()
      img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
      Return Convert.ToBase64String(m.ToArray())
  End Function

  Private Function StringToImage(imgstring As String) As Image
      Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
      Dim m As New MemoryStream(imgbytes)
      Return Image.FromStream(m)
  End Function

أيضا في اعلا الصفحة تعرف المتغير :

كود :

Dim imgstr As String = ""