VB6: CheckBox Control

Property yang Umum Digunakan

Property	Keterangan
Alignment	Pilihan posisi checkbox dari label di kiri (0-Left Justify) atau di kanan (1-Right Justify)
Appearance	Pilihan tampilan checkbox 0-Flat (datar) atau 1-3D (efek 3 dimensi).
BackColor	Warna latar checkbox.
Caption	Teks label checkbox.
Enabled	Jika true maka checkbox dapat berinteraksi dengan user.
Font	Tampilan font name, style, dan size.
ForeColor	Warna teks label.
Height	Tinggi checkbox dalam twips.
Index	Nomor urut jika checkbox dibuat control array.
Left	Jarak dari kiri ke checkbox dalam satuan twips.
Style	0-Standard seperti checkbox biasa atau 1-Graphical yang mirip seperti command button.
TabIndex	Urutan fokus dengan tombol Tab pada keyboard.
ToolTipText	Tulisan akan akan muncul ketika running dan mouse pointer ada di atas checkbox.
Top	Jarak dari atas ke checkbox dalam satuan twips.
Value	Nilai checkbox ada 3 pilihan: 0-Unchecked, 1-Checked, 2-Grayed
Visible	Jika True maka user dapat melihat checkbox dan control didalamnya, sebaliknya jika false maka tersembunyi.
Width	Lebar frame dalam satuan twips.

Event yang Umum Digunakan

Event	Keterangan
Click	Saat checkbox diklik.
DblClick	Saat checkbox diklik dua kali
GotFocus	Saat checkbox mendapatkan fokus aktif.
KeyDown	Saat checkbox dalam fokus aktif tombol keyboard ditekan.
KeyPress	Saat checkbox dalam fokus aktif tombol keyboard ASCII ditekan.
LostFocus	Saat checkbox kehilangan fokus aktif
MouseDown	Saat mouse ditekan diatas checkbox.
MouseMove	Saat mouse pointer bergerak diatas checkbox.
MouseUp	Saat mouse ditekan diatas checkbox dilepas.

Method yang Umum Digunakan

Method	Keterangan
Move	Memindahkan posisi checkbox.
SetFocus	Memindahkan fokus aktif ke checkbox.

Contoh Penggunaan CheckBox
1. CheckBox Alignment

2. CheckBox Style

3. CheckBox State

4. CheckBox untuk Format Font Label
UI:

Code:
Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label1.FontItalic = Check2.Value
End Sub

Private Sub Check3_Click()
Label1.FontUnderline = Check3.Value
End Sub

Runtime:

Click here if you like this article.