MEMBUAT TULISAN BERWARNA DAN GARIS BAWAH , HURUF TEBAL , HURUF MIRING MENGGUNAKAN VISUAL BASIC

\

Keterangan kode :

·         Private Sub Command1_Click()

Label2 = Text1

End Sub

Fungsinya untuk menampilkan isi dari text1 ke label2

·         Private Sub Command2_Click()

End

End Sub

Fungsinya Mengakhiri eksekusi program / keluar dari program

·         Private Sub Option1_Click()

Label2.ForeColor = vbRed

End Sub

Fungsinya untuk mengubah warna text pada label2 menjadi merah

·         Private Sub Option2_Click()

Label2.ForeColor = vbBlue

End Sub

Fungsinya untuk mengubah warna text pada label2 menjadi biru

·         Private Sub Check1_Click()

Label2.FontItalic = Check1.Value

End Sub

Fungsinya untuk mengubah gaya tulisan menjadi Italic / miring

·         Private Sub Check2_Click()

Label2.FontBold = Check2.Value

End Sub

Fungsinya untuk mengubah gaya tulisan menjadi bold / tebal

 

Eksekusi program :

·         Tampilan ketika program dijalankan

·         Tampilan program ketika diinput sebuah text dan option button merah dipilih

·         Tampilan program ketika diinput sebuah text, option button biru dipilih dan checkbox tebal dan miring dipilih