+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الرجاء الرد العاجل (/showthread.php?tid=19923)
الرجاء الرد العاجل - zinab ali - 08-04-17
السلام عليكم ارجو المساعدة
انا اريد عرض صورة علي بيكتشر بوكس عند الظغط عليها في داتا قريد فيو وزي ماانتم شايفين في صورة الخطا قالي ان القيمة خارج النطاق وانا متاكدة ان رقمها 7 للعلم اني بديت العد من الصفر ومرة جربتها واشتغلت بس هالمرة مصرة اطلع هالغلط بعد التنفيد الرجاء الرد العاجل
والكود مرفق كذلككود :
Dim pos As Integer = BindingContext(dt).Position
PictureBox1.Load(DGV.Rows(pos).Cells(7).Value)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImageRE: الرجاء الرد العاجل - ابراهيم النعيمي - 08-04-17
جرب التعديل التالي:
PHP كود :
PictureBox1.Load(DGV.CurrentRow.Cells(7).Value)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
تحياتي ..
RE: الرجاء الرد العاجل - ابو ليلى - 09-04-17
جربي الكود التالي
PHP كود :
If Not DGV.CurrentRow.IsNewRow And DGV.RowCount > 0 Then
PictureBox1.Load = DGV.CurrentRow.Cells("اسم الخلية").Value
End If
RE: الرجاء الرد العاجل - abdualla - 09-04-17
وجب التعديل لكن بعد ا تتأكد من ا، العمود هوالثامن أي رقم 7
PHP كود :
Dim pos As Integer = BindingContext(dt).Position
Dim b As New IO.MemoryStream(TryCast(DGV.Rows(pos).Cells(7).Value, Array))
PictureBox1.Image = Image.FromStream(b)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
RE: الرجاء الرد العاجل - zinab ali - 09-04-17
(08-04-17, 11:59 PM)ابراهيم النعيمي كتب : جرب التعديل التالي:
PHP كود :
PictureBox1.Load(DGV.CurrentRow.Cells(7).Value)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
تحياتي ..
بارك الله فيك اخي والله اشتغل على طول حليتلي المشكلة
الله يفتحها في وجهك وينور طريقك يارب ويرزقك من حيث لاتحتسب
(09-04-17, 12:03 AM)ابو ليلى كتب : جربي الكود التالي
PHP كود :
If Not DGV.CurrentRow.IsNewRow And DGV.RowCount > 0 Then
PictureBox1.Load = DGV.CurrentRow.Cells("اسم الخلية").Value
End If
بارك الله فيك في ميزان حسناتك يارب ان شاء الله ربي يوفقك
(09-04-17, 12:17 AM)abdualla كتب : وجب التعديل لكن بعد ا تتأكد من ا، العمود هوالثامن أي رقم 7
PHP كود :
Dim pos As Integer = BindingContext(dt).Position
Dim b As New IO.MemoryStream(TryCast(DGV.Rows(pos).Cells(7).Value, Array))
PictureBox1.Image = Image.FromStream(b)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
بارك الله فيك ربي يفتحها في وجهك اخي