Pada artikel ini Saya akan menunjukan kepada Anda bagaimana membuat Program RGB Color ini pada Vb.NET.
- Buat sebuah Form seperti gambar dibawah ini
- Ketikan code berikut
Public Class Form1
'data yang diinput adalah angka (integer)
Dim Red As Integer
Dim Green As Integer
Dim Blue As Integer
Private Sub BtnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDisplay.Click
'Nilai Red diambil dari R.Text,dst
Red = R.Text
Green = G.Text
Blue = B.Text
'me.Backcolor adalah warna Background
'color.fromArgb(CInt(R.Text), CInt(G.Text), CInt(B.Text)) = warna di ambil dari RGB dengan value dari R.text,dst
Me.BackColor = Color.FromArgb(CInt(R.Text), CInt(G.Text), CInt(B.Text))
End Sub
Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReset.Click
'warna background kembali ke warna default
Me.BackColor = Color.Empty
'mengosongkan Textbox
R.Clear()
G.Clear()
B.Clear()
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
End Class
- Run Project dan silahkan dicoba
Tidak ada komentar:
Posting Komentar