代碼很簡單，如下，無需任何改動，直接就可使用：
描畫関連:行番號#Region "描畫関連:行番號"
'RowPostPaintイベントハンドラ
Private Sub dgv_RowPostPaint()Sub dgv_RowPostPaint(ByVal sender As Object, _
ByVal e As DataGridViewRowPostPaintEventArgs) _
Handles myDgv1.RowPostPaint, myDgv2.RowPostPaint
Dim dgv As DataGridView = CType(sender, DataGridView)
If dgv.RowHeadersVisible Then
'行番號を描畫する範囲を決定する
Dim rect As New Rectangle(e.RowBounds.Left, e.RowBounds.Top, _
dgv.RowHeadersWidth, e.RowBounds.Height)
rect.Inflate(-2, -2)
'行番號を描畫する
TextRenderer.DrawText(e.Graphics, _
(e.RowIndex + 1).ToString(), _
e.InheritedRowStyle.Font, _
rect, _
e.InheritedRowStyle.ForeColor, _
TextFormatFlags.Right Or TextFormatFlags.VerticalCenter)
End If
End Sub
#End Regionposted on 2009-06-17 13:03
小言身寸 閱讀(1126)
評論(1) 編輯 收藏 所屬分類:
. NET 開發