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

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

حذف ملف - mohssan - 22-02-14

السلام عليكم

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

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

RE: حذف ملف - Genius Live - 22-02-14

ما هو الكود الذي استعملته ؟

RolleyesRolleyesRolleyes

RE: حذف ملف - mohssan - 22-02-14

(22-02-14, 04:06 PM)Genius Live كتب : ما هو الكود الذي استعملته ؟

RolleyesRolleyesRolleyes

مو مهم الكود الي استعملته المهم ابغي كود يحذف الصورة

RE: حذف ملف - ربيع - 22-02-14

(22-02-14, 04:44 PM)mohssan كتب : مو مهم الكود الي استعملته المهم ابغي كود يحذف الصورة

نحمده ونصلي على رسوله الكريم

اذا اردت التعلم ضع الكود الذي استخدمته لنبين لك ما الخطا فيه وما الصواب
على كلا قد تكون استخدمت الكود التالي لجلب الصورة:

كود :
PictureBox1.Image = Image.FromFile("ImagePath")

استخدم الكود التالي لتستطيع الحذف:

كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim ofd As New OpenFileDialog()
    ofd.ShowDialog()

    Using img As New FileStream(ofd.FileName, FileMode.Open)
        PictureBox1.Image = Image.FromStream(img)
        imagePath = ofd.FileName
    End Using
End Sub

Private imagePath As String

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    Try
        File.Delete(imagePath)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub


RE: حذف ملف - mohssan - 22-02-14

(22-02-14, 06:13 PM)ربيع كتب :
(22-02-14, 04:44 PM)mohssan كتب : مو مهم الكود الي استعملته المهم ابغي كود يحذف الصورة

نحمده ونصلي على رسوله الكريم

اذا اردت التعلم ضع الكود الذي استخدمته لنبين لك ما الخطا فيه وما الصواب
على كلا قد تكون استخدمت الكود التالي لجلب الصورة:

كود :
PictureBox1.Image = Image.FromFile("ImagePath")

استخدم الكود التالي لتستطيع الحذف:

كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim ofd As New OpenFileDialog()
    ofd.ShowDialog()

    Using img As New FileStream(ofd.FileName, FileMode.Open)
        PictureBox1.Image = Image.FromStream(img)
        imagePath = ofd.FileName
    End Using
End Sub

Private imagePath As String

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    Try
        File.Delete(imagePath)

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

شكراً اخي على مساعدتك بس ما فهمت الكود
بحط الكود الي انا سويته و صححه لي

كود :
OpenFileDialog1.Filter = "(*.png)|*.png"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Try
                (System.IO.File.Copy(OpenFileDialog1.FileName, imagePath, True)
            Catch ex As Exception
            End Try
        End If


RE: حذف ملف - ربيع - 23-02-14

نحمده ونصلي على رسوله الكريم

الكود الذي تستخدمه ليس به اي مشكلة الا اذا كنت تعرض الصورة في أداة PictureBox

RE: حذف ملف - mohssan - 23-02-14

(23-02-14, 03:38 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

الكود الذي تستخدمه ليس به اي مشكلة الا اذا كنت تعرض الصورة في أداة PictureBox

نعم انا اعرضها في PictureBox
هل هناك حل لحذف الصورة

RE: حذف ملف - vbnetvbnet - 23-02-14

إذا كنت تقصد حذف الصورة من PictureBox استخدم هذا الأمر PictureBox1.Image = Nothing

RE: حذف ملف - zakaria - 23-02-14

السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose

RE: حذف ملف - mohssan - 23-02-14

(23-02-14, 05:00 PM)zakaria كتب : السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose

مشكووووور هاذا الي كنت ادور عنه

و مشكوريين الباقين على تعبكم و ردودكم