Bagaimana menggunakan DataGridViewCheckBox control dalam DataGridView (vb.net)

Seringkali kita ingin agar datagridview yang kita punya memiliki kolom berjenis CheckBox-unbound (DataGridViewCheckBox) tetapi kolom yang lain tidak, sehingga memudahkan user untuk memilih data yang akan diproses sesuai dengan tanda yang dicentang tadi. Berikut ini adalah cara yang sederhana dalam hal penggunaannya. Simaklah baik-baik :

Anda harus membuat satu procedure yang bertugas untuk menambahkan satu kolom yang berjenis DataGridViewCheckBox pada DataGridView yang anda miliki, dengan cara sbb :

Private Sub AddColumn(ByVal sName As String, ByVal sHeader As String, ByVal posisi As Integer)
Dim column As New DataGridViewCheckBoxColumn()
With column
.HeaderText = sHeader
.Name = sName
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate = New DataGridViewCheckBoxCell()
.CellTemplate.Style.BackColor = Color.Beige
End With
dgv_resource.Columns.Insert(posisi , column)
End Sub

Panggillah procedure ini dalam event DataBindingComplete sbb :

Private Sub dgv_resource_DataBindingComplete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv_resource.DataBindingComplete
If dgv_resource.Columns(0).Name <> “cb_select” Then
AddColumn(”cb_select”, “Select”, 0)
End If
End Sub

Artinya sewaktu event DataBindingComplete dijalankan maka procedure ini akan menambahkan satu kolom checkbox, yang akan digunakan sebagai penanda.

Tags: CheckBox, DataGridView, DataGridViewCheckBox, trik komputer, trik vb.net, vb.net