[mohssan]

(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