27-10-24, 04:49 PM
27-10-24, 06:15 PM
هذا المشروع يابوخالد
وفيه شغلة نسيت لبلغك فيها إلي هي الحذف لازم يتبرمج على حذف الصورة من الفولدر بعد حذفها من قاعدة البيانات
وشغله ثانية بعد وهي إذا نقلت البرنامج إلى جهاز آخر الصور لا تظهر بسبب تغير مسارها
وفيه شغلة نسيت لبلغك فيها إلي هي الحذف لازم يتبرمج على حذف الصورة من الفولدر بعد حذفها من قاعدة البيانات
وشغله ثانية بعد وهي إذا نقلت البرنامج إلى جهاز آخر الصور لا تظهر بسبب تغير مسارها
27-10-24, 09:01 PM
الله يعطيك العافية أخوي justforit
بس أوصل للبيت راح أراجع الرابط
مشكور وماقصرت
بس أوصل للبيت راح أراجع الرابط
مشكور وماقصرت
27-10-24, 10:05 PM
يا سلام عليك يا أخ justforit تمت جزاك الله خير
بس باقي الحذف حيث عندما أحذف سجل الصورة لاتزال موجوده في الفولدر
بس باقي الحذف حيث عندما أحذف سجل الصورة لاتزال موجوده في الفولدر
28-10-24, 11:30 AM
لحل مشكلة حذف الصورة من المجلد قم بتغيير كود Delete_Car_Arshef ليصبح كما يلي :
كود :
Public Sub Delete_Car_Arshef(ByVal dgv_Car_Arshef As DataGridView)
Dim Position As Integer = dgv_Car_Arshef.CurrentRow.Index
Dim ID_Position As Integer = dgv_Car_Arshef.Rows(Position).Cells("ID").Value
Dim imagePath As String = String.Empty
Dim getImagePathCmd As New OleDbCommand("SELECT Car_Doc FROM Car_Arshef WHERE ID = @ID", con)
getImagePathCmd.Parameters.AddWithValue("@ID", OleDbType.Integer).Value = ID_Position
If con.State = ConnectionState.Closed Then con.Open()
imagePath = getImagePathCmd.ExecuteScalar().ToString()
con.Close()
Dim deleteCmd As New OleDbCommand("DELETE FROM Car_Arshef WHERE ID = @ID", con)
deleteCmd.Parameters.AddWithValue("@ID", OleDbType.Integer).Value = ID_Position
If con.State = ConnectionState.Closed Then con.Open()
deleteCmd.ExecuteNonQuery()
con.Close()
Dim fullPath As String = Path.Combine(Application.StartupPath, imagePath)
If File.Exists(fullPath) Then
File.Delete(fullPath)
End If
MsgBox("تم حذف الصورة بنجاح.", MsgBoxStyle.Information, "حذف")
End Sub28-10-24, 11:41 AM
الله يجزاك خير أخوي بوخالد الشكر موصول للأخ justforit ماقصرتوا الأمور تمام التمام
لكن لي طلب أخير عسى الله يحفظك
كنت طلبت من أحد الأخوة في حال ضغطت على الصورة أن يتم فتحها ببرنامج الصور للويندوز والأخ ماقصر وعمل لي الكود ولكنه يفتح في حال أن الصورة في قاعدة البيانات الآن الأمر إختلف حيث أن الصورة أصبحت الآن في مجلد بالويندوز
هذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=50521
لكن لي طلب أخير عسى الله يحفظك
كنت طلبت من أحد الأخوة في حال ضغطت على الصورة أن يتم فتحها ببرنامج الصور للويندوز والأخ ماقصر وعمل لي الكود ولكنه يفتح في حال أن الصورة في قاعدة البيانات الآن الأمر إختلف حيث أن الصورة أصبحت الآن في مجلد بالويندوز
هذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=50521
28-10-24, 12:01 PM
أنا الذي أجبتك في تفس المشاركة
http://vb4arb.com/vb/showthread.php?tid=50521
وقلت لي الكود الأخير يعمل على أكمل وجه
جرب الكود التالي الذي يعمل عند النقر المزدوج على الصورة
http://vb4arb.com/vb/showthread.php?tid=50521
وقلت لي الكود الأخير يعمل على أكمل وجه
كود :
If PictureBox1.Image IsNot Nothing Then
Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
Using tempImage As New Bitmap(PictureBox1.Image)
tempImage.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
End Using
Process.Start(tempFilePath)
End Ifجرب الكود التالي الذي يعمل عند النقر المزدوج على الصورة
كود :
Private Sub Car_Doc_DoubleClick(sender As Object, e As EventArgs) Handles Car_Doc.DoubleClick
If Car_Doc.Image IsNot Nothing Then
Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
Using tempImage As New Bitmap(Car_Doc.Image)
tempImage.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
End Using
Process.Start(tempFilePath)
End If
End Sub28-10-24, 12:11 PM
أخي العزيز أبوخالد
صحيح قلت لك بأن الكود يعمل بلا مشاكل وهذا صحيح ولكنه يعمل عندما كانت الصورة موجوده في قاعدة البيانات الآن الأمر إختلف الصورة الآن موجوده في مجلد على الكمبيوتر فالكود السابق لايصلح
صحيح قلت لك بأن الكود يعمل بلا مشاكل وهذا صحيح ولكنه يعمل عندما كانت الصورة موجوده في قاعدة البيانات الآن الأمر إختلف الصورة الآن موجوده في مجلد على الكمبيوتر فالكود السابق لايصلح
28-10-24, 12:19 PM
أنا عندي شغال 100%
عند النقر على الصورة نقرا مزدوجا Double_Click
فإن الصورة يتم عرضها من خلال برنامج الصور الافتراضي في كمبيوترك
أدخل الكود الأخير بالكامل بدون نقصان ، واعطني النتيجة .
عند النقر على الصورة نقرا مزدوجا Double_Click
فإن الصورة يتم عرضها من خلال برنامج الصور الافتراضي في كمبيوترك
أدخل الكود الأخير بالكامل بدون نقصان ، واعطني النتيجة .
28-10-24, 12:26 PM
الله إنك صادق آسف لم ألاحظ فأنا أخذت من كلام Zuhare حيث قال بأن الكود يختلف في حال كانت الصورة في قاعدة البيانات من كونها في مجلدة بالكمبيوتر
أشكرك أخي العزيز أبوخالد وآسف على سوء الفهم
أشكرك أخي العزيز أبوخالد وآسف على سوء الفهم