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

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

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

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

كود :

Private Sub DataGrid1_Click()

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

وشكرا .

[Taha Okla]

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

كود :

TextBox1.Text = DataGridView1(2, DataGridView1.CurrentCell.RowIndex).Value

أو :

كود :

TextBox1.Text = DataGridView1.Rows(DataGridView1.CurrentCell.RowIndex).Cells(2).Value

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

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

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

[Taha Okla]

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

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

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