visual basic (VB) 6.0 test coding pengaturan warna

lagi iseng-iseng di rumah dari pada bengong mendingan nulis di blog
hehe.......

oke deh pertama-tama siapkan compiler Visual basic teman-teman lalu
ikuti langkah-langkah di bawah ini.. heuuuuuu heuuuuuu ;)


tool box > tambahkan listbox ke form
tool box > tambahkan label ke form

pada lable11 ganti name pada propertis dengan name jud_1

untuk kode nya

'program pengaturan warna dengan coding di visual basic

Private Sub Form_Load()

List1.AddItem "merah" 'memabahkan item MERAH pada list
List1.AddItem "biru" 'menambahkan item BIRU pada list

End Sub

Private Sub list1_Click()
jud_1.Caption = ""
jud_1.BackColor = &H8000000F ' atau bisa di ganti dengan vbwhite
MsgBox (List1)

If List1 = "merah" Then

jud_1.Caption = "merah"
jud_1.BackColor = vbRed
jud_1.ForeColor = vbBlue
jud_1.FontSize = 18

Else
jud_1.Caption = "biru"
jud_1.BackColor = vbBlue
jud_1.ForeColor = vbRed
jud_1.FontSize = 18


End If




End Sub

NOTE :
VbRed =kode warna MERAH di Visual basic (VB 6.0)
vbBlue =Kode warna biru di visual basic (VB 6.0)
vbBlack =KODE warna hitam di visual basic (VB 6.0)
vbYellow =KODE warna KUNING di VISUAL BASIC (VB 6.0) dan seterusnya.....


hasil eksekusi nya ketika mengklik di si item / indek listnya







atau download di sini buat coding visual basic nya

read more - visual basic (VB) 6.0 test coding pengaturan warna