Private
Sub
Grid_RowPostPaint(
ByVal
sender
As
System.Object,
ByVal
e
As
System.Windows.Forms.DataGridViewRowPostPaintEventArgs)
Handles
Grid.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 , " 00 " ), dgv.RowHeadersDefaultCellStyle.Font, rt, Color.Black)
End Sub
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 , " 00 " ), dgv.RowHeadersDefaultCellStyle.Font, rt, Color.Black)
End Sub