تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف ملف
#1
السلام عليكم

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

ابغي كود يحذف الصورة حتى لو برنامج يستخدمها حاليا
الرد }}}}
تم الشكر بواسطة:
#2
ما هو الكود الذي استعملته ؟

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: ربيع , vbnet
#3
(22-02-14, 04:06 PM)Genius Live كتب : ما هو الكود الذي استعملته ؟

RolleyesRolleyesRolleyes

مو مهم الكود الي استعملته المهم ابغي كود يحذف الصورة
الرد }}}}
تم الشكر بواسطة:
#4
(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
الرد }}}}
تم الشكر بواسطة: vbnet
#5
(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
الرد }}}}
تم الشكر بواسطة:
#6
نحمده ونصلي على رسوله الكريم

الكود الذي تستخدمه ليس به اي مشكلة الا اذا كنت تعرض الصورة في أداة PictureBox
الرد }}}}
تم الشكر بواسطة:
#7
(23-02-14, 03:38 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

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

نعم انا اعرضها في PictureBox
هل هناك حل لحذف الصورة
الرد }}}}
تم الشكر بواسطة:
#8
إذا كنت تقصد حذف الصورة من PictureBox استخدم هذا الأمر PictureBox1.Image = Nothing
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose
الرد }}}}
تم الشكر بواسطة:
#10
(23-02-14, 05:00 PM)zakaria كتب : السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose

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

و مشكوريين الباقين على تعبكم و ردودكم
الرد }}}}
تم الشكر بواسطة:


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


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