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

نسخة كاملة : الرجاء الرد العاجل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ارجو المساعدة 
انا اريد عرض صورة علي بيكتشر بوكس عند الظغط عليها في داتا قريد فيو  وزي ماانتم شايفين في صورة الخطا قالي ان القيمة خارج النطاق وانا متاكدة ان رقمها 7 للعلم اني بديت العد من الصفر ومرة جربتها واشتغلت بس هالمرة مصرة اطلع هالغلط بعد التنفيد  الرجاء الرد العاجل  Sad Sad Sad والكود مرفق كذلك
 
كود :
Dim pos As Integer = BindingContext(dt).Position
       PictureBox1.Load(DGV.Rows(pos).Cells(7).Value)
       PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
جرب التعديل التالي:
PHP كود :
      PictureBox1.Load(DGV.CurrentRow.Cells(7).Value)
 
      PictureBox1.SizeMode PictureBoxSizeMode.StretchImage 


تحياتي  ..
جربي الكود التالي

PHP كود :
               If Not DGV.CurrentRow.IsNewRow And DGV.RowCount 0 Then
                    PictureBox1
.Load DGV.CurrentRow.Cells("اسم الخلية").Value
                End 
If 
وجب التعديل لكن بعد ا تتأكد من ا، العمود هوالثامن أي رقم 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 
(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 

بارك الله فيك ربي يفتحها في وجهك اخي