DataGridView显示行号

Posted 2021-03-11 rf8862

 

Private Sub DataGridView1_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim Rectangle As Rectangle = New Rectangle(e.RowBounds.Location.X, e.RowBounds.Location.Y, DataGridView1.RowHeadersWidth - 4, e.RowBounds.Height)
        TextRenderer.DrawText(e.Graphics,
                              (e.RowIndex + 1).ToString(),
                              DataGridView1.RowHeadersDefaultCellStyle.Font,
                              Rectangle,
                              DataGridView1.RowHeadersDefaultCellStyle.ForeColor,
                              TextFormatFlags.HorizontalCenter + TextFormatFlags.VerticalCenter)
    End Sub