Randomize Kullanımı (Renk Değişimi)

Bu dersimizde randomize ile textbox ve form rengi değiştirelim...

Bu dersimizde randomize ile textbox ve form rengi değiştirelim...

Combobox içeriğine "Başla" ve "Durdur" seçeneklerini ekliyoruz.




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

  • Etiketler;
Yusuf Göksu Coşkun
Lefke Avrupa Üniversitesi - Bilgisayar Mühendisliği
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

[b] 1 adet de timer ekliyoruz [/b]
sunu cok merak ediyorum; örnek olarak comboboxun icerisine sehir ismi girdik sonra 'istanbul' u tikladigimiz zaman bilgiler ve 1 tane resim gostermek icin nasil yapabiliriz? Umarim nedemek istedigimi anlamissinizdir.
ben yapıp ders olarak eklerim sen oradan bakarsın iyi çalışmalar...
Pek açıklayıcı bir ders olmamış! Paylaşım için teşekkürler...
teşekkürler. elimden geldiği kadar bilgi vermeye çalıştım..kodlar zaten kolay ve anlaşılır.

Yukarı Git