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

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

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

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

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

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

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

كود :

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

ويمكن ب 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

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

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

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

كود :

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
والأستاذ القدير سعود الذي نور الصفحة .

كلكم رائعون وحلكم كان صحيحا ورائعا Big Grin

جزاكم الله خيرا

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

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

Taha Okla

foo

سعود

foo

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