VB.NET : Set Kolom DataGridView menggunakan Kode

Untuk membuat colom DataGridView VB.NET merupakan hal yang mudah. Namun bagaimanakah caranya membuat kolom pada DataGridView melalui kode? Berikut tampilan grid yang dibuat melalui kode.

From VB.NET

dan di bawah ini adalah syntax untuk menghasilkan grid seperti gambar diatas :

Sub i_SetHeader()

        Dim colIkutKirim As New DataGridViewCheckBoxColumn, _

            colTepatWaktu As New DataGridViewCheckBoxColumn, _

            colBersih As New DataGridViewCheckBoxColumn, _

            colFitur As New DataGridViewCheckBoxColumn, _

            colPenjelasanGaransi As New DataGridViewCheckBoxColumn, _

            colUnableFollwoup As New DataGridViewCheckBoxColumn

        GridLaporan.ClearSelection()

        colIkutKirim.HeaderText = "IKUT KIRIM"

        colTepatWaktu.HeaderText = "TEPAT WAKTU"

        colBersih.HeaderText = "BERSIH"

        colFitur.HeaderText = "P'JELASAN FITUR"

        colPenjelasanGaransi.HeaderText = "P'JELASAN GARANSI"

        colUnableFollwoup.HeaderText = "TDK BISA FOLLOW-UP"

        With GridLaporan

            .Columns.Add("colTanggal", "TGL. KIRIM")

            .Columns.Add("colTanggal", "TGL FOLLOW-UP")

            .Columns.Add("colNoRangka", "NOMOR RANGKA")

            .Columns.Add("colSales", "SALES")

            .Columns.Add("colPelanggan", "PELANGGAN")

            .Columns.Add("colHP", "HAND PHONE")

            .Columns.Add(colIkutKirim)

            .Columns.Add(colTepatWaktu)

            .Columns.Add(colBersih)

            .Columns.Add(colFitur)

            .Columns.Add(colPenjelasanGaransi)

            .Columns.Add("colKeluhan", "KELUHAN")

            .Columns.Add(colUnableFollwoup)

            .Columns.Add("colKeterangan", "KETERANGAN")

            .CellBorderStyle = DataGridViewCellBorderStyle.SunkenHorizontal

            .Rows.Clear()

        End With

    End Sub

anda bisa memasukan Sub i_SetHeader ini ke dalam event load atau sesuai dengan kebutuhan.