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
DataGridView显示行号
最新推荐文章于 2022-04-27 09:30:03 发布