Label Animasyon yapma

[DeadGhost]

Visual Basic'te label animasyonu yapmayı görelim.



Public Class Form1
Dim r, g, b As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
End Class

ALINTI

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.