Kepribadian, warisan & pendidikan adalah bagian dari keberhasilan,
tapi ada 1 hal yang lebih penting dari semua itu, yaitu Kemampuan berpikir.
Kuasai seluruh hidupmu.
Berpikirlah lebih cepat, lebih tepat dan lebih mampu merasakan sesuatu dibanding orang-orang di sekitar.
Dalam analisa terakhir, keahlian mental lah yang memiliki peran penting dalam sebagian besar pekerjaan.

Kamis, 03 Mei 2012

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 ***

Tidak ada komentar:

Posting Komentar