buat tampilan seperti ini:
untuk menggunakan commandgroup lihat di form control lalu pilih commandgroup jika sudah lalu anda berikan count (jumlah command di commandgroup).caranya klik di commandgorup lihat di properties sebelah kanan lalu ganti buttoncount yang semula bernilai 2 menjadi yang anda inginkan.misalkan anda butuh 5 command button ganti angka 2 menjadi angka 5.untuk melakukan coding di commandgroup1 klik kanan pada commandgroup1 lalu pilih edit lalu klik2x pada setiap command,lalu isikan script berikut :
command1
thisform.text1.BackColor=RGB(255,0,0)
thisform.text1.Value="WARNA MERAH"
command2
thisform.text1.BackColor=RGB(255,255,0)
thisform.text1.Value="WARNA KUNING"
command3
thisform.text1.BackColor=RGB(0,255,0)
thisform.text1.Value="WARNA HIJAU"
command4
thisform.text1.BackColor=RGB(0,128,255)
thisform.text1.Value="WARNA BIRU"
command5
thisform.text1.BackColor=RGB(255,128,0)
thisform.text1.Value="WARNA ORANYE"
reset
thisform.text1.Value=" "
thisform.text1.BackColor=RGB(255,255,255)
exit
thisform.release
selamat mencoba!!
jangan ketagihan ya :D
untuk menggunakan commandgroup lihat di form control lalu pilih commandgroup jika sudah lalu anda berikan count (jumlah command di commandgroup).caranya klik di commandgorup lihat di properties sebelah kanan lalu ganti buttoncount yang semula bernilai 2 menjadi yang anda inginkan.misalkan anda butuh 5 command button ganti angka 2 menjadi angka 5.untuk melakukan coding di commandgroup1 klik kanan pada commandgroup1 lalu pilih edit lalu klik2x pada setiap command,lalu isikan script berikut :
command1
thisform.text1.BackColor=RGB(255,0,0)
thisform.text1.Value="WARNA MERAH"
command2
thisform.text1.BackColor=RGB(255,255,0)
thisform.text1.Value="WARNA KUNING"
command3
thisform.text1.BackColor=RGB(0,255,0)
thisform.text1.Value="WARNA HIJAU"
command4
thisform.text1.BackColor=RGB(0,128,255)
thisform.text1.Value="WARNA BIRU"
command5
thisform.text1.BackColor=RGB(255,128,0)
thisform.text1.Value="WARNA ORANYE"
reset
thisform.text1.Value=" "
thisform.text1.BackColor=RGB(255,255,255)
exit
thisform.release
selamat mencoba!!
jangan ketagihan ya :D
blog nya keren mas
ReplyDeletebagi bagi ilmunya dong
blog saya > kuntikunyuk.blogspot.com
tq {}
blognya keren juga.. makasih
ReplyDelete