منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة تحميل الصورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة تحميل الصورة (/showthread.php?tid=34125)

الصفحات: 1 2 3

RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20

(02-04-20, 11:34 PM)bidaya كتب : مدام اخي تريد حفظ الصورة الموالية بنفس الاسم هل تريد استبدالها ام مذا لانه انت واضع اسم واحد لاي صورة تريد حفظها وهذا هو سبب المشكل

أنا أحتاج لمعرفة الصوره المحدده أولاً ومن ثم بعد التأكيد تصغير حجمها وضعها في أداة الصور 
بأي طريقة كانت وإذا كان بالأمكان أن أجلعها خلفية شفافه png  فقد أكتمل العرس

RE: مشكلة تحميل الصورة - معاند الحظ - 02-04-20

نفس اللي قلته لك في اول رد 
لكن الان الخطأ بسبب ان الوضيفة bmp.save تصدر خطأ اذا حاولت تحفظ صورة بنفس اسم صورة موجودة
يعني اما تحفظ كل صورة باسم يختلف 
او انك تنقل الصورة القديمة من المجلد PICES الى مجلد اخر قبل تحفظ الجديدة وبعد ماتقفل البرنامج تردها
واذا حبيت تتاكد ارفقت لك صورة من موقع مايكروسفت فيها شرح استخدام امر الحفظ للصور

او اقرا هنا 
IMAGE.SAVE

[attachment=24322]

RE: مشكلة تحميل الصورة - سامي محمد - 03-04-20

ستزول المشكلة لو غيرت طريقة تحميل الصورة

كود :
Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")

ليكون الكود الكامل بهذه الصورة

كود :
 Dim a As New OpenFileDialog
        With a
            .AddExtension = True
            .CheckPathExists = True
            .CheckFileExists = True
            .Title = "أختر صورة التي تريدها"
            .Filter = "Choose Image(*.PNG;*.GIF;*.JPG;*.JPEG)|*.PNG;*.GIF;*.JPG;*.JPEG | All Files(*.*)|*.*"
            If .ShowDialog = DialogResult.OK Then
                Dim bmp As New Bitmap(Image.FromFile(.FileName & ""), New Size(Convert.ToInt32(110), Convert.ToInt32(70)))
                If IO.Directory.Exists(Application.StartupPath & "\Pices") = True Then
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                Else
                    IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                End If
                Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
            End If


RE: مشكلة تحميل الصورة - DOX.1 - 03-04-20

(03-04-20, 12:45 AM)سامي محمد كتب : ستزول المشكلة لو غيرت طريقة تحميل الصورة

كود :
Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")

ليكون الكود الكامل بهذه الصورة

كود :
 Dim a As New OpenFileDialog
        With a
            .AddExtension = True
            .CheckPathExists = True
            .CheckFileExists = True
            .Title = "أختر صورة التي تريدها"
            .Filter = "Choose Image(*.PNG;*.GIF;*.JPG;*.JPEG)|*.PNG;*.GIF;*.JPG;*.JPEG | All Files(*.*)|*.*"
            If .ShowDialog = DialogResult.OK Then
                Dim bmp As New Bitmap(Image.FromFile(.FileName & ""), New Size(Convert.ToInt32(110), Convert.ToInt32(70)))
                If IO.Directory.Exists(Application.StartupPath & "\Pices") = True Then
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                Else
                    IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                End If
                Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
            End If





ألف شكـر أنتهت المشكلة 

ولكن لي سـؤال هل يوجد طريقة لأزالة الخلفية لصوره لتصبح بصيغة Png بدون أي لون خلفيه لصورة قبل حفظها ..؟