تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ في كود اظهار الصورة من مجلد بداخل البرنامج
#1
السلام عليكم ورحمة الله وبركاته

تظهر رسالة الخطأ في كود استرجاع الصورة من مجلد بداخل البرنامج

الحمد لله الكود السابق لا توجد به مشكلة لانه يقبل اظهار الصورة في حالة تم ادراج الصورة من خلال الكود وليس باللصق في مجلد البرنامج

لكن تظهر لدي مشكلة أخرى في الحفظ 
عندما يتم حفظ الصورة باسم مكرر تظهرا الرسالة
المطلوب اظهار مسج بتغيير الصورة على نفس الاسم والاختيار بنعم او لا
هذا كود الحفظ
 
كود :
Dim strBasePath As String
        Dim strFileName As String
        Dim FileName As String = Me.TextBox1.Text
        strFileName = Me.TextBox1.Text & ".jpg"
        strBasePath = Application.StartupPath & "\Photos"
        ' >> Check if Folder Exists 
        If Directory.Exists(strBasePath) = False Then
            Call Directory.CreateDirectory(strBasePath)
        End If
        ' >> Save Picture 
        Call PictureBox1.Image.Save(strBasePath & "\" & strFileName, System.Drawing.Imaging.ImageFormat.Jpeg)


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
يقول لك ان المف او الصوره غير موجودة تاكد من ال file path 

PHP كود :
Dim pic_path As String ""
 
       If Not pic_path "" Then
            PictureBox1
.Image Bitmap.FromFile(pic_path)
 
       Else
            PictureBox1
.Image Nothing
        End 
If 

الرد }}}
تم الشكر بواسطة: aftfm
#3
يقول لك ان المف او الصوره غير موجودة تاكد من ال file path 

الف شكر 

طيب في حالة ان الملف موجود واريد الحفظ عليه بنفس الاسم
الرد }}}
تم الشكر بواسطة:
#4
كود :
Dim strBasePath As String = Application.StartupPath & "\Photos"
If Not Directory.Exists(strBasePath) Then Directory.CreateDirectory(strBasePath)
Dim strFileName As String = strBasePath & "\" & Me.TextBox1.Text.Trim & ".jpg"

If File.Exists(strFileName) Then
   If MsgBox("الصورة موجودة، هل تريد الحفظ فو", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
       PictureBox1.Image.Save(strFileName, System.Drawing.Imaging.ImageFormat.Jpeg)
   End If
Else
   PictureBox1.Image.Save(strFileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
الرد }}}
تم الشكر بواسطة: aftfm
#5
ستكرر الصوره لكن باسم جديد

وستستعمل نفس الكود المستخدم

الرد }}}
تم الشكر بواسطة:
#6
الف شكر ولكن ظهر الخطأ هنا


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#7
حاولت احذف الصورة قبل الحفظ 
ولكن بدون جدوى حيث ظهرت رسالة تفيد بان الملف قيد الاستخدام

طيب هل من الممكن تعديل على الكود بحيث يعمل اوفر رايت على الملف
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم عرض الصورة في تقرير rdlc لماذا atefkhalf2004 2 72 23-03-24, 04:42 AM
آخر رد: atefkhalf2004
  عدم عرض الصورة في تقرير rdlc atefkhalf2004 0 29 21-03-24, 05:23 PM
آخر رد: atefkhalf2004
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم