TextBox Ve Form Rengini Değiştirmek ( Randomize )

ads

ads

Randomize ile form rengini ve TextBox rengini değiştirmeyi öğreneceğiz.

Forma eklemeniz gereken araçlar:

1 Tane Combobox + 1 Tane TextBox + 2 Radobutton  >>  Comboboxun  içine  başla ve durdur  seçenekleriniz ekleyin.



Kodlar:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a, b, c As String
        If RadioButton1.Checked Then
            Randomize()
            a = Rnd() * 255
            b = Rnd() * 255
            c = Rnd() * 255
            Me.BackColor = Color.FromArgb(a, b, c)

        End If
        Dim d, f, g As String
        If RadioButton2.Checked Then
            Randomize()
            d = Rnd() * 255
            f = Rnd() * 255
            g = Rnd() * 255
            TextBox1.BackColor = Color.FromArgb(d, f, g)

        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Başla" Then
            Timer1.Start()
        End If
        If ComboBox1.Text = "Durdur" Then
            Timer1.Stop()
        End If
    End Sub 

Videolu Ders İzle

ads