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

هلا شباب ..
عندي استفسار بسيط من خلال هذي الصورة

المطلوب :
عند النقر على أي خلية في أي سطر ، يكتب لي اسم العمود في TextBox الذي في الآخر

أمثلة للتوضيح :
* لو تم النقر على الخلية المكتوب عليها (السعودية) ، يقوم البرنامج بكتابة اسم العمود الموجود فيها وهو (ملاحظات)
   وكذلك أيضا لو تم النقر على الخلية المكتوب عليها (عمان) ، يقوم البرنامج بكتابة اسم العمود الموجود فيها وهو (ملاحظات)


* لو تم النقر على الخلية المكتوب عليها (http://google.com.sa) ، يقوم البرنامج بكتابة اسم العمود الموجود فيها وهو (رابط الموقع)
   وكذلك أيضا لو تم النقر على الخلية المكتوب عليها (teerth) ، يقوم البرنامج بكتابة اسم العمود الموجود فيها وهو (رابط الموقع)

كيف يمكن عمل ذلك برمجيا ؟

ولكم الشكر الجزيل

[Taha Okla]

كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
   If DataGridView1.SelectedCells.Count < 1 Then Exit Sub

   Text1.Text = DataGridView1.Columns(DataGridView1.CurrentCell.ColumnIndex).HeaderCell.Value
End Sub

[foo]

ويمكن ب headertext

كود :

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    If e.ColumnIndex < 0 Then Exit Sub
    TextBox1.Text = DataGridView1.Columns(e.ColumnIndex).HeaderText
End Sub

[سعود]

الافكار تجلب بعضها



ماهو كود نقل مربع النص ليكون بمحاذاة العمود المحدد؟

[foo]

لنقل مربع النص ليكون بمحاذاة العمود المحدد

كود :

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   If e.ColumnIndex < 0 Then Exit Sub
   TextBox1.Text = DataGridView1.Columns(e.ColumnIndex).HeaderText
   TextBox1.Left = DataGridView1.Left + DataGridView1.GetColumnDisplayRectangle(e.ColumnIndex, False).Left
   TextBox1.Width = DataGridView1.GetColumnDisplayRectangle(e.ColumnIndex, False).Width
End Sub

---

لتعديل محاذاة وعرض مربع النص عند تغيير عرض العمود

كود :

Private Sub DataGridView1_ColumnWidthChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles DataGridView1.ColumnWidthChanged
    TextBox1.Left = DataGridView1.Left + DataGridView1.GetColumnDisplayRectangle(e.Column.Index, False).Left
    TextBox1.Width = DataGridView1.GetColumnDisplayRectangle(e.Column.Index, False).Width
End Sub

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

ما شاء الله أخجلتموني بهذه الردود الرائعة يا أساتذتي الكرام
شكرا لكم جميعا ما قصرتم
الأستاذ Taha Okla
والأستاذ foo
والأستاذ القدير سعود الذي نور الصفحة .

كلكم رائعون وحلكم كان صحيحا ورائعا 
جزاكم الله خيرا