السلام عليكم
ابغي كود يحذف صورة
انا سويته بس يطلع خطأ
لان الصورة مستخدمه في البرنامج حاليا
ابغي كود يحذف الصورة حتى لو برنامج يستخدمها حاليا
(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
(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
نحمده ونصلي على رسوله الكريم
الكود الذي تستخدمه ليس به اي مشكلة الا اذا كنت تعرض الصورة في أداة PictureBox
(23-02-14, 03:38 PM)ربيع كتب : [ -> ]نحمده ونصلي على رسوله الكريم
الكود الذي تستخدمه ليس به اي مشكلة الا اذا كنت تعرض الصورة في أداة PictureBox
نعم انا اعرضها في PictureBox
هل هناك حل لحذف الصورة
إذا كنت تقصد حذف الصورة من PictureBox استخدم هذا الأمر PictureBox1.Image = Nothing
السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose
(23-02-14, 05:00 PM)zakaria كتب : [ -> ]السلام عليكم و رحمة الله
يجب عليك أخي الكريم أن تحرر الصورة من الذاكرة التي قمت بعرضها ،قبل حذف الصورة أضف السطر التالي
PictureBox1.image.dispose
مشكووووور هاذا الي كنت ادور عنه
و مشكوريين الباقين على تعبكم و ردودكم