Agregar Numero de Fila en RowHeader del DatagridView
Super bien y funciona. Origen
Private Sub MiGrid_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles MiGrid.RowPostPaint
Dim grid As DataGridView = DirectCast(sender, DataGridView)
Dim strRowNumber As String = (e.RowIndex + 1).ToString
While strRowNumber.Length < grid.RowCount.ToString.Length
strRowNumber = "0" & strRowNumber
End While
Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
If grid.RowHeadersWidth < CInt(size.Width + 20) Then
grid.RowHeadersWidth = CInt(size.Width + 20)
End If
Dim bt As Brush = SystemBrushes.ControlText
e.Graphics.DrawString(strRowNumber, Me.Font, bt, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
End Sub
Dim grid As DataGridView = DirectCast(sender, DataGridView)
Dim strRowNumber As String = (e.RowIndex + 1).ToString
While strRowNumber.Length < grid.RowCount.ToString.Length
strRowNumber = "0" & strRowNumber
End While
Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
If grid.RowHeadersWidth < CInt(size.Width + 20) Then
grid.RowHeadersWidth = CInt(size.Width + 20)
End If
Dim bt As Brush = SystemBrushes.ControlText
e.Graphics.DrawString(strRowNumber, Me.Font, bt, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
End Sub
No hay comentarios:
Publicar un comentario