PROGRAM MENGGANTI BACKCOLOR DAN FORECOLOR DALAM VISUAL BASIC

Desain lha Form berikut ini…!!!

 

Berikut Listing Programnya

Public Class jsg

    Private Sub jsg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox2.Text = "Rubah Saya"

        ComboBox1.Items.Add("Merah")

        ComboBox1.Items.Add("Kuning")

        ComboBox1.Items.Add("Hijau")

        ComboBox1.Items.Add("Biru")

        ComboBox1.Items.Add("Coklat")

        ComboBox1.Items.Add("Hitam")

        ComboBox1.Items.Add("Pink")

        ComboBox1.Items.Add("Purple")

        ComboBox1.Items.Add("Orange")

        ComboBox2.Items.Add("Merah")

        ComboBox2.Items.Add("Kuning")

        ComboBox2.Items.Add("Hijau")

        ComboBox2.Items.Add("Biru")

        ComboBox2.Items.Add("Coklat")

        ComboBox2.Items.Add("Hitam")

        ComboBox2.Items.Add("Pink")

        ComboBox2.Items.Add("Purple")

        ComboBox2.Items.Add("Orange")

        ComboBox3.Items.Add("Merah")

        ComboBox3.Items.Add("Kuning")

        ComboBox3.Items.Add("Hijau")

        ComboBox3.Items.Add("Biru")

        ComboBox3.Items.Add("Coklat")

        ComboBox3.Items.Add("Hitam")

        ComboBox3.Items.Add("Pink")

        ComboBox3.Items.Add("Purple")

        ComboBox3.Items.Add("Orange")

        ComboBox4.Items.Add("Merah")

        ComboBox4.Items.Add("Kuning")

        ComboBox4.Items.Add("Hijau")

        ComboBox4.Items.Add("Biru")

        ComboBox4.Items.Add("Coklat")

        ComboBox4.Items.Add("Hitam")

        ComboBox4.Items.Add("Pink")

        ComboBox4.Items.Add("Purple")

        ComboBox4.Items.Add("Orange")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "Merah" Then

            Me.BackColor = Color.Red

        ElseIf ComboBox1.Text = "Kuning" Then

            Me.BackColor = Color.Yellow

        ElseIf ComboBox1.Text = "Hijau" Then

            Me.BackColor = Color.Green

        ElseIf ComboBox1.Text = "Biru" Then

            Me.BackColor = Color.Blue

        ElseIf ComboBox1.Text = "Coklat" Then

            Me.BackColor = Color.Brown

        ElseIf ComboBox1.Text = "Hitam" Then

            Me.BackColor = Color.Black

        ElseIf ComboBox1.Text = "Pink" Then

            Me.BackColor = Color.Pink

        ElseIf ComboBox1.Text = "Purple" Then

            Me.BackColor = Color.Purple

        Else

            Me.BackColor = Color.Orange

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        If ComboBox2.Text = "Merah" Then

            TextBox1.BackColor = Color.Red

        ElseIf ComboBox2.Text = "Kuning" Then

            TextBox1.BackColor = Color.Yellow

        ElseIf ComboBox2.Text = "Hijau" Then

            TextBox1.BackColor = Color.Green

        ElseIf ComboBox2.Text = "Biru" Then

            TextBox1.BackColor = Color.Blue

        ElseIf ComboBox2.Text = "Coklat" Then

            TextBox1.BackColor = Color.Brown

        ElseIf ComboBox2.Text = "Hitam" Then

            TextBox1.BackColor = Color.Black

        ElseIf ComboBox2.Text = "Pink" Then

            TextBox1.BackColor = Color.Pink

        ElseIf ComboBox2.Text = "Purple" Then

            TextBox1.BackColor = Color.Purple

        Else

            TextBox1.BackColor = Color.Orange()

        End If

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

        If ComboBox3.Text = "Merah" Then

            TextBox2.ForeColor = Color.Red

        ElseIf ComboBox3.Text = "Kuning" Then

            TextBox2.ForeColor = Color.Yellow

        ElseIf ComboBox3.Text = "Hijau" Then

            TextBox2.ForeColor = Color.Green

        ElseIf ComboBox3.Text = "Biru" Then

            TextBox2.ForeColor = Color.Blue

       

ElseIf ComboBox3.Text = "Coklat" Then

            TextBox2.ForeColor = Color.Brown

        ElseIf ComboBox3.Text = "Hitam" Then

            TextBox2.ForeColor = Color.Black

        ElseIf ComboBox3.Text = "Pink" Then

            TextBox2.ForeColor = Color.Pink

        ElseIf ComboBox3.Text = "Purple" Then

            TextBox2.ForeColor = Color.Purple

        Else

            TextBox2.ForeColor = Color.Orange

        End If

    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged

        If ComboBox4.Text = "Merah" Then

            Me.BackColor = Color.Red

        ElseIf ComboBox4.Text = "Kuning" Then

            Me.BackColor = Color.Yellow

        ElseIf ComboBox4.Text = "Hijau" Then

            Me.BackColor = Color.Green

        ElseIf ComboBox4.Text = "Biru" Then

            Me.BackColor = Color.Blue

        ElseIf ComboBox4.Text = "Coklat" Then

            Me.BackColor = Color.Brown

        ElseIf ComboBox4.Text = "Hitam" Then

            Me.BackColor = Color.Black

        ElseIf ComboBox4.Text = "Pink" Then

            Me.BackColor = Color.Pink

        ElseIf ComboBox4.Text = "Purple" Then

            Me.BackColor = Color.Purple

        Else

            Me.BackColor = Color.Orange

        End If

        If ComboBox4.Text = "Merah" Then

            TextBox2.ForeColor = Color.Red

        ElseIf ComboBox4.Text = "Kuning" Then

            TextBox2.ForeColor = Color.Yellow

        ElseIf ComboBox4.Text = "Hijau" Then

            TextBox2.ForeColor = Color.Green

        ElseIf ComboBox4.Text = "Biru" Then

            TextBox2.ForeColor = Color.Blue

        ElseIf ComboBox4.Text = "Coklat" Then

            TextBox2.ForeColor = Color.Brown

        ElseIf ComboBox4.Text = "Hitam" Then

            TextBox2.ForeColor = Color.Black

        ElseIf ComboBox4.Text = "Pink" Then

            TextBox2.ForeColor = Color.Pink

        ElseIf ComboBox4.Text = "Purple" Then

            TextBox2.ForeColor = Color.Purple

        Else

            TextBox2.ForeColor = Color.Orange

        End If

        If ComboBox4.Text = "Merah" Then

            TextBox1.BackColor = Color.Red

        ElseIf ComboBox4.Text = "Kuning" Then

            TextBox1.BackColor = Color.Yellow

        ElseIf ComboBox4.Text = "Hijau" Then

            TextBox1.BackColor = Color.Green

        ElseIf ComboBox4.Text = "Biru" Then

            TextBox1.BackColor = Color.Blue

        ElseIf ComboBox4.Text = "Coklat" Then

            TextBox1.BackColor = Color.Brown

        ElseIf ComboBox4.Text = "Hitam" Then

            TextBox1.BackColor = Color.Black

        ElseIf ComboBox4.Text = "Pink" Then

            TextBox1.BackColor = Color.Pink

        ElseIf ComboBox4.Text = "Purple" Then

            TextBox1.BackColor = Color.Purple

        Else

            TextBox1.BackColor = Color.Orange()

        End If

    End Sub

End Class

Hasil Program

 

 

 

 

Semoga bermanfaat………….

Thank You Very Much……….