Menggunakan CheckBox pada VB 6

   Melanjutkan tentang tutorial dasar Visual Basic 6.0 untuk Pemula, kali ini kita akan belajar tentang CheckBox. CheckBox bisa digunakan untuk menampilkan suatu pilihan, seperti contohnya pada aplikasi yang dibuat untuk aktif ketika komputer dinyalakan, biasanya digunakan CheckBox agar user bisa memilih untuk mengaktifkan atau tidak menu aktifkan komputer saat menyala.
   Untuk menampilkan CheckBox ke dalam Form caranya sama dengan menampilkan komponen lainnya dari ToolBox yaitu dengan cara drag drop ke Form atau bisa  juga double klik pada CheckBox.

Untuk Properti CheckBox yang sering digunakan yaitu:

1. Name:
Berisi nama CheckBox, nama ini harus unik dan tidak boleh sama dengan nama CheckBox yang lainnya, Defaultnya adalah Check1
2. BackColor:
Berfungsi memberi warna pada backgroud CheckBox.
3. Caption:
Fungsinya untuk menampilkan text atau caption pada CheckBox.
4. Font:
Digunakan untuk menentukan jenis dan ukuran Font untuk CheckBox.
5. ForeColor:
Digunakan untuk mewarnai Text pada CheckBox.
6. Height:
Berfungsi mengatur Tinggi CheckBox.
7. Left:
Digunakan untuk mengatur jarak CheckBox dari kiri Form.
8. Top:
Digunakan untuk mengatur jarak CheckBox dari atas pada Form.
9. Width:
Berfungsi Mengatur lebar CheckBox.

Untuk Properties CheckBox yang lain bisa di coba sendiri. Untuk lebih mendalami tentang penggunaan CheckBox kita akan belajar membuat aplikasi sederhana dengan memanfaat ChekBox.
Ikuti langkah-langkahnya berikut ini:

1. Buka program Visual Basic 6.0 kemudian pilih Standard EXE
2. Tambahkan 3 buah CheckBox dan 1 buah Label.
- Ubah Caption pada CheckBox1 dari Check1 menjadi Miring.
- Ubah Caption pada CheckBox2 dari Check2 menjadi Tebal.
- Ubah Caption pada CheckBox3 dari Check3 menjadi Merah.
- Untuk Label1 ubah widthnya menjadi 4.200.
3. Kemudian aturlah posisi CheckBox dan Label seperti gambar dibawah ini:





4. Selanjutnya buka jendela Kode (klik kanan Form1 kemudian klik View Code).
5. Kemudian pada jendela kode masukkan kode/listing berikut ini:
view sourceprint?

01	Private Sub Form_Load()

02	'Kode ketika Form pertama dibuka

03	Label1.FontSize = 14

04	Label1.Caption = "Belajar Visual Basic 6.0"

05

End Sub

06

07	Private Sub Check1_Click()

08	'Kode untuk pilihan CheckBox1

09	If Check1.Value = 1 Then

10	Label1.FontItalic = True

11

Else

12	Label1.FontItalic = False

13

End If

14

End Sub

15

16	Private Sub Check2_Click()

17	'Kode untuk pilihan CheckBox2

18	If Check2.Value = 1 Then

19	Label1.FontBold = True

20

Else

21	Label1.FontBold = False

22

End If

23

End Sub

24

25	Private Sub Check3_Click()

26	'Kode untuk pilihan CheckBox3

27	If Check3.Value = 1 Then

28	Label1.ForeColor = vbRed

29

Else

30	Label1.ForeColor = vbBlack

31

End If

32

End Sub