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. Dimana dalam program sederhana tersebut kita masukkan sebuah nama dan menampilkannya. Nah , kali ini kita akan mengedit nama yang sudah di tampilkan , dengan memberi efek warna, efek tebal, miring dan dengan garis bawah.
Dalam form diatas tedapat 2buah label , 2 buah button, 1 buah TextBox, 1 buah GroupBox, 3 buah CheckBox, dan 4 buah RadioButton
Anda dapat saja menambah object object lainnya. Misalkan anda ingin menambah jenis warna dan efek font.
Jika sudah, kita mulai membuat sintaks dengan 2 Button pertama. Sintaks nya sama dengan program sederhana yang saya berikan sebelumnya. Namun jika ada yang belum sempat melihat nya, maka saya akan berikan lagi. Double klik Button atau ‘OK’, lalu masukkan kode berikut ini:
Label2.TextBox1.Text
Kemudian double klik Button2 atau ‘keluar’, lalu masukkan sintaks: End.
Selanjutnya , double klik 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 CheckBoxt1.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 statement IF dalam VB 2008. Sintaks didalam statement If CheckBox1.Checked Then berfungsi untuk memberikan efek jika CheckBox1 diklik, maka font pada label2 akan diberikan efeck Italic. Sintaks didalam Else berfungsi jka CheckBox1 tidak diklik, maka font pada Label2 akan kembali normal,
Jika semua sudah komplit, tekanlah F5 untuk menjalankan program . maka hasil nya akan terlihat seperti gambar berikut:
