Memanipulasi Kontrol DataGridView di Visual Basic .Net (VB.NET) Secara Power Full

DataGridView tidak asing lagi bagi para penggemar visual basic (VB) kontrol ini akan selalu digunakan saat membuat tabel dan menampilkan data didalamnya baik itu  Database, Array atau inputan user.

Selain bisa menampilkan data DataGridView bisa kita manipulasi, mulai dari mengatur kolom, mengubah tampilan, validasi input, sampai event handling yang bikin aplikasi makin interaktif.

Manipulasi DataGrid View

Apa Itu DataGridView di Visual Basic .Net?

DataGridView adalah kontrol Windows Forms yang digunakan untuk menampilkan data dalam bentuk tabel (baris dan kolom). Biasanya dipakai untuk:

• Menampilkan data dari database (MySQL, SQL Server, dll)
• Menampilkan data dari List, Array, atau DataTable
• Input dan edit data langsung dari UI

Untuk itu dalam artikel blog ini kita akan membahas apa saja yang bisa di manipulasi di DataGridView

1. Manambah kolom Secara Manual

2. Menambah baris (isi data)

3. Perataan teks di Header

4. Format teks Header

5. Warna teks Header

6. Warna backgorund Header

7. Ubah lebar kolom

8. Mengambil data yang dipilih

9. Mengganti atau Edit berdasarkan index

10 Mengambil data dari Cells

11. Menggambi data saat cells atau baris di klik

12. Hapus data terpilih

13. Hapus semua data

14. Warna selang-seling di DataGridView

Itulah 14 kode yang bisa di manipulasi yang saya rangkum dan masih banyak lagi caranya silang Anda explorasi sendiri.

Dalam artikel kali ini saya tidak menjelaskan ke 14 kode manipulasi diatas secara rinci, saya hanya merangkum menjadi 1 Form yang bisa dijalankan.

Didalam kode yang saya buat didalam Form saya sudah kasih keterangan Fungsi dan kegunaan :

Sekarang buka Form tanamkan didalamnya DataGridView, label dan Button

Manipulasi DataGridView

Buka jendela kode, lalu bersihkan semua kode yang ada dan copy-paste kode dibawah ini

Public Class Form1

    Dim Data As New DataTable 'membuat  data kolom

    Dim isFormLoaded As Boolean = False 'agar saat form dijakankan messagebox tidak aktif ini berkaitan perintah edit

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

        'membuat data kolom

        Data.Columns.Add("ID")

        Data.Columns.Add("Nama")

        Data.Columns.Add("Umur")

        Data.Columns.Add("Alamat")

        'isi data

        Data.Rows.Add("1", "Andi", 25, "Kota Jakarta")

        Data.Rows.Add("2", "Budi", 30, "Kota Tangerang")

        Data.Rows.Add("3", "Rahul", 45, "Kota Bombay")

        DataGridView1.DataSource = Data

        'DataGridView1.ColumnCount = 4 'jumlah kolom

        'DataGridView1.Columns(0).Name = "ID" 'kolom 1

        'DataGridView1.Columns(1).Name = "Nama" 'kolom 2

        'DataGridView1.Columns(2).Name = "Umur" 'kolom 3

        'DataGridView1.Columns(3).Name = "Alamat" 'kolom 4

        'Jumlah baris

        'DataGridView1.Rows.Add("1", "Andi", 25, "Jakarta Barat")

        'DataGridView1.Rows.Add("2", "Budi", 30, "Kota Tangerang")

        'DataGridView1.Rows.Add("3", "Rahul", 45, "Kota Tangerang")

        'rata teks

        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        'format teks tebal

        DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font(DataGridView1.Font, FontStyle.Bold)

        'warna text header

        DataGridView1.EnableHeadersVisualStyles = False

        DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.Red

        'warna background header

        DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.DarkBlue

        'mengubah lebar kolom

        DataGridView1.DataSource = Data

        DataGridView1.Columns(1).HeaderText = "Nama Lengkap"

        DataGridView1.Columns(1).Width = 100

        'mengganti atau mengedit baris index 0 cell nama

        With DataGridView1.Rows(0)

            .Cells("Nama").Value = "Rina"

            .Cells("Umur").Value = 28

            .Cells("Alamat").Value = "Kota Semarang"

        End With

 'mengambil data yang di pilih

        Dim nilai As String

        nilai = DataGridView1.Rows(0).Cells(1).Value.ToString()

        Label2.Text = nilai

        'mengambil nama dari baris saat ceel di klik

        If DataGridView1.CurrentRow IsNot Nothing Then

            Label4.Text =

            DataGridView1.CurrentRow.Cells("Nama").Value.ToString()

        End If

        With DataGridView1

            'warna baris jadi merah-putih

            .RowsDefaultCellStyle.BackColor = Color.White

            .AlternatingRowsDefaultCellStyle.BackColor = Color.Red

            'warna saat baris dipilih

            .DefaultCellStyle.SelectionBackColor = Color.DodgerBlue

            .DefaultCellStyle.SelectionForeColor = Color.White

        End With

        isFormLoaded = True 'setelah di load dilayar baru aktif perintah messagebox saat di edit

    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        'mengambil nama dari baris saat ceel di klik

        If DataGridView1.CurrentRow IsNot Nothing Then

            Label4.Text =

            DataGridView1.CurrentRow.Cells("Nama").Value.ToString()

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'hapus data yang dipilih

        If DataGridView1.CurrentRow IsNot Nothing Then

            Data.Rows(DataGridView1.CurrentRow.Index).Delete()

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        'tombol hapus semua data

        Data.Rows.Clear()

    End Sub

    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged

        'pesan saat data di edit atau di ubah

        If Not isFormLoaded Then Exit Sub

        MessageBox.Show("Data berubah")

    End Sub

    Private Sub DataGridView1_CurrentCellDirtyStateChanged(

    sender As Object, e As EventArgs

) Handles DataGridView1.CurrentCellDirtyStateChanged

        'kode saat data di edit atau di ubah

        If DataGridView1.IsCurrentCellDirty Then

            DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)

        End If

    End Sub

End Class

Silahkan jalankan Program. Anda akan melihat beberapa manipulasi pada DataGridView saat form di jalankan

Demikianlah artikel singkat mengenai Memanipulasi Kontrol DataGridView di Visual Basic .Net (VB.NET) Secara Power Full, semoga artikel bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil