miércoles, 26 de septiembre de 2012

Agregar Numero de Fila en RowHeader del DatagridView

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

No hay comentarios:

Publicar un comentario