Süper Üye
Beyler kod budur. Dilerseniz hilenizde filan kullanabilirsiniz. Orası size kalmış.
Kodları bana arkadaşım verdi. Bende forumda paylaşayayım dedim.
Kullanımı:
1- FORUMUMUZA LABEL EKLEYİNİZ.
2- LABEL'E ÇİFT TIKLAYINIZ.
3- VE VERDİĞİM KODU YAPIŞTIRINIZ.
4- KAYDETTİĞİMİZDE OLACAKTIR.
PHP:
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 = vbRedKullanımı:
1- FORUMUMUZA LABEL EKLEYİNİZ.
2- LABEL'E ÇİFT TIKLAYINIZ.
3- VE VERDİĞİM KODU YAPIŞTIRINIZ.
4- KAYDETTİĞİMİZDE OLACAKTIR.
