14.31
Gudang Informasi
Membuat Program Font Property dalam VB 2008
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"
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:
"Om Santhi, Santhi, Santhi, Om"
Baca juga :
