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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1
نسخة كاملة : إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

أبو خالد الشكري

13-09-23, 02:02 AM
السلام عليكم أخواني الأعزاء

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

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

كود :
Private Sub DataGrid1_Click()

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

وشكرا .

Taha Okla

13-09-23, 11:07 AM
وعليكم السلام ورحمة الله وبركاته

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

أبو خالد الشكري

13-09-23, 06:04 PM
شكرا جزيلا لك أستاذ Taha على ردك الجميل
لكن المشكلة أن الكود الذي برمجته لي يعمل على نظام VB.net
وأنا أريد الكود لنظام VB6

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

Taha Okla

13-09-23, 09:16 PM
للأسف  ستحتاج كتابة الكود في حدثين، أحدهما هو كود تحريك الماوس وهذا من مساوئ الـ 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

أبو خالد الشكري

13-09-23, 09:52 PM
شكرا جزيلاً أستاذي ما قصرت
بارك الله فيك . Heart
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1