Belajar Font Style dan Font Color Dengan VB6

Hai sahabat bodolers, dah lama gak post nih. Kali ini mimin akan memulai post tentang vb6. Secara mimin baru saja selesai belajar tentang VB jadi mimin akan share ilmu yang mimin dapet nih buat para bodolers sekalian. Langsung saja kita mulai tutornya ya. cusssss
Pertama siapkan alat dan bahannya , disini kita butuh komputer or lepi ( laptop ) yang sudah terinstal aplikasi VB6 tentunya. Langkah selanjutnya, kita buka VB6 lalu akan muncul sebuah form berjudul "New Project" disini kita pilih "Standard exe" kemudian klik "OK". Kemudian akan muncul sebuah lembar kerja atau form kosong, nah disinilah kita akan memulai project kita.

1.  Buat form seperti diatas yang terdiri dari : 2 label ( label1 caption : "sandalsbodol.blogspot.com"; name:  lbltxt, label2 caption:"text";name"label1") 1 text box( name: text1) , 2 frame( frame1 caption: "Font Color" dan frame2 caption: "Font Style") , 4 Optionbutton dan 4 checkbox, dan 1 command
2. Buat seperti gambar diatas . Bentuk dan model tidak harus sama
3. Jika sudah kita mulai buat kodingnya, seperti ini

Private Sub chcbold_Click()
'membuat font tebal/ bold , jika chcbold bernilai 1 maka lbltext font nya bold/tebal
If chcbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chcitalic_Click()
'membuat font miring/ italic , jika chcbold bernilai 1 maka lbltext font nya italic/ miring
If chcitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub chcstrikeout_Click()
'membuat font strike out , jika chcbold bernilai 1 maka lbltext font nya strike out
If chcstrikeout.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False
End If
End Sub

Private Sub chcunderline_Click()
'membuat font bergaris bawah , jika chcbold bernilai 1 maka lbltext font nya underline/ bergaris bawah
If chcunderline.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub

'membuat warna font
Private Sub optblue_Click()
'warna biru
lbltext.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
'warna hijau
lbltext.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
'warna merah
lbltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
'warna kuning
lbltext.ForeColor = vbYellow
End Sub

Private Sub Text1_Change()
'untuk mengganti lbltext memlalui textbox
lbltext = Text1.Text
End Sub

Private Sub x_Click()
'tombol keluar "x" ditambah dengan tombol konfirmasi sebelum keluar dari program
a = MsgBox("Ciusss", vbYesNo, "Sandalsbodol.blogspot.com")
If a = vbYes Then
End
Else
End If
End Sub
------------------------------------------------------------------------------------------------
nah sampai disini program kita sudah jadi nih sob. untuk mencoba apakah pembuatan program berjalan dengan benar maka kita perlu cek program kita dengan klik F5 pada keyboard atau bisa juga tekan tombol play di aplikasi VB6

nah seperti gambar di atas
jika program buatan kita running dengan sempurna tanpa ada debug itu berarti kita talah berhasil membuat programnya. Setelah itu kita simpan hasil kerja kita dengan cara CTRL+S dan ikuti langkahnya.
Saran : Simpan hasil kerja didalam satu folder khusus untuk setiap project baru

 Download Contoh Program