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

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

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

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

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

كود :

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)

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

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

الف شكر

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

كود :

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

Rabeea Qbaha

aftfm

rmnr

Rabeea Qbaha

aftfm

aftfm