كتابة اسم العمود في الداتا جريد فيو

كتابة اسم العمود في الداتا جريد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كتابة اسم العمود في الداتا جريد فيو (/showthread.php?tid=45922)

كتابة اسم العمود في الداتا جريد فيو - أبو خالد الشكري - 18-04-23

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

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

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

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

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

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

RE: كتابة اسم العمود في الداتا جريد فيو - Taha Okla - 18-04-23

كود :

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

RE: كتابة اسم العمود في الداتا جريد فيو - foo - 18-04-23

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

RE: كتابة اسم العمود في الداتا جريد فيو - سعود - 18-04-23

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

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

RE: كتابة اسم العمود في الداتا جريد فيو - foo - 18-04-23

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

كود :

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

RE: كتابة اسم العمود في الداتا جريد فيو - أبو خالد الشكري - 18-04-23

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

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

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