Tugas Visual Basic 2 Pertemuan 1 || BSI Semester 3 Management Informatika

Assalamualaikum Wr Wb Salam Sejahtera Untuk kita semua

bahhh tugas kemarin aja belum kelar ini dikasi tugas lagi.. ahh dasarr.. ini lohh tugas 2 pertemuan 1 BSI jadi suruh gonta ganti warna sama jenis hurufnya gitu.. -_- buat warna backround sama textnya sih mungkin udah bisa kan.? cuman yang bingung paling merubah font di VB 6 nya.. :p

nah gini nih gan penampakannya. ketika kita pilih warna pada ceckbox maka warna akan berubah sesuai perintah. begitupun back color sama fontnya.. ribet kan

APLIKASI MERUBAH JENIS FONT DAN WARNA FONT

masih ingat coding kemarin.? ya coding yang kemarin kita pake juga kok cuman disini kita tambahkan fungsi label.font

nah sederhana bukan, ya memang tapi buat yang masih bingung silakan pake coding ane di bawah ini & di pelajari yah..

Private Sub Form_Load() End Sub Private Sub Option1_Click() txtnama.ForeColor = vbRed End Sub Private Sub Option2_Click() txtnama.ForeColor = vbYellow End Sub Private Sub Option3_Click() txtnama.ForeColor = vbGreen End Sub Private Sub Option4_Click() txtnama.BackColor = vbRed End Sub Private Sub Option5_Click() txtnama.BackColor = vbYellow End Sub Private Sub Option6_Click() txtnama.BackColor = vbGreen End Sub Private Sub Option7_Click() Option7.Value = True Option8.Value = False Option9.Value = False Set txtnama.Font = Label2.Font End Sub Private Sub Option8_Click() Option8.Value = True Option7.Value = False Option9.Value = False Set txtnama.Font = Label3.Font End Sub Private Sub Option9_Click() Option7.Value = False Option8.Value = False Option9.Value = True Set txtnama.Font = Label4.Font End Sub  

ubah nama pada coding di atas sesuai dengan nama dan atribut yang kalian pake jangan asal copas terus RUN.! kaga usaha amat.!

ok temen - temen sekian postingan ane kali ini semoga bermanfaat

wassalamualaikum Wr Wb

God Bless You