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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27746)

خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - aftfm - 01-12-18

السلام عليكم ورحمة الله وبركاته

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

لكن تظهر لدي مشكلة أخرى في الحفظ 
عندما يتم حفظ الصورة باسم مكرر تظهرا الرسالة
المطلوب اظهار مسج بتغيير الصورة على نفس الاسم والاختيار بنعم او لا
هذا كود الحفظ
 
كود :
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)


RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - Rabeea Qbaha - 01-12-18

يقول لك ان المف او الصوره غير موجودة تاكد من ال 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 


RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - aftfm - 01-12-18

يقول لك ان المف او الصوره غير موجودة تاكد من ال file path 

الف شكر 

طيب في حالة ان الملف موجود واريد الحفظ عليه بنفس الاسم

RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - rmnr - 01-12-18

كود :
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


RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - Rabeea Qbaha - 01-12-18

ستكرر الصوره لكن باسم جديد

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

RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - aftfm - 01-12-18

الف شكر ولكن ظهر الخطأ هنا

RE: خطأ في كود اظهار الصورة من مجلد بداخل البرنامج - aftfm - 01-12-18

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

طيب هل من الممكن تعديل على الكود بحيث يعمل اوفر رايت على الملف