[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