08-03-19, 02:27 PM
السلام عليكم ..
واجهتني بعض الاخطاء الصغيرة وهي
----------------------------------------------------------------------------------------------------------------------------------
وجدت ما الخطا هنا لقد قمت بوضع كود (Function) الذي في الاسفل في كلاس جديد (Class1) وعند نقل هذا الفنكشن الي نفس الفورم وهو فورم 1 اختفت المشكلة...^^!
---------------------------------------------------------------------------------------------------------------
تبقى هذه المشكلة الصغيرة
واجهتني بعض الاخطاء الصغيرة وهي
كود :
imgstr = ImageToString(PictureBox1.Image) ----------------------------------------------------------------------------------------------------------------------------------
وجدت ما الخطا هنا لقد قمت بوضع كود (Function) الذي في الاسفل في كلاس جديد (Class1) وعند نقل هذا الفنكشن الي نفس الفورم وهو فورم 1 اختفت المشكلة...^^!
كود :
'كود تحويل الصورة إلى سلسلة نصية base64 والعكس :
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تبقى هذه المشكلة الصغيرة
كود :
imgstr = ImageToString(PictureBox1.Image)
nod.ChildNodes(2).InnerText = imgstr 
