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اتمنى ان اكون افدتك
تطبيق للجوال يشبه تطبيق حراج
سورس كود برنامج محاسبة ومبيعات احترافي
سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515

