pertama buatlam form dengan 4 Label, 3 Textbox dan 2 Button hingga menjadi seperti ini :
kemudian edit setiap objek pada properties bagian textnya hingga menjadi seperti ini :
setelah selesai semuanya dirubah double klik pada tombol Lakukan atau Button1 dan masukan kode berikut :
Dim rgb1, rgb2, rgb3 As Integer
rgb1 = TextBox1.Text
rgb2 = TextBox2.Text
rgb3 = TextBox3.Text
Me.BackColor = Color.FromArgb(rgb1, rgb2, rgb3)
kemudian double klik pada tombol Set Ulang atau Button 2 masukan kode berikut :
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
setelah itu debug dengan menekan F5, kurang lebih seperti dibawah ini aplikasinya :
jangan biarkan salah satu kota tidak diberi nilai alias kosong, jadi untuk dapat berjalan setiap box diberikan nilai.
Referensi: http://gapurapangarti.blogspot.com
Tidak ada komentar:
Posting Komentar