Mencentang Semua CheckBox di Form dengan Cepat – Kode VB Net

Feryanto Sunarli, A.Md Kontrol, Source Code, Visual Basic .Net,

Jika Anda ingin melakukan centang semua Kontrol CheckBox yang ada di Form secara cepat, berikut kode yang diperlukan yang bisa ditulis di sebuah Module baru :

Sub CheckBoxAll(ByVal Ctl As Control)

Dim c As Control
For Each c In Ctl.Controls
If TypeOf c Is CheckBox Then
CType(c, CheckBox).Checked = True
End If
CheckBoxAll(c)
Next

End Sub

Lalu untuk menggunakannya di dalam Form, gunakan kode berikut :


CheckBoxAll(Me)

Tinggalkan komentar