列に連番を表示する

以下の例では[先頭項目]列に1から始まる連番を表示する。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '▼列の定義
    DataGridView1.ColumnCount = 6
    DataGridView1.Columns(0).Name = "先頭項目"
    DataGridView1.Columns(1).Name = "名前"
    DataGridView1.Columns(2).Name = "英語"
    DataGridView1.Columns(3).Name = "国語"
    DataGridView1.Columns(4).Name = "数学"
    DataGridView1.Columns(5).Name = "合計"

    '▼値の設定
    Dim row0 As String() = {"", "有本祐介", "90", "85", "65", ""}
    Dim row1 As String() = {"", "五十嵐加奈", "55", "85", "70", ""}
    Dim row2 As String() = {"", "上田啓", "82", "90", "85", ""}

    DataGridView1.Rows.Add(row0)
    DataGridView1.Rows.Add(row1)
    DataGridView1.Rows.Add(row2)

    '列の幅を自動調節する
    DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader)

End Sub

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

    If DataGridView1.Columns(e.ColumnIndex).Name = "先頭項目" Then
        e.Value = CStr(e.RowIndex + 1)
        e.FormattingApplied = True
    End If

End Sub

　VB6にはDataGridViewがありません。VB6用のいくつかのグリッドコントロールが用意されていますがそれらの制御手法はここで紹介しているものとは大きく異なります。

VB.NET2002, VB.NET2003にはDataGridViewがありません。