Pengenalan Warna Menggunakan Visual Basic 6.0

Kesempatan kali ini kita akan belajar mengenai pengenalan warna menggunakan VV 6.0 , sebenernya sih ga susah-susah banget ,, ok langsung aja ..

1. Pertama kita buat dulu tampilan form seperti ini :

 2. Kemudian copy listing dibawah ini :

Private Sub cmbkeluar_Click()

If MsgBox("Yakin Mau Keluar?", vbYesNo, "Konfirmasi") = vbYes Then

Unload Me

End If

End Sub

Private Sub cmdbersih_Click()

thasil = ""

thasil.SetFocus

End Sub

Private Sub Form_Load()

Form1.BackColor = vbBlack

thasil.BackColor = &HFFFF80

End Sub

Private Sub oblue_Click()

thasil.ForeColor = vbBlue

End Sub

Private Sub obold_Click()

thasil.FontBold = True

thasil.FontUnderline = False

thasil.FontItalic = False

End Sub

Private Sub oitalic_Click()

thasil.FontBold = False

thasil.FontUnderline = False

thasil.FontItalic = True

End Sub

Private Sub ored_Click()

thasil.ForeColor = vbRed

End Sub

Private Sub ounderline_Click()

thasil.FontBold = False

thasil.FontUnderline = True

thasil.FontItalic = False

End Sub

Private Sub oyellow_Click()

thasil.ForeColor = vbYellow

End Sub

3. Untuk nama-nama toolboxnya bisa disesuaikan dengan listing ya

4. Oh ya untuk warna bisa kita ganti sesuai keinginan caranya tinggal ganti wana option button sesuai kemauan kita.

Contoh :

Private Sub oblue_Click()

thasil.ForeColor = vbBlue

End Sub

jadi :

Private Sub oblue_Click()

thasil.ForeColor = vbGreen

End Sub

5. Jangan lupa ubah juga caption dan name untuk option buttonnya biar ga bingung hehe

*** Oke deh selamat mencoba ***