Cara Membuat Zebra Bada Datagridview VB.NET

Warna yang belang-belang memang lebih asyik, Mungkin kata2 itu juga bisa digunakan untuk memodifikasi DATAGRIDVIEW yang biasanya berisi data-data yang ada dalam database, nah biar data-data itu lebih asyik dipandang mata, maka alangkah lebih baiknya kalau di kasih warna belang-belang atau ada juga yang menyebut ZEBRA atau apa aja boleh lah ....
Berikut tampilan nya













Berikut kode nya

    Public Sub rowRebra(ByVal pDataGridView As DataGridView)
        For Each iRow As DataGridViewRow In pDataGridView.Rows
            For Each iCell As DataGridViewCell In iRow.Cells
                If iRow.Index Mod 2 = 0 Then
                    iCell.Style.BackColor = Color.AliceBlue
                Else
                    iCell.Style.BackColor = Color.LightBlue
                End If
            Next
        Next
    End Sub

Kode tersebut bisa di letakkan di kode form atau di modul, kalau saya sendiri lebih memilih di modul jadi bisa digunakan di banyak form yang menggunkan datagridview dengan konsekwensi warna akan sama semua di setiap form, namun jika ingin membuat warna belang nya berubah bisa membuat kode yang sama dengan mengganti warna belang - belangnya saja.
Untuk pemanggilan kode tersebut bisa diletakkan di btnSave, btnEdit, atau yang lainya, namun saya sarankan untuk memanggilnya di kode untuk merefresh datagrid tersebut

nerikut kode pemanggilanya

Call rowRebra(datagridview1)

Semoga membantu


Refensi  : DjieSoft

Comments

Popular Posts