Public Class satirno

Shared Sub Datagrid_satır_no(ByVal dg As DataGridView)
        Dim rowNumber As Integer = 1
        For Each row As DataGridViewRow In dg.Rows
            If row.IsNewRow Then
                Continue For
            End If
            row.HeaderCell.Value = rowNumber.ToString()
            rowNumber = rowNumber + 1
        Next
        dg.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)
        dg.RowHeadersDefaultCellStyle.ForeColor = Color.SlateGray
        dg.RowHeadersDefaultCellStyle.Font = New System.Drawing.Font("Verdana", 7.5, FontStyle.Bold)
    End Sub

Shared Sub Datagrid_satır_rengi(ByVal dg As DataGridView)
        For k As Integer = 0 To dg.Rows.Count - 1 Step 2
            dg.Rows(k).DefaultCellStyle.BackColor = Color.LightCyan
        Next
        For c As Integer = 1 To dg.Rows.Count - 2 Step 2
            dg.Rows(c).DefaultCellStyle.BackColor = Color.AliceBlue
        Next
        dg.RowHeadersDefaultCellStyle.BackColor = Color.AliceBlue
        dg.ColumnHeadersDefaultCellStyle.BackColor = Color.AliceBlue
    End Sub

End Class

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

DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView1.EnableHeadersVisualStyles = False
        DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.SlateGray ' başlık rengini değiştir
        DataGridView1.ColumnHeadersDefaultCellStyle.Font = New System.Drawing.Font("Tahoma", 7.5, FontStyle.Bold) ' başlık font stili



        satirno.Datagrid_satır_no(DataGridView1)
        satirno.Datagrid_satır_rengi(DataGridView1)

End Sub