(22-12-18, 08:19 PM)elgokr كتب :

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

كود الحذف هو كود الحذف الاعتيادى من قاعدة البيانات

واما عن الصورة ستحتاج الى استخدام الكود التالى

كود :

       Dim FileDelete As String = "C:\testDelete.png"
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
       End If

طبعاً ستقوم بتغيير 

PHP كود :

"C:\testDelete.png" 


الى مسار الصورة لديك

فمثلاً اذا كان الصورة بنفس مجلد البرنامج

بداخل مجلد مخصص للصورة سيكون المسار بهذا الشكل

كود :

"Folder\testDelete.png"

تحياتى لك

وتمنياتى لك التوفيق

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

(02-01-19, 11:47 PM)hassan 14 كتب :

(22-12-18, 08:19 PM)elgokr كتب :

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

كود الحذف هو كود الحذف الاعتيادى من قاعدة البيانات

واما عن الصورة ستحتاج الى استخدام الكود التالى

كود :

       Dim FileDelete As String = "C:\testDelete.png"
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
       End If

طبعاً ستقوم بتغيير 

PHP كود :

"C:\testDelete.png" 


الى مسار الصورة لديك

فمثلاً اذا كان الصورة بنفس مجلد البرنامج

بداخل مجلد مخصص للصورة سيكون المسار بهذا الشكل

كود :

"Folder\testDelete.png"

تحياتى لك

وتمنياتى لك التوفيق

مشكلتي هنا testDelete.png ماذا اضع وضعت  التكست بوكس الموجودة على الفورم لكن لم تنجح يعني مشكلتي اسم الصورة

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لم ينجح للاسف

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لا جديد هناك خطأ

(05-01-19, 10:59 AM)mmali127 كتب : السلام عليكم ورحمه الله وبركاته 

تحية للاعضاء الكرام 

اولا : -  الكود التالى خاص بحذف الصورة من مسار البرنامج 



 PbPic.Image.Dispose()
                Dim FileDelete As String = (Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                If System.IO.File.Exists(FileDelete) Then
                    System.IO.File.Delete(FileDelete)
                End If


حيث ان  
(1) PbPic هو اسم PictureBox
(2) Mypicture هو اسم مجلد الصور فى مسار البرنامج
(3)  txtItemID هو اسم التكست بوكس لاسم الصورة فى النموذج المستخدم
(4)    PbPic.Image.Dispose  هو اجراء لتفريغ  ال PictureBox

___________________________________________________________________________________________________________________


ثانيا : -  الكود التالى خاص باضافة الصورة الجديدة المعدلة للصنف بنفس مسار الصور 

 Dim MYPicPhath As String
                IO.File.Copy(MYPicPhath, Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                MYPicPhath = Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg"
                txtMyPicPath.Text = MYPicPhath

ان شاء الله يمشى معاك الحال 

تحياتى

(03-01-19, 10:08 PM)hassan 14 كتب : السلام عليكم الاخ الجوكر اين انت انا انتظر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟