Program Penukaran Huruf dan warna pada Visual Basic

Sobat BM yang budiman, pada kesempatqan kali ini coba perhatikan artikel yang singkat ini. Kita akan belajar program awal yang sangat sederhana yaitu program penukaran huruf dan warna pada visual basic. Langsung saja ke pokok bahasan. Buka program visual basic anda, kemudian pilih new standard project.
Jika sudah tampil kotak form project buatlah layout seperti gambar di bawah ini :

 

Tambahkan class class label

Keterangan :

Label1 properties :

Autosize : true

Caption : BLOG MINI INDONESIA

Font size : 14   impact

Forecolor : vb white

Checkbox

Check1 properties

Caption : reguler

Forecolor: vb white

Check2 properties

Caption : Bold

Forecolor: vb white

Check3  properties

Caption : Italic

Forecolor: vb white

Check1 properties

Caption : Underline

Forecolor: vb white

Optionbutton

Option1 porperties

Caption : Merah

Forecolor : vb white

Option1 porperties

Caption : Merah

Forecolor : vb white

Option2 porperties

Caption : kuning

Forecolor : vb white

Option3 porperties

Caption : hijau

Forecolor : vb white

Option4 porperties

Caption : biru

Forecolor : vb white

Label2 properties

Caption : font size

Forecolor : Vb white

Text1 properties

Text  : (kosong)

Command1 properties

Caption : Keluar

Sesudah anda mengatur tampilan blognya, lalu silahkan anda ketikan code berikut ke lembar code vb :

Private Sub Check1_Click()

Label1.FontBold = False

Label1.FontItalic = False

Label1.FontUnderline = False

End Sub

Private Sub Check2_Click()

Label1.FontBold = True

Label1.FontItalic = False

Label1.FontUnderline = False

End Sub

Private Sub Check3_Click()

Label1.FontItalic = True

Label1.FontBold = False

Label1.FontUnderline = False

End Sub

Private Sub Check4_Click()

Label1.FontItalic = False

Label1.FontBold = False

Label1.FontUnderline = True

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Option1_Click()

Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Label1.ForeColor = vbYellow

End Sub

Private Sub Option3_Click()

Label1.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

Label1.ForeColor = vbBlue

End Sub

Private Sub Text1_Change()

ukuran = Val(Text1.Text)

Label1.FontSize = ukuran

End Sub

Silahkan anda jalankan programnya dan enjoy deh. Cukup mudah kan??? Kalau mau tau lebih jelasnya silahkan download aja Program ini  disini

Semoga bermanfaat !!!