Membuat Program Font Property dalam VB 2008

"Om Swastiastu"

Tiap font memiliki property, seperti Bold, Underline, Italic, juga memberikan efek warna. Kali ini kita akan membuat program simple dengan untuk memberikan efek tertentu pada jenis huruf. Ini adalah program lanjutan dari program sederhana yang saya buat. Dimana dalam program sederhana tersebut kita memasukkan sebuah nama dan menampilkannya. Nah, kali ini kita akan mengedit nama yang sudah ditampilkan, dengan memberi efek warna, efek tebal, miring dan dengan garis bawah.

Untuk mengawali program kali ini, buatlah desain form seperti pada gambar dibawah ini:

Dalam form diatas terdapat 2 buah Label, 2 buah Button, 1 buah TextBox, 1 buah GroupBox, 3 buah CheckBox, dan 4 buah RadioButton.
Kalian dapat saja menambah objek-objek lainnya. Misalkan kalian ingin menambah jenis warna dan efek font.
Jika sudah, kita mulai membuat sintaks dengan 2 Button pertama. Sintaksnya sama dengan program sederhana yang saya berikan sebelumnya. Namun jika ada yang belum sempat melihatnya, maka saya akan berikan lagi. Double click Button1 atau 'OK', lalu masukkan kode berikut ini:

Label2.Text = TextBox1.Text

Kemudian double click Button2 atau 'Keluar', lalu masukkan sintaks: End.
Selanjutnya, double click masing-masing RadioButton, kita mulai dari yang paling atas, lalu masukkan sintaks berikut ini:

Label2.ForeColor = Color.Red untuk RadioButton1
Label2.ForeColor = Color.Green untuk RadioButton2
Label2.ForeColor = Color.Blue untuk RadioButton3
Label2.ForeColor = Color.Yellow untuk RadioButton4

Sintaks diatas akan memberikan efek pergantian warna pada Label2 jika RadioButton diklik. Tahap terakhir memasukkan sintaks pada masing-masing CheckBox. Seperti sebelumnya, kita mulai dari atas:

Untuk CheckBox1 atau 'Italic':

        If CheckBox1.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Italic)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Italic)
        End If


Untuk CheckBox2 atau 'Bold':

        If CheckBox2.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Bold)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Bold)
        End If


Untuk CheckBox3 atau 'Underline':

        If CheckBox3.Checked Then
            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Underline)
        Else
            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Underline)
        End If


Disini kita juga mempelajari penggunaan statemen IF dalam VB 2008. Sintaks didalam statemen If CheckBox1.Checked Then berfungsi untuk memberikan efek jika CheckBox1 diklik, maka font pada Label2 akan diberikan efek Italic. Sintaks didalam Else berfungsi jika CheckBox1 tidak diklik, maka font pada Label2 akan kembali normal.
Jika semua sudah komplit, tekanlah F5 untuk menjalankan program. Maka hasilnya akan terlihat seperti gambar berikut:

Semoga membantu teman-teman sekalian.

"Om Santhi, Santhi, Santhi, Om"