Postingan kali ini kita akan sedikit berkutat seputar warna.
Kita akan membuat program sederhana untuk mengganti warna dengan VB.
Tapi sebelumnya saya ingin memberikan sedikit tambahan.
Seandainya saya memiliki dua form. Katakanlah Form 1 dan Form 2. karena Form 1 lebih dulu dibuat maka ketika di running Form
1 akan tampil lebih dulu. Lalu bagaimana caranya Form 2 yang baru kita buat
agar tampil pertama kali ketika di running?
Mudah saja, pilih Project → Project1 Properties
Setelah itu cari menu Startup Object → pilih Form2
Lalu tentu saja Klik OK.
Dimana ketika kita menuliskan sesuatu di kotak TxtTulisan lalu
kita Klik salah satu menu yang ada di bawahnya huruf itu akan berubah. Menjadi
Kuning jika kita Klik kuning atau Bold (bercetak tebal) ketika kita klik bold.
Oke mari kita buat satu-persatu.
Tampilan awal adalah seperti ini.
Perhatikan Table!
ToolBox
|
Properties
|
|
Caption
|
Tes Warna dan Jenis Tulisam
|
|
Font
|
Ubah sesuai kebutuhan
|
|
Name
|
TxtTulisan
|
|
Text
|
Kosongkan
|
|
Form1
|
Name
|
FrPilihan
|
Caption
|
Pilihan
|
|
OptionButton 1
|
Name
|
OptYellow
|
Caption
|
Yellow
|
|
OptionButton 2
|
Name
|
OptBlue
|
Caption
|
Blue
|
|
OptionButton 3
|
Name
|
OptRed
|
Caption
|
Red
|
|
OptionButton 4
|
Name
|
OptBold
|
Caption
|
Bold
|
|
OptionButton 5
|
Name
|
OptItalic
|
Caption
|
Italic
|
|
OptionButton 6
|
Name
|
OptUnderline
|
Caption
|
Underline
|
|
Name
|
CmdHapus
|
|
Caption
|
Hapus
|
|
CommandButton 2
|
Name
|
CmdKeluar
|
Caption
|
Keluar
|
|
Kalau diperhatikan ketika di running Form akan berubah
warna. Sebenarnya ini bisa dilakukan dengan sedikit mengotak atik bagian
BackColour di properties. Tapi kita akan berlatih mengganti warna dengan
script.
Sebelum kita menulis script ganti dulu Action di Code Program
menjadi Activate.
Activate,
maksudnya script akan diolah atau ditampilkan ketika program sudah atau sedang
running.
Kemudian tuliskan script berikut diantara Private Sub dan End Sub.
Private Sub Form_Activate()
Form1.BackColor = vbBlack
txttulisan.BackColor = vbGreen
End Sub
BackColor adalah
warna dasar atau latar.
Penulisan warnanya harus didahulukan dengan kata VB diikuti warna yang akan digunakan.
Tapi harus menggunakan bahasa inggris seperti di atas.
Sekarang untuk OptionButton,
logikanya ketika kita klik Yellow
maka tulisan di TextBoxt akan berwarna kuning oleh karena itu listingnya
ditulisan di OptYellow.
Private Sub optyellow_Click()
txttulisan.ForeColor = vbYellow
End Sub
Begitu juga untuk warna Blue
dan Red.
Private Sub optblue_Click()
txttulisan.ForeColor = vbBlue
End Sub
Private Sub optred_Click()
txttulisan.ForeColor = vbRed
End Sub
Untuk OptionButton berikutnya
perintahnya berbeda,
Private Sub optbold_Click()
txttulisan.FontBold = True
txttulisan.FontItalic = False
txttulisan.FontUnderline = False
End Sub
Disana ada dua nilai True
dan False artinya ketika kita
klik Bold tulisan di TextBox akan
menjadi Bold maka nilainya True. Dan
tidak akan menjadi Italic atau Underline maka nilai keduanya False.
Begitu juga untuk penulisan Italic dan Underline, tinggal
diubah posisi True dan False-nya.
Private Sub optitalic_Click()
txttulisan.FontBold = False
txttulisan.FontItalic = True
txttulisan.FontUnderline = False
End Sub
Private Sub optunderline_Click()
txttulisan.FontBold = False
txttulisan.FontItalic = False
txttulisan.FontUnderline = True
End Sub
Sekarang untuk CommandButton
Hapus dan Keluar.
Untuk Hapus ,
Private Sub cmdhapus_Click()
txttulisan = ""
optyellow = False
optblue = False
optred = False
optbold = False
optitalic = False
optunderline = False
txttulisan.SetFocus
End Sub
TxtTulisan
dikosongkan untuk memberi perintah Hapus
tulisan di TxtTulisan.
Untuk OptionButton semuanya
diberikan nilai False .
TxtTulisan.SetFocus artinya
korsor akan ada di TextBox.
Terakhir, tombol Keluar.
Penulisannya sama seperti Postingan sebelumnya VB Bag 1 -
.
Private Sub cmdkeluar_Click()
Unload Me
End Sub
~.. Selamat Mencoba ..~
Sumber :
Materi ini dari catatan materi kuliah saya.
Sebagai catatan pribadi sekaligus mencoba berbagi sedikit ilmu.
0 komentar:
Posting Komentar