dan berilah dengan nama project "ProgramFont" dan Title "ProgramFont"
kemudian klim FMain
kemudian masukan 1 Textbox, 1 Label, kemudian 2 frame, 4 radioButton dan 3 CheckBox seperti digambar di bawah ini :
dan atural di setiap properties kontrol seperti berikut :
- Textboxt1 di Properties bagian Text Dikosongkan
- Label1 di Properties bagian Text Dikosongkan
- Frame1 di Properties bagian Text dirubah menjadi Pilihan Warna
- Frame2 di Properties bagian Text dirubah menjadi Style Font
- RadioButton1 di Properties bagian Text dirubah menjadi Biru
- RadioButton2 di Properties bagian Text dirubah menjadi Hijau
- RadioButton3 di Properties bagian Text dirubah menjadi Kuning
- RadioButton4 di Properties bagian Text dirubah menjadi Coklat
- CheckBox1 di Properties bagian Text dirubah menjadi Garis Bawah
- CheckBox2 di Properties bagian Text dirubah menjadi Pertebal
- CheckBox3 di Properties bagian Text dirubah menjadi Miring
Selanjutnya double klik pada Textbox1 dan masukan code berikut :
Label1.text = TextBox1.Text
masukan kode tersebut diantara PUBLIC SUB dan END contoh :
PUBLIC SUB TextBox1_KeyPress()
Label1.text = TextBox1.Text
END
Label1.ForeColor = &0000ff
dilanjut dengan memasukan kode pada :
RadioButton2 atau Hijau : Label1.ForeColor = &H005500
RadioButton3 atau Kuning : Label1.ForeColor = &FFFF00
RadioButton4 atau Coklat : Label1.ForeColor = &A52A2A
CheckBox1 atau Garis Bawah : Label1.Font.Underline = CheckBox1.Value
CheckBox2 atau Pertebal :Label1.Font.Bold = CheckBox2.Value
CheckBox3 atau Miring : Label1.Font.Italic = CheckBox3.Value
bila telah selesai semuanya silahkan Run atau dengan Menekan F5 atau bisa juga lewat Debug >> Run
maka hasilnya akan seperti gambar berikut :
Belajar Gambas itu menyenangkan dan mudah, selamat mencoba dan berkreatifitas!
Tidak ada komentar:
Posting Komentar