formumuzda kullancağımız nesneler; 1 adet timer ve 1 adet label olacak
formumuza çift tıklayarak
kod kısmının en üstünde "Public Class Form1" yazıcak onun altına global değişkenlerimizi tanımlıyoruz.
Dim r, g, b As Integer
form load kısmına geçiyoruz.timer'ın başlama komutunu ve
hızını yazarak başlıyoruz;
Timer1.Enabled = True
Timer1.Interval = 100
Sonraki adımımız ise timer'a label'in fore colour'ını durmadan değiştirmesi komutu olcak;
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
formumuza çift tıklayarak
kod kısmının en üstünde "Public Class Form1" yazıcak onun altına global değişkenlerimizi tanımlıyoruz.
Dim r, g, b As Integer
form load kısmına geçiyoruz.timer'ın başlama komutunu ve
hızını yazarak başlıyoruz;
Timer1.Enabled = True
Timer1.Interval = 100
Sonraki adımımız ise timer'a label'in fore colour'ını durmadan değiştirmesi komutu olcak;
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
Son düzenleme:
