10-08-21, 03:13 PM
11-08-21, 09:02 AM
وعليكم السلام ورحمة الله وبركاته
في سيكوال الحقل المخصص لحفظ الصورة فيه يجب ان image
في فيجوال بيسك يجب ان تستخدم الاداة picturebox
ثم
الان انت حصلت على متغير bimag ويحتوي الصورة قم بحفظ المتغير اقصد انت تعرف كيف تحفظ قيمة تيكست بوكس مثلا احفظ المتغير مثل كأنك تحفظ تيكست بوكس في السيكوال
اما عرض الصورة المحفوظة في جدول في سيكوال
في هذا الكود نحن احضرنا الصورة وافرغناها في pic حيث هي picturebox
اتمنى ان اكون افدتك
في سيكوال الحقل المخصص لحفظ الصورة فيه يجب ان image
في فيجوال بيسك يجب ان تستخدم الاداة picturebox
ثم
كود :
Dim aaa As New MemoryStream
pic.Image.Save(aaa, pic.Image.RawFormat)
Dim bimag As Byte() = aaa.ToArray()
الان انت حصلت على متغير bimag ويحتوي الصورة قم بحفظ المتغير اقصد انت تعرف كيف تحفظ قيمة تيكست بوكس مثلا احفظ المتغير مثل كأنك تحفظ تيكست بوكس في السيكوال
اما عرض الصورة المحفوظة في جدول في سيكوال
كود :
Dim imgByteArray() As Byte
imgByteArray = dt.Rows(0).Item(10)
Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
pic.Image = Img
اتمنى ان اكون افدتك
11-08-21, 12:40 PM
شكرا بارك الله فيكم و سدد خطاكم
12-08-21, 07:11 PM
عفوا اخى الكريم أبو أنس
لقد عمل كود الحفظ للصورة بنجاح و الحمد لله ولكن كود عرض الصورة أعطى هذا الخطأ فى السطر :
لقد عمل كود الحفظ للصورة بنجاح و الحمد لله ولكن كود عرض الصورة أعطى هذا الخطأ فى السطر :
كود :
Dim Img As System.Drawing.Image = New Bitmap(Stream)
Parameter is not valid
علما بأن اصدار ال VB.net عندى 2015
13-08-21, 02:54 PM
جرب استيراد المكتبة التالية
Imports System.IO
Imports System.IO
13-08-21, 03:07 PM
جربت استخدام المكتبة التى أشرت إليها ولكن الخطأ مازال موجود
13-08-21, 07:20 PM
(13-08-21, 03:07 PM)mmaalmesry كتب : [ -> ]جربت استخدام المكتبة التى أشرت إليها ولكن الخطأ مازال موجود
اعتذر منك لا اعرف لماذا يظهر هذا الخطأ عندك
14-08-21, 10:05 AM
لقد اكتشفت الخطأ و هو فى القطعة الخاص بحفظ الصورة و هو أننى لم استخدم Parameter نوعه Image والكود عمل و الحمد لله
شكرا جزيلا لكم
شكرا جزيلا لكم