datagridviewrow 行宽_DataGridView在RowHead内显示行号

行号显示

Private Sub DataGridView1_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint

Dim dgv As DataGridView

dgv = TryCast(sender, DataGridView)

Dim rt As New Rectangle(e.RowBounds.Location.X, e.RowBounds.Location.Y, dgv.RowHeadersWidth - 2, e.RowBounds.Height)

TextRenderer.DrawText(e.Graphics, Format(e.RowIndex + 1, "0"), dgv.RowHeadersDefaultCellStyle.Font, rt, Color.Black)

End Sub