yanıp sönen label hakkında ?

arkadaşlar yanıp sönen label yapmak istiyorum fakat timer mı kullanmam gerekıyor örnek kodları yazarmısınız acaba benimkiler okadar hızlı geçiyor ki gözükmüyor bile form loadına alt alta renk degıstrıme kodlarını yazdım cunku yardımlarınızı beklıyorm..

sen yazdıgın kodu yollarsan ben hızını ayarlarım ordan şimdi yogunum yeniden yazamıyorum

sağolasın
bunlar yazdıgım renk kodları:

Label4.ForeColor = Color.White
Label4.ForeColor = Color.DarkGray
Label4.ForeColor = Color.Aqua
Label4.ForeColor = Color.Green

böyle olmaz ki dur biraz ben sana yazayım 2 satır

Private Sub Command1_Click()
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
end sub


ya programı kaldırmışım şöyle internete bi baktım bu işini görür gibi yada timer kullanman lazım bunu dene olmazsa timer la yaparız

kodların ilk bölümü bir butona tıklayınca label renk değiştiriyor ikinci bölümde mouse formda hareket edince label renk çalıştırıyor son bölüm ise mouse label üzerinde hareket edince renk değiştiriyor demek ona göre kullanırsın

Eğer visual basi'le ilgili ise sorun , cevap timer nesnesinin timer özelliği 1000 için 1sn olarak işlem yapar..
yani 1000 yazarsan 1 sn de bir değişir label ...

aslan45 sağol fakat bende nette baktım her site aynı kodları koymuş.
DoEvents() ta hata verıyor + vbred de hata verıyor oyuzden ben color.red falan yazıyorum .. vb.net kullanıyorum.. yakosin cevap için sağol interval 1000 yaptım mesela ama nasıl renk değişimine etki ettircem bilgim yok timer hakkında sağolun ilginiz için

aslan45 arkadaşımızın dediği gibi bu verdiğin kodlar butona basınca yada mouse hareket edince renk değiştirmesi için...

timer nesnesi senin yazdığın her zaman diliminde bir kez verdiğin işlemi yapar..
interval saniyenin 1000de biridir...
enabled ise timer'ın çalışıp çalışmayacağını kontrol eder her kontrolde olduğu gibi...

kodları vb.net için yazıyorum...

labelinin adı Label1 olsun...
formuna bir timer ekle onun da adı Timer1 olacaktır..
Timer1'in properties penceresinden intervalına istediğin zamanı ver..örneğin 500 verince iyi oluyor...
Enabled özelliğinide "true" yap...

butonun renk değişimini ilgilendiren kod şu şekilde olacak:




Dim degisme As Byte = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Select Case degisme
Case 0
Label1.BackColor = Color.Blue
degisme += 1
Case 1
Label1.BackColor = Color.Red
degisme += 1
Case 2
Label1.BackColor = Color.Green
degisme += 1
Case 3
Label1.BackColor = Color.Purple
degisme = 0
End Select
End Sub


burada degisme adlı değişkenin aldığı değere göre rengi değiştiriyoruz...
bu tarz olaylarda timer kullanmak bence en iyisi..programını doevents tarzı olaylardan çok daha az kasacaktır...