منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 (/showthread.php?tid=46904)

إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - أبو خالد الشكري - 13-09-23

السلام عليكم أخواني الأعزاء

كيف يمكن الحصول على قيمة الخلية رقم 3 عند النقر على أي صف في DataGrid1 

الكود التالي لا يعمل ولكني أتيت به لتوضيح المطلوب :

كود :
Private Sub DataGrid1_Click()

text1.Text = DataGrid1.CurrentRow.Cells(3).Value
 
End Sub

وشكرا .

RE: إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - Taha Okla - 13-09-23

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

كود :
TextBox1.Text = DataGridView1(2, DataGridView1.CurrentCell.RowIndex).Value
أو :
كود :
TextBox1.Text = DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(2).Value


RE: إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - أبو خالد الشكري - 13-09-23

شكرا جزيلا لك أستاذ Taha على ردك الجميل
لكن المشكلة أن الكود الذي برمجته لي يعمل على نظام VB.net
وأنا أريد الكود لنظام VB6

أرجو من حضرتك تعديله حتى يعمل على VB6

RE: إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - Taha Okla - 13-09-23

للأسف  ستحتاج كتابة الكود في حدثين، أحدهما هو كود تحريك الماوس وهذا من مساوئ الـ VB6.0 في هذه الأداة

كود :
Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
   Text1.Text = DataGrid1.Columns(2).Value
End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Text1.Text = DataGrid1.Columns(2).Text
End Sub


RE: إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 - أبو خالد الشكري - 13-09-23

شكرا جزيلاً أستاذي ما قصرت
بارك الله فيك . Heart