Membuat Program Font Bold, Italic, dan Underline Dengan Visual Basic 6

Assalamualaikum wr.wb

Salam teman-teman :D pada kali ini saya akan membuat program sederhana mengatur style font dengan menggunakan Visual Basic 6. Sebenarnya ini tidak jauh berbeda dengan ruang lingkup program yang saya buat sebelumnya, silahkan baca juga  Program Mengatur Ukuran Font Pada Visual Basic 6  saya hanya melanjutkannya saja. Baik kita langsung saja silahkan disimak :)

     1.       Anda buka terlebih dahulu program Visual Basic 6

     2.       Desain tampilannya seperti gambar dibawah ini

     3.       Setelah anda selesai desain tampilannya, anda ketikkan kode berikut :

Private Sub Check1_Click()
If Check1.Value = Checked Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = Checked Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = Checked Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "Moh.Syairi"
Label1.BorderStyle = 1
Label1.BackColor = vbWhite
Label1.Font = "Arial"
Label1.FontSize = 24
Label1.Alignment = 2
'tombol
Check1.Font = "Arial"
Check1.Caption = "Bold"
Check1.FontBold = True
Check2.Font = "Arial"
Check2.Caption = "Italic"
Check2.FontItalic = True
Check3.Font = "Arial"
Check3.Caption = "Underline"
Check3.FontUnderline = True
Check1.FontSize = 12
Check2.FontSize = 12
Check3.FontSize = 12
End Sub

     4.       Kemudian jalankan program dengan menekan tombol F5 . kalau kode yang anda ketik sudah benar, maka hasilnya sebagai berikut :

Anda tinggal mencentang box kecil, maka anda akan melihat hasilnya.

Selamat Berkreasi…

Wasslamualaikum wr.wb