ariaman5
ارسال هاAnswers : | 1837 |
عضویتRegistration date : | 5 /7 /1391 |
حمایت کردهThanks : | 1008 |
حمایت شدهThanked : | 338 |
|
سورس تغییر رنگ تصادفی متن VB.net
کد:
Public Class Form1 Dim i, s, n As Integer Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True Timer1.Interval = 1 End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If i = 255 Then i = 0 If s = 255 Then s = 0 If n = 255 Then n = 0 i = Math.Round(Rnd(10) * 255) s = Math.Round(Rnd(10) * 255) n = Math.Round(Rnd(10) * 255) Label1.ForeColor = Color.FromArgb(i, s, n) End Sub End Class
|