+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إطهار الصورة بمقاس معين في DataGridView (/showthread.php?tid=47618)
إطهار الصورة بمقاس معين في DataGridView - أبو خالد الشكري - 14-12-23
السلام عليكم يا شباب الطيبين
لو سمحتم أطلب مساعدتكم البرمجية
كيف يمكن برمجيا إظهار الصور في إحدى خلايا DataGridView بمقاس ثابت ؟
مثلا : تظهر الصور في الخلية (3) بالقياس التالي :
العرض : 30
الطول : 60
أنتظر ردكم البرمجي الرائع .
وأترككم في حفظ الله ورعايته ?
RE: إطهار الصورة بمقاس معين في DataGridView - Kamil - 14-12-23
(14-12-23, 12:46 PM)أبو خالد الشكري كتب : السلام عليكم يا شباب الطيبين
لو سمحتم أطلب مساعدتكم البرمجية
كيف يمكن برمجيا إظهار الصور في إحدى خلايا DataGridView بمقاس ثابت ؟
مثلا : تظهر الصور في الخلية (3) بالقياس التالي :
العرض : 30
الطول : 60
أنتظر ردكم البرمجي الرائع .
وأترككم في حفظ الله ورعايته ?
وعليكم السلام
PHP كود :
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
' التحقق مما إذا كان الفهرس الحالي يمثل العمود الذي تريد تحديد حجم الصورة فيه (في هذه الحالة العمود 2)
If e.ColumnIndex = 3 AndAlso e.RowIndex >= 0 Then
' استرجاع الصورة من الخلية المحددة
Dim img As Image = DirectCast(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value, Image)
' إذا كانت الصورة غير فارغة
If img IsNot Nothing Then
' تعيين حجم الصورة المطلوب
Dim resizedImg As New Bitmap(img, New Size(30, 60))
' تحديث قيمة الخلية بالصورة المعدلة
e.Value = resizedImg
End If
End If
End Sub
PHP كود :
' قم بإضافة هذا الكود في مكان مناسب، مثل الحدث Load
AddHandler DataGridView1.CellFormatting, AddressOf DataGridView1_CellFormatting
RE: إطهار الصورة بمقاس معين في DataGridView - أبو خالد الشكري - 14-12-23
جزاك الله خيرا أخي العزيز ما قصرت
راح أجرب الكود وأخبرك ❤️?
للأسف الأخ Kamil
بعد التجربة ، الكود لم يعمل !