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

الصفحات : 1 2 3

(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 قد لا تتمكن من حذف الصورة

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

(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 قد لا تتمكن من حذف الصورة

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

لأنك استخدمت Try مع Catch فارغة، فلن يظهر الخطأ رغم وجوده.

مشكلتي في التعبير عن اسم الصورة هنا

كود :

 Dim FileDelete As String = "C:\testDelete.png"

       If System.IO.File.Exists(FileDelete) Then

           System.IO.File.Delete(FileDelete)

       End If

testDelete.png

سلام الاخوة

كود :

Dim FileDelete As String = Application.StartupPath & "\" & Pectcher.Text

        If System.IO.File.Exists(FileDelete) Then

            System.IO.File.Delete(FileDelete)

        End If

بعد وضع الكود يضهر هذا الخطأ
Le processus ne peut pas accéder au fichier 'C:\Users\xp\Documents\blp\blp\bin\Debug\image\cart-biblio.jpg', car il est en cours d'utilisation par un autre processus.

السلام عليكم الاخ الجوكر اين انت انا انتظر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

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

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

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

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

تحياتى

(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

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

تحياتى

شكرا لردك الكود الثاني مافائدته اين اضعه اشكرك جزيل الشكر

بعد التجربة بهذا الكود ضهر لي نفس الرسالة

كود :

       PictureBox1.Image.Dispose()

        Dim FileDelete As String = Application.StartupPath & "\image\" & Pectcher.Text

        If System.IO.File.Exists(FileDelete) Then

            System.IO.File.Delete(FileDelete)

            cls.clairemploiter()

هذه الرسالة
Le processus ne peut pas accéder au fichier 'C:\Users\xp\Documents\blp\blp\bin\Debug\image\cart-biblio.jpg', car il est en cours d'utilisation par un autre processus

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

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

اخر الفاضل hassan 14

اسف على تاخر بالرد بسبب عدم توجدى الفترة الاخيرة

الان انت كل ما لديك من مشكلة فقط

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

السؤال هنا اين تحتفظ باسم الصورة هل بقاعدة البيانات او تقوم برفع الصورة وحفظها بجانب البرنامج فقط

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

اذا ارقت المشروع لديك لاطلاعى عليه وافادتك بالشكل النهائي

لاستخدام الكود كما تم الرد عليك بالكود المطلوب الحذف فى البداية الموضوع

تحياتى لك

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

شكرا الجوكر انا اضع ملف بجانب البرنامج داخل الديباڨ يحتوي الصور واملئ الصور واحذف السجل عادي لكن الصورة تبقى في الملف لا تحذف جربت المود يحذف في حالة الصورة غير مرتبطة بالبرنامج لكن عندما تكون غغير نشطة يحذف عادي

الشكر لله والحمد لله

والحمد لله على كل حال

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

PHP كود :

id - name - photo - note 

وتدرج البيانات بها عبارة عن التالى

PHP كود :

1 - File - logo.png - non 

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

يتقوم بعمل استعلام لجلب اسم الصورة التى بعمود photo والتى تكون فى المثال logo.png

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

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

تحياتى لك

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

الصفحات : 1 2 3