Label Animasyonu

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

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


  • Etiketler;
Yorum Yaz

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

ellerine sağlık çok güzel, denedim oluyor.

Yukarı Git